WinForm mit lokalen Tabellen

[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