hallo,
bin ein absoluter newbie, ich hoffe ihr könnt mir helfen meinen horizont zu erweitern
möchte mit meiner anwendung auf eine lokale access2000 datenbank zugreifen, dies ist mein Code:
constructor frmHoseChoice.Create;
var connStr,selStr :System.String;
conn:OleDbConnection;
da:OleDbDataAdapter;
ds
ataset;
dt
ataTable;
i:Integer;
rw
ataRow;
sl:system.String;
pfadA:system.String;
Error:Boolean;
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.
//with openfiledialog1 do
// begin
// initialdirectory:=application.ExecutablePath;
// defaultext:='mdb';
// filter:='
Access Files (*.mdb)|*.mdb|Alle Dateien (*.*)|*.*';
// if ShowDialog()=System.Windows.Forms.DialogResult.OK then pfadA:= FileName;
//end;
connStr :='Provider=Microsoft.Jet.OLEDB.4.0;'
// + 'DataSource=C:\workdir\delphi\SchlauchmontageProgr amm';
+ 'DataSource=.\HoseDatabase.mdb';
conn:=OleDbConnection.Create(connStr);
ds:=Dataset.Create;
selStr:='SELECT tbHose.HoseType ' +
'FROM tbHose;';
da:=OleDbDataAdapter.Create(selStr,conn);
try
conn.Open;
da.Fill(ds);
conn.Close;
except
on ex:
Exception do
begin
MessageBox.Show(ex.Message);
Error:=TRUE;
end;
end;
if not Error then
begin
dt:=ds.Tables['Schlauchliste'];
for I := 0 to dt.Rows.Count - 1 do
begin
rw:=dt.Rows[i];
sl:=rw['Schlauchliste'].ToString;
HoseListBox.Items.Add(sl)
end;
end;
das problem ist, wenn ich diese anwendung ausführe kommt folgende Meldung:
"Installierbares ISAM nicht gefunden",
hab schon rumgegoogelt, aber keine brauchbare antwort gefunden, überall stand
nur, dass der connection-string nicht passt, jedoch kann ich hier keinen fehler finden,
die datenbank liegt eine ebene über dem projekt