Announcement

Collapse
No announcement yet.

Probleme mit ADO und Paradox 7 (Defenition des ConnectionString)

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Probleme mit ADO und Paradox 7 (Defenition des ConnectionString)

    Ich möchte über ADO eine Paradox 7.0 Tabelle öffnen. Dabei möchte ich aber keine *.udl Datei verwenden, sondern <br>
    <b>direkt einen Connection String definieren</b>. Kann mir vielleicht jemand sagen wie er genau auszusehen hat. <br>
    Dabei sollten wenn möglich keine weiteren externen Eingriffe, z.B. über das ODBC-Administrator-Tool notwendig sein.

  • #2
    Hallo,

    das folgende Beispiel demonstriert, wie man mit ADO die verschiedensten Dateitypen (inkl. Paradox) öffnen kann:
    <pre>
    procedure TForm1.ButtonImportClick(Sender: TObject);
    begin
    ADOTableImport.Active := False;
    ADOConnImport.Connected := False;
    ADOConnImport.Provider := 'Microsoft.Jet.OLEDB.4.0';
    case RadioGroupExport.ItemIndex of
    0 : begin
    ADOConnImport.Properties['Extended Properties'].Value := 'dBASE 5.0';
    ADOConnImport.Properties['Data Source'].Value := 'C:\Temp';
    ADOTableImport.TableName := 'Export';
    end;
    1 : begin
    ADOConnImport.Properties['Extended Properties'].Value := 'Paradox 5.x';
    ADOConnImport.Properties['Data Source'].Value := 'C:\Temp';
    ADOTableImport.TableName := 'Export';
    end;
    2 : begin
    ADOConnImport.Properties['Extended Properties'].Value := 'HTML Import';
    ADOConnImport.Properties['Data Source'].Value := 'C:\Temp\Export.htm';
    ADOTableImport.TableName := 'Export';
    end;
    3 : begin
    ADOConnImport.Properties['Extended Properties'].Value := 'Text';
    ADOConnImport.Properties['Data Source'].Value := 'C:\Temp';
    ADOTableImport.TableName := 'Export.txt';
    end;
    4 : begin
    ADOConnImport.Properties['Extended Properties'].Value := 'Excel 8.0';
    ADOConnImport.Properties['Data Source'].Value := 'C:\Temp\Export.xls';
    ADOTableImport.TableName := 'Tabelle1';
    end;
    5 : begin
    ADOConnImport.Properties['Data Source'].Value := 'C:\Temp\Test1.mdb';
    ADOConnImport.Properties['Jet OLEDB:Engine Type'].Value := 5;
    ADOTableImport.TableName := 'Cust';
    end;
    end;
    ADOConnImport.Connected := True;
    ADOTableImport.Active := True;
    end;
    </pre>
    Für einen Schreibzugriff auf Paradox bzw. für das Öffnen von modernen Paradox-Versionen benötigt ADO (genauer gesagt die Microsoft JET ENGINE 4) jedoch eine installierte BDE

    Comment

    Working...
    X