CREATE TABLE desde Delphi

[Manuel]

Código SQL [-]
        tabla := 'T12345';
        Query6.Close;
        Query6.SQL.Clear;
        Query6.SQL.Add('CREATE TABLE '+tabla+'(');
        Query6.SQL.Add('CODIGO DOUBLE PRECISION NOT NULL,');
        Query6.SQL.Add('nota SMALLINT,');
        Query6.SQL.Add('INSUFICIENTE SMALLINT,');
        Query6.SQL.Add('SUFICIENTE SMALLINT,');
        Query6.SQL.Add('BUENO SMALLINT,');
        Query6.SQL.Add('MUYBUENO SMALLINT,');
        Query6.SQL.Add('total SMALLINT,');
        Query6.SQL.Add('PROMEDIO DOUBLE PRECISION)');
        Query6.ExecSQL;

lo puedes hacer para los para las llaves, etc.

[[egostar]]

Gracias por tu comentario Manuel.

Pues yo sigo con el tema, hubo unos cambios en el programita, cambie el TQuery por un TTable para poder encontrar los índices, en este primer cambio ya logre ingresar el primer índice y funciona bien, sigo aún con el bug de los campos NO incluidos, pero quise primero ver lo de los índices.

En esta parte solo se crea el índice pero no la llave primaria, sigo buscando información para poder lograrlo.

Aquí pueden bajar el código fuente.

Salud OS.

[[egostar]]

Sigo tratando de mejorar el programa y debo pedirles una disculpa a los que ya hayan bajado el mismo porque no lo habia subido completo.

Aqui la última versión la cual ya genera las llaves primarias.

Espero les guste y sobre todo que les sea de utilidad.

Salud OS.

[Neftali [Germán.Estévez]]

Hola egostar.
Si queres puedes subir el código fuente al FTP público; No he querido hacerlo yo, por si tienes algun inconveniente.
Lo digo porque así seguro que "perdura" más tiempo y lo tenemos más accesible si más adelante queremos buscarlo.

Gracias por el código.

[[Lepe]]

Un detalle, no uses double precision, usa NUMERIC(10,2) para campos monetarios en Dialecto 3, o tendrás problemas de redondeos y verás que guarda valores que no se corresponden con los introducidos.

Me ha extrañado que al ser un campo indexado, añadas la restricción NOT NULL, eso más bien sería si el campo es obligatorio (Required) ¿no?. Bueno, quizás tú lo necesites así.

Por lo demás me parece fantastico el código.

Si se puede aportar algo... así puedes saber cual es la clave primaria y crear los índices.

Código Delphi [-]
 with Table1.IndexDefs[i] do
        begin
          if ixPrimary in Options then
            Opc:= Opc + 'ixPrimary ';
          if ixUnique in Options then
            Opc:= Opc + 'ixUnique ';
          if ixDescending in Options then
            Opc:= Opc + 'ixDescending ';
          if  ixCaseInsensitive in Options then
            Opc:= Opc + 'ixCaseInsensitive ';
          if  ixExpression in Options then
            Opc:= Opc + 'ixExpression ';
          if  ixNonMaintained in Options then
            Opc:= Opc + 'ixNonMaintained ';

Saludos

[Manuel]

Otro pequeño aporte:

Código SQL [-]
       tabla := 'T12345';
        Query6.Close;
        Query6.SQL.Clear;
        Query6.SQL.Add('ALTER TABLE '+tabla+'(');
        Query6.SQL.Add('ADD CONSTRAINT codigoPRIMARYKEY1)');
        Query6.SQL.Add('PRIMARY KEY (CODIGO)');
        Query6.ExecSQL;

[[egostar]]

Empezado por Neftali

Hola egostar.
Si queres puedes subir el código fuente al FTP público; No he querido hacerlo yo, por si tienes algun inconveniente.
Lo digo porque así seguro que "perdura" más tiempo y lo tenemos más accesible si más adelante queremos buscarlo.

Gracias por el código.

Muchas gracias Neftali, lo haré la siguiente vez, aún estoy haciendo modificaciones.

Empezado por Lepe

Un detalle, no uses double precision, usa NUMERIC(10,2) para campos monetarios en Dialecto 3, o tendrás problemas de redondeos y verás que guarda valores que no se corresponden con los introducidos.

Gracias, así lo haré.

Empezado por Lepe

Me ha extrañado que al ser un campo indexado, añadas la restricción NOT NULL, eso más bien sería si el campo es obligatorio (Required) ¿no?. Bueno, quizás tú lo necesites así.

Si yo no le pongo el NOT NULL no me permite crear la llave primaria, da error al tratar de generarla si no lo tiene.

Si se puede aportar algo... así puedes saber cual es la clave primaria y crear los índices.

Muchas gracias, lo voy a incluir ahora mismo.

Empezado por Manuel

Otro pequeño aporte:

Gracias Manuel, eso mismo estoy haciendo, en lugar de usar el ALTER TABLE, usar el CONSTRAINT.

Salud OS.