Delphi连接access方法

June 14, 2010 | tags Delphi技巧   | views
Comments 0
Delphi连接access方法
---
来源：TTT BLOG [ http://www.taoyoyo.net/ttt/ ]
地址：http://www.taoyoyo.net/ttt/post/421.html
---

  

1，放入TAdoQuery控件
2，打开属性，单击connectionString，在弹出的窗口中选择“Use Connection String”，点击build，打开“数据链接属性”窗口。
3，在“提供程序”窗口，选择“Microsoft Jet 4.0 OLE DB Provider”
4，在“连接”窗口中，输入access数据库文件路径和密码，如果密码为空选择“空白密码”。
5，点击“测试连接”，如成功则连接OK。
此方法，也可以直接在代码中定义connectionString属性。
 
查询变量赋值稍有不同，如下：
 
    with dm.AQR_BUFFER_010 do begin
        close;
        dm.AQR_BUFFER_010.Parameters.ParamByName('JOB_NO').Value := edtJob_No.text;
        open;
        if recordcount<=0 then begin
            x_pMsg:='未找到有效数据!'  ;
            messageDlg(x_pMsg,mtInformation,[mbOk],0);
            exit;
        end;
        while not eof do begin
            pTxt := fieldByName('PART_NO').AsString;
            next;
        end;
 
此种方法只能建立一个查询，应该还有其它的方法，可以建立一个连接，然后用此连接建多个查询。未测试，应该很简单的……使用时再说吧。
 

--本文来源于[TTT BLOG]：http://www.taoyoyo.net/ttt/post/421.html
(提示：转载时请务必保留此版权信息或者注明来源。)




发表评论:

◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。