怎样在vb5下实现对数据库按字段组合查询.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 14 行

关 于 的 字 段 组 合 查 询 可 用 Querydef对 象 来 实 现 。 例 ： 一 数 据 库 有 一 nps表 内 有 name,phone,address三 个 字 段 ， 用 户 选 择 对 name,phone进 行 查 询 ， 并 在 相 应 的 textname,textphone中 输 入 了 要 查 询 的 值 。 代 码 如 下 (假 定 已 打 开 数 据 库 )： 
    Dim dbqu As Dao.QueryDef, dbre As Dao.Recordset 
    Dim strsql As String 
     
    strsql="parameters[nam1] string,[phone1] string; " 
    strsql=strsql+"select * from nps where name=[name1] and phone=[phone1]" 
    Set dbqu=db.CreateQuerydef("",strsql) 
    dbqu.parameters("name1") = textname.text 
    dbqu.parameters("phone1") = textphone.text 
    Set dbre=dbqu.OpenRecordset() 
    在 vb6的 帮 助 中 有 详 细 说 明 。 
<END>