Delphi-PRAXiS - Delphi Delphi 8 - WinForms - Datenbankzugriff auf Paradox Dateien

Zitat:

Zitat von Mauli

Hat es schon jemand geschaft - oder geht das überhaupt - auf eine lokale Paradox Tabelle zuzugreifen???

Ja, habe ich mittlerweile geschafft. (Tip aus Entwicklerforum von Andreas Kosch umgesetzt)

Es geht natürlich auch mit den Bordmitteln vom .NET Framework.

Hier eine genaue Anleitung (Tutorial):

1. Delphi 8 starten :zwinker:

2. Menü -> Datei -> Neu -> Windows Forms-Anwendung

3. Wenn in der "Tool Palette" -> "Data Components" nicht schon die OleDb... Komponenten sichtbar sind:
3.a) Menü -> Komponente -> installiere .NET-Komponenten... -> .NET-Komponenten aufrufen
3.b) Nach Kategorie sortieren (Klick auf Titelzeile der Tabelle)
3.c) zu Data Components scrollen
3.d) OleDbConnection, OleDbCommand, OleDbCommandBuilder, OleDbDataAdapter auswählen
3.e) falls ODBC benötigt wird -> Odbc... Komponenten auch auswählen
3.f) falls Oracle benötigt wird -> Oracle... Komponenten auch auswählen
3.g) falls MS-SQL Server nicht benötigt wird sql... Komponenten abwählen :mrgreen:
3.h) OK-Button drücken
3.i) nun sind unter der "Tool Palette" -> "Data Components" die OleDb... Komponenten sichtbar

4. OleDbConnection auf WinForm legen

5. Eigenschaft OleDbConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Programme\Gemeinsame Dateien\Borland Shared\Data;Extended Properties=Paradox 5.x;' setzen

6. OleDbCommand auf WinForm legen

7. Eigenschaft OleDbCommand1.CommandText := 'select * from biolife' setzen

8. Eigenschaft OleDbCommand1.Connection := OleDbConnection1 setzen

9. OleDbDataAdapter auf WinForm legen

10. Eigenschaft OleDbDataAdapter1.SelectCommand := Self.OleDbCommand1 setzen

11. Rechtsklick auf OleDbDataAdapter -> PopUp-Menü -> Datenmemge erzeugen

12. OK-Button drücken -> Es wird ein DataSet1 angelegt mit einer Tabelle drin

13. "Tools Palette" -> Data Controls -> DataGrid auf WinForm legen

14. Eigenschaft DataGrid1.DataSource := Self.DataSet11._Table setzen

15. Im Code den Constructor um eine Zeile ergänzen
Delphi-Quellcode:

constructor TWinForm.Create;
begin
inherited Create;
//
// Erforderlich für die Unterstützung des Windows Forms-Designers
//
InitializeComponent;
//
// TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
//
self.OleDbDataAdapter1.Fill(self.DataSet11);
end;

16. Programm starten und staunen :thuimb:

So ich hoffe das Ihr damit ein zurechtkommt.

Euer MaBuSE