Suche kostenlose Datenbank für Internetanwendung

[Mavarik]

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