Allen
2010-06-14
11:05:49
12921
0
0
0
0
Tag:
Delphi技巧
TTTBLOG
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 beginclose;dm.AQR_BUFFER_010.Parameters.ParamByName('JOB_NO').Value := edtJob_No.text;open;if recordcount<=0 then beginx_pMsg:='未找到有效数据!' ;messageDlg(x_pMsg,mtInformation,[mbOk],0);exit;end;while not eof do beginpTxt := fieldByName('PART_NO').AsString;next;end;
此种方法只能建立一个查询，应该还有其它的方法，可以建立一个连接，然后用此连接建多个查询。未测试，应该很简单的……使用时再说吧。
评论
