Nimm einfach die
ADO... Das ist eigentlich spätermal auch komp. zu einem
SQL Server, fallst Du mal umstellen mußt... Aber zu diesem Thema gibt es ja momentan einige Threads hier...
Um die Datenbanken zu erzeugen, nehme ich noch eine ADOX Komponente, weil Du mit
ADO
zwar auf alles zugreifen kannst, aber sich leider keine *.mdb erzeugen lassen.
Dann sieht das ganze so aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
DataSource : string;
dbName,cs : string;
begin
dbName:='c:\Web\Datenbanken\Kassenbuch.mdb';
DataSource :=
'Provider=Microsoft.Jet.OLEDB.4.0' +
';Data Source=' + dbName +
';Jet OLEDB:Engine Type=5';
Catalog1.Create1(DataSource); // ADOX Komponente wird nur hierfür benötigt.
ADOConnection1.ConnectionString := DataSource;
ADOConnection1.LoginPrompt := False;
ADOCommand1.Connection := ADOConnection1;
cs:='CREATE TABLE Kassenbuch (' +
'ID COUNTER,'+ // NOT NULL IDENTITY PRIMARY KEY,' +
'Aktiv YESNO,'+
'Datum DATE,'+
'BelegDatum DATE,'+
'Betrag CURRENCY,'+
'Aufzahlung CURRENCY,'+
'Vermerk Text(30),'+
'GKonto Text(6),'+
'Erfasser Text(2),'+
'Summe CURRENCY)';
ADOCommand1.CommandText := cs;
ADOCommand1.Execute;
cs:='CREATE UNIQUE INDEX idxPrimary '+
'ON Kassenbuch (ID, Datum) WITH PRIMARY';
ADOCommand1.CommandText := cs;
ADOCommand1.Execute;
end;
Fertig ist Deine Datenbank fürs Kassenbuch
Hierfür habe ich mir einmal ein kleines Tool geschrieben und fertig... Wenn ich also nicht "onthefly" Datenbanken
erzeugen muss, brauche ich nichtmal die ADOX in mein Project zu übernehmen... Somit sind meine Projecte wieder "nur"
mit Bordmitteln zu erzeugen... Also auch mit den gängigen Delphi-Versionen.
Frank
