Fehler mit dem Microsoft Acces Driver

**bennle**

Hallo,
Ich habe den Fehler:
'[Microsoft][ODBC Microsoft Access Driver] Datei (Unbekannt)nicht gefunden'

Ich verstehe nicht genau warum der kommt.

Zum Ablauf:
Ich habe eine Listbox, welche über eine Datenbank gefüllt wird. Wir ein eintrag ausgewählt, dann wird die nummer in einem Label ausgegeben bzw in die nexte Listbox die Unterkategorie gegeben.

Sobald ich aber ein Bildlink mit OpenPictureDialog geöffnet habe, kommt dieser Fehler. Bzw erst wenn ich wieder eine Änderung in der Listbox mache.

Woran kann das Liegen?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm8.ListBox2Click(Sender: TObject);  

var  

a,b,p: String;  

begin  

a3.Clear;a4.Clear;a5.Clear;a6.Clear;  

p:=a2[listbox2.ItemIndex];  

listbox1.Color:=clsilver;listbox2.Color:=clsilver;  

listbox1.clear;listbox2.clear;  

ADOCOnnection1.ConnectionString:='DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=database.mdb';  

ADOCOnnection1.Open;  

adoquery1.Connection:=ADOConnection1;  

adoquery1.SQL.Text:='SELECT * FROM daten WHERE id=''' + p + '''';  

adoquery1.Open;  

if adoquery1.Eof then begin  

 label1.Caption:=a2[listbox2.ItemIndex];  

end else begin  

while not adoquery1.Eof do begin  

a:=adoquery1.FieldByName('cat_name').AsString;  

b:=adoquery1.FieldByName('cat_id').AsString;  

listbox2.AddItem(a,nil);  

a3.Add(b);  

adoquery1.Next;  

end;  

listbox2.Color:=clwhite;  

label2.Caption:='';  

end;  

ADOQuery1.Close;  

ADOConnection1.Close;  

end;

MfG
Bennle

Fehler mit dem Microsoft Acces Driver

Fehler mit dem Microsoft Acces Driver

Forumregeln