绑定控件调用seek方法没有找到匹配记录时报错.txt

VB技巧问答10000例 VB技巧问答10000例

出 现 这 个 问 题 的 原 因 是 你 有 其 它 控 件 (如 TextBox)与 Data控 件 绑 定 ,当 调 用 Seek方 法 没 有 找 到 匹 配 记 录 时 ,"If the Seek method fails to locate a match, the NoMatch property is set to True, and the current record is undefined."(MSDN),所 以 TextBox会 报 个 错 误 。 
    解 决 的 方 法 是 在 查 询 前 解 除 TextBox与 Data控 件 间 的 绑 定 Set Text1.DataSource=Nothing,然 后 进 行 查 询 ,最 后 再 恢 复 绑 定 链 接 就 可 以 了 。 
<END>    
1.你 能 否 试 着 用 代 码 编 程 (DAO),使 用 代 码 编 程 比 使 用 控 件 绑 定 要 快 很 多 且 容 易 控 制 。 
    建 议 :真 正 的 数 据 库 程 序 是 不 会 要 数 据 控 件 去 绑 定 的 ,应 该 有 自 已 的 代 码 。 
    dim rs as recordset 
    set rs=db.openrecordset(SQL 语 句 ) 
    if rs.recordcount>0 then 
     .... 
    else 
     msgbox "No match Recordset!" 
    end if 
    rs.close 
    2.建 议 使 用 ADO编 程 。 ADO的 速 度 比 DAO快 很 多 。 
<END>