有没有读.mdb（ms access 2000)的源程序？

Question

都一样啊procedure TForm1.ListView1Click(Sender: TObject);
var
de:string;
begin
  if listview1.Selected = nil then exit;  //这里，，啦  de:=listview1.Selected.Caption;
  adotable3.Open;
  adotable3.First;
   while not adotable3.Eof do
   begin
    if de=adotable3.FieldValues['书名'] then
       exit
    else adotable3.Next;
    end;
 end;

Answer 1

用adoconnection连接mdb文件，然后用adoquery打开就可以了
参考一下delphi的demo吧

Answer 2

我用的是ADOQUERY
if adoquery1.active then adoquery1.close;
    adoquery1.connectionstring := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + '' + GetCurrentDir() + '' + '\'+'sj\datebase.mdb;JET OLEDB:Database password = 8YLA1-2CSFK-FHQKHNZH';
    adoquery1.sql.text := 'select * from datebase';
    adoquery1.open;

Answer 3

我用的是adoquery1
if adoquery1.active then adoquery1.close;
    adoquery1.connectionstring := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + '' + GetCurrentDir() + '' + '\'+'sj\datebase.mdb;JET OLEDB:Database password = 8YLA1-2CSFK-FHQKHNZH';
    adoquery1.sql.text := 'select * from datebase';
    adoquery1.open;

Answer 4

我用adoconnection连接成功了，怎么打开啊？

Answer 5

fhqkhnzh(剑宇)。
adoquery1.open以后怎么办？
怎么看到现实的东西？