Delphi 7中ADO控件打开Access数据库文件

来源：互联网发布：拦截广告软件编辑：程序博客网时间：2024/05/17 23:56

最近在学习delphi 7编程，尽管已经这门语言已经落寞了，但是作为新手，我目前觉得delphi难度比其他的小，可能与可视化环境有关，尤其很多控件拖拖拖就可以了。以下理解可能有很多错误，希望高手指正，谢谢啦。

界面如下：
界面的图片

添加相关控件：

控件属性修改修改后的内容 ADOConnection1 ConnectionString ADOTable1 Connection ADOConnection1 DataSource1 DataSet ADOTable1 DBGird1 DataSource DataSource1

代码如下：

procedure TForm1.Button1Click(Sender: TObject);//“打开”按钮单击事件const//常量  dbadoconstr = 'Provider=%s;Data Source=%s;Persist Security Info=false';  //Provider=[驱动程序];Password=[密码];Persist Security Info=True;User ID=[用户名];Data Source=[数据源别名]  //Persist Security Info属性的意思是表示是否保存安全信息，其实可以简单的理解为"ADO在数据库连接成功后是否保存密码信息"，True表示保存，False表示不保存  dbprovider =  'Microsoft.Jet.OLEDB.4.0';//数据库驱动的名称var  myaccess : string;//定义数据库文件路径变量begin    OpenDialog1.FileName := '*.mdb';//打开文件的名称    if OpenDialog1.Execute then //如果文件打步骤执行了，就返回True    begin        myaccess := OpenDialog1.FileName; //文件路径        Edit1.Text := myaccess;//在Edit1中显示文件路径        ADOConnection1.Connected := False;        ADOConnection1.ConnectionString := Format(dbadoconstr,[dbprovider,myaccess]);        //上条语句为将格式化后的字符串给ConnectionString，用于连接数据库        ADOConnection1.Connected := True;        ADOConnection1.GetTableNames(ListBox1.Items);//获得数据库文件中所有的表的名称，赋值到listbox1.items中    end;end;procedure TForm1.ListBox1DblClick(Sender: TObject);//Listbox1中双击事件begin    ADOTable1.Close;//表名查询关闭    ADOTable1.TableName := ListBox1.Items.Strings[ListBox1.Itemindex];//将当前双击的表名赋值给ADOTable1的表名中。    ADOTable1.Open;//表名查询打开end;

0 0