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
DatabaseTables := Nil;
DatabaseTables := TStringList.Create;
ADOCommand.Connection := ADOConnection;
ADOConnection.GetTableNames(DatabaseTables,False);
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;
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.