RSS订阅 | 匿名投稿
您的位置:网站首页 > 数据库 > 正文

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

作者:admin 来源: 日期:2017/12/31 9:38:42 人气: 标签:Access ADO

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

界面如下: 

添加相关控件:

控件属性修改修改后的内容
ADOConnection1ConnectionString
ADOTable1ConnectionADOConnection1
DataSource1DataSetADOTable1
DBGird1DataSourceDataSource1

代码如下:

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
0
0
0
0
0
0
本文网址:
下一篇:没有资料