Delphi+Ado 的 Demo

procedure TForm1.OpenO1Click(Sender: TObject);//File->open..
begin
  if OpenDialog1.Execute then
  Edit1.Text:=OpenDialog1.FileName;
end;

procedure TForm1.BBTNOpenClick(Sender: TObject);//打开数据库
var szPath:string;  //用来接收输入的路径
begin
  ListBox1.Clear;
  ADOConnection1.Close;
  ADOQuery1.Close;
  ADOQuery1.Active:=False;
  //LTableList_ItemIndex:=0;
  if Trim(ComboBox1.Text)<>'' then
    begin
      DataSource1.DataSet:=ADOQuery1;
      ADOConnection1.LoginPrompt:=false;
      try
        if Trim(ComboBox1.Text)='OLEDB.4.0 *.mdb'  then
          begin
            ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Sour