Crear una base de Datos de MS SQL desde Delphi

[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