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

最近在学习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;
阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页