Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Prism access mit ado.net (https://www.delphipraxis.net/84998-access-mit-ado-net.html)

mavi099 24. Jan 2007 14:00

Datenbank: access • Version: 2000 • Zugriff über: ADO

access mit ado.net
 
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:Dataset;
dt:DataTable;
i:Integer;
rw:DataRow;
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:47 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz