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?
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