Allen 2010-06-14 11:05:49 11441 0 0 0 0

  

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;
 
此种方法只能建立一个查询,应该还有其它的方法,可以建立一个连接,然后用此连接建多个查询。未测试,应该很简单的……使用时再说吧。
 

【版權聲明】
本文爲原創,遵循CC 4.0 BY-SA版權協議!轉載時請附上原文鏈接及本聲明。
原文鏈接:https://tdlib.com/am.php?t=04087XfXgWeJ
Tag: Delphi技巧 TTTBLOG
我也要發一個   ·   返回首頁   ·   返回[Delphi]   ·   前一個   ·   下一個
歡迎評論
未登錄,
請先 [ 註冊 ] or [ 登錄 ]
(一分鍾即可完成註冊!)
返回首頁     ·   返回[Delphi]   ·   返回頂部