Como crear una BD y talbas en SQL2000 desde Delphi 5

[laguilar59]

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