Como creo tablas para Access con Ado?

[logan_James]

Hola! Soy nueo en esto. Estoy tratando de hacer una aplicacion con delphi 5. Esta usa msaccess, pero no se como crear las tablas dinamicamente. Tampoco pude hacer andar el ejemplo de TField de la ayuda. Si me ayudan se los agradeceria.

[Toñico]

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 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.