Delphi 8 - WinForms - Datenbankzugriff auf Paradox Dateien

[MaBuSE]

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

So ich hoffe das Ihr damit ein zurechtkommt.

Euer MaBuSE

[KoenVandemoortel]

Sehr vielen Dank für diese Hilfe!!!
Ich hatte schon eine ganze Woche gesucht auf diesem Problem und nichts gefunden. Jetzt funktionniert es endlich!

Nur noch eine Frage: wie kann ich BLOB-Felder meiner Tabellen sehen? Ich habe versucht mit einem PictureBox, aber das funktionniert nicht; er findet alle Felder in der Tabelle ausserhalb die Photo-Felder.