Crear una base de Datos de MS SQL desde Delphi

[agalvan_kit]

Buenas tardes

Tengo una aplicación que estoy haciendo multicompañía, y mi intención es facilitarle al usuario la creación de nuevas empresas sin necesidad de que tengan que entrar a la Consola de MS SQL a crear una BD, por lo que através de un programa administrador estoy haciendo la creación de las empresas.

Ya puedo crear la BD desde Delphi, ejecutando un StoreProcedure, pero generé un script desde SQL con las estructuras de las tablas, los StoreProcedures y Funciones que utilizo y mi intencion es de alguna manera mandarlo a ejecutar desde mi aplicación Delphi. Lo intente a través de un ADOCommand, y de un ADOQuery pero me marca errores...

Alguien pudiera recomendarme por favor una manera de poder hacer esto.

Saludos y gracias de antemano...

[luisgutierrezb]

y que errores te genero, yo eh ejecutado algunos scripts en un adoquery y no eh tenido problemas...

otra, como vas a copiar el storeprocedure a la nueva base de datos? tambien puedes usar un adoquery con el createdatabase, desde delphi abres la base de datos master que es la usual y desde ahi creas la otra, despues te "cambias" a la nueva, para crear las tablas y demas

[agalvan_kit]

Te pongo un pequeño ejemplo del script donde quiero crear una nueva tabla. El scripit lo tengo en un archivo .TXT que tuve que copiar del .sql que genera la opción "Generate SQL Script" del Server Manager, ya que no lo podia leer por algun motivo:


if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[PRUEBA1]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[PRUEBA1]
GO


CREATE TABLE [dbo].[PRUEBA1] (
[Codigo] [varchar] (6) COLLATE Traditional_Spanish_CI_AS NOT NULL ,
[Descripcion1] [varchar] (40) COLLATE Traditional_Spanish_CI_AS NULL ,
[Descripcion2] [varchar] (20) COLLATE Traditional_Spanish_CI_AS NULL ,
) ON [PRIMARY]
GO


Y el error que me marca es "Incorrect syntax near GO"

[eibsoft]

lo que sucede es que cuando generas el Script desde SQL le agrega el GO despues de cada linea que le toca ejecucion

yo lo que hice fue lo siguiente
donde SQL es de tipo TStringlist

Código PHP:


        SQL->LoadFromFile(camino + "update.sql");

        DM->ConsultaAux->Close();
        DM->ConsultaAux->SQL->Clear();

        for (int i=0; i < SQL->Count; i++)
        {
          Cadena = SQL->Strings[i];

          if (CompareStr(Trim(Cadena), "GO") != 0)
            DM->ConsultaAux->SQL->Add(Cadena);
          else
          {
            DM->ConsultaAux->ExecSQL();
            DM->ConsultaAux->SQL->Clear();
          }
} 


asi fue como resolvi. espero te ayude
saludos