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