Foros Club Delphi - Como creo tablas para Access con Ado?

Hola logan_James,

Tendrás que usar dos componentes de ADO: TAdoConnection y TAdoCommand.

En el ConnectionString del TAdoConnection tendrás que definir el acceso a la base de datos. Para crear las tablas comprobando antes que no existan uso el siguiente procedimiento:

Código:

  

Código Delphi [-]

 

procedure TDM.GenerarFichero;

Var

    cSQL: String;

    DatabaseTables: TStrings;

begin

    Try

// Tablas de la base de datos

        DatabaseTables := Nil;

        DatabaseTables := TStringList.Create;

        ADOCommand.Connection := ADOConnection;

        ADOConnection.GetTableNames(DatabaseTables,False);

// Crear tabla si no existe

        If DatabaseTables.IndexOf('Nombre_Tabla') = -1 then

        Begin

            cSQL := 'Create TABLE Nombre_Tabla (' +

                'Campo1 String(1), ' +

                'Campo2 Long, ' +

                'Campo3 String(18), ' +

                'Campo4 String(20) ' +

                ')';

            ADOCommand.CommandText := cSQL;

            ADOCommand.Execute;

// Crear clave primaria

            cSQL := 'CREATE INDEX idxPrimary '+

                'ON Nombre_Tabla (Campo2) WITH PRIMARY';

            ADOCommand.CommandText := cSQL;

            ADOCommand.Execute;

        end;

    Except

        on E: Exception do

        begin

            MessageDlg(E.Message,  mtWarning, [mbOk], 0);

            Application.Terminate;

        end;

    End;

end;

Un saludo.