Como crear una BD y talbas en SQL2000 desde Delphi 5
 

Hola a todos

Ojalá me pudieran orientar para encontrar la forma de crear desde Delphi5 una Bases de Datos y sus tablas en SQL 2000.

El codigo siguiente lo ejecuto desde el Analizador de SQL y no hay problema pero se me compplica para como pasarlo a codigo Delphi:

CREATE DATABASE IF NOT EXISTS Migracion23; // creamos la base de datos
USE Migracion23;
// creamos las tablas
CREATE TABLE [Alumnos1112] (
[IdAlumno] [decimal](18, 0) NOT NULL ,
[ApellidoPaterno] [varchar] (35) COLLATE Modern_Spanish_CI_AS NULL ,
[ApellidoMaterno] [varchar] (35) COLLATE Modern_Spanish_CI_AS NULL ,
[Nombre] [varchar] (30) COLLATE Modern_Spanish_CI_AS NULL ,
[Genero] [char] (1) COLLATE Modern_Spanish_CI_AS NULL ,
[FechaNacimiento] [smalldatetime] NULL ,
[FechaActualizacion] [datetime] NULL ,
[Curp] [varchar] (18) COLLATE Modern_Spanish_CI_AS NULL ,
[LenguaMaterna] [varchar] (65) COLLATE Modern_Spanish_CI_AS NULL ,
[SoundexN] [varchar] (100) COLLATE Modern_Spanish_CI_AS NULL ,
[SoundexPA] [varchar] (100) COLLATE Modern_Spanish_CI_AS NULL ,
[SoundexSA] [varchar] (100) COLLATE Modern_Spanish_CI_AS NULL ,
[descripcion] [varchar] (45) COLLATE Modern_Spanish_CI_AS NOT NULL ,
[IdEstado] [char] (2) COLLATE Modern_Spanish_CI_AS NULL ,
[IdMunicipio] [char] (3) COLLATE Modern_Spanish_CI_AS NULL ,
[IdLocalidad] [char] (4) COLLATE Modern_Spanish_CI_AS NULL ,
[FolioDocProbatorio] [varchar] (20) COLLATE Modern_Spanish_CI_AS NULL ,
[AnioRegistro] [varchar] (2) COLLATE Modern_Spanish_CI_AS NULL ,
[NumeroLibro] [varchar] (4) COLLATE Modern_Spanish_CI_AS NULL ,
[FolioLibro] [varchar] (6) COLLATE Modern_Spanish_CI_AS NULL ,
[Nacionalidad] [varchar] (50) COLLATE Modern_Spanish_CI_AS NULL ,
[IdControl] [varchar] (15) COLLATE Modern_Spanish_CI_AS NULL ,
[EducacionNacional] [varchar] (2) COLLATE Modern_Spanish_CI_AS NOT NULL ,
[AtendidoEnConafe] [varchar] (2) COLLATE Modern_Spanish_CI_AS NOT NULL ,
[EstadoNacimiento] [char] (2) COLLATE Modern_Spanish_CI_AS NULL ,
[MunicipioNacimiento] [char] (3) COLLATE Modern_Spanish_CI_AS NULL ,
[LocalidadNacimiento] [char] (4) COLLATE Modern_Spanish_CI_AS NULL ,
[AtencionEspecial] [bit] NULL
) ON [PRIMARY]
GO

Ya tengo mi conección al servidor de SQL:

AdoQuery1.Close;
xNomServidor := Edit1.Text;
AdoQuery1.ConnectionString:='Provider=SQLOLEDB.1;Password=xPwd;Persist Security Info=True;User ID=sa;Initial Catalog=ControlEscolar;Data Source=' + xNomServidor;


Pero donde estoy atorado es en la parte de como pasar este codigo a lenguaje delphi.

Como siempre ¡Gracias de antemano por la ayuda que me pudiesen dar!


Saludos

Luis Aguilar

Para crear la base de datos:

Código SQL [-]
CREATE DATABASE Migracion23
  ON PRIMARY
    (
       NAME = 'Migracion23_Datos',
       FILENAME = 'C:\TuPath\Databases\Migracion23.mdf',
       SIZE = 3MB,
       FILEGROWTH = 10%
    )
  LOG ON
    (
       NAME = 'Migracion23_Log',
       FILENAME = 'C:\TuPath\Databases\Migracion23.ldf',
       SIZE = 500KB,
       FILEGROWTH = 10%
    )

Las tablas que cuelgan de la base de datos, pues tal cual como lo has puesto

Un saludo.

Lanza las sentencias de forma separada, en lugar de lanzar todo el script de golpe.

Gracias, pero creo que no fuí claro: Desde SQL no tengo problema en generar la base de datos y las tablas, en donde se me complica es Hacerlo en Delphi , o sea pasar ese script que uso para crear la BD y la Tabla a mi aplicacion de Delphi; Como hacer para que desde Delphi me cree la BD y la Tabla, estuve investigando y creo se puede hacer con el AdoCommand pero seguire checando.

Gracias nuevamente por los tips.

Saludos

Luis Aguilar

Las tablas se pueden crear con ADOCommand o ADOQuery indistintamente, lanzando las sentencias "ALTER TABLE"; Lo que te quería decir es que debes lanzar una sentencia cada vez.
Lo de crear la Base de Datos, no lo he probado, pero pienso que debe ser igual.

Gracias por la ayuda!!!

Ya pude crear la base de datos desde mi aplicación.

Lo hice con un AdoQuery:

ADOQuery1.Close; // Por estado
ADOQuery1.Sql.Clear;
AdoQuery1.sql.add(' CREATE DATABASE Migracion' ); // creamos la base de datos
AdoQuery1.Open;
AdoQuery1.execSql;


Así de sencillo!!!

Mil gracias por la ayuda.

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)