论坛 › 『 提问交流 』 › 请教MDB数据库 查找并读取该条记录

veld 发表于 2008-8-16 21:20:55

请教MDB数据库 查找并读取该条记录

DIM $CARDNO="123123"
$RS.Open ('Select * From tblCardInfo where '& "CardNo" &'=' & '"' & $CARDNO & '"')
我要找到数据库tblCardInfo 中CardNo 字段=123123的那条记录，并将该条记录下的NAME字段和PASS字段显示出来或放入一个函数中
请问该怎么实现

漠北雪~狼 发表于 2008-8-17 08:16:49

$s_Tablename = "tblCardInfo"
$s_FindFieldName = "CardNo"
$s_FindData = "123123"

$Rs.Open("Select * From " & $s_Tablename & " where " & $s_FindFieldName & "='" & $s_FindData & "'")

While (Not $Rs.eof And Not $Rs.bof)
        If @error = 1 Then        ExitLoop
;                For $x = 1 To $s_RetrunDataNum
;                        $Return[$x] = $o_adoRs.Fields($x).value
;                Next
        $Return = $Rs.Fields(0).value
        $o_adoRs.movenext
WEnd

tvzml 发表于 2008-9-19 13:14:51

回答的非常好

abcabc8759 发表于 2008-9-20 21:45:58

用AU3也二年了，但只是限于实用的程序范围，近日接触数据库，总是写不好，版主的程序写的不错，但我看的不太懂，能不能详细说一下啊，谢谢！
尤其是：
While (Not $Rs.eof And Not $Rs.bof)
      If @error = 1 Then      ExitLoop
;                For $x = 1 To $s_RetrunDataNum
;                        $Return[$x] = $o_adoRs.Fields($x).value
;                Next
      $Return = $Rs.Fields(0).value
      $o_adoRs.movenext
WEnd

huangke 发表于 2008-9-20 22:21:35

我来说说:

While (Not $Rs.eof And Not $Rs.bof); 判断记录为不为空
      If @error = 1 Then      ExitLoop
;                For $x = 1 To $s_RetrunDataNum
;                        $Return[$x] = $o_adoRs.Fields($x).value
;                Next
      $Return = $Rs.Fields(0).value;逐条记录查询，直到查到符合的记录
      $o_adoRs.movenext；指针指向下一条
WEnd

跨日 发表于 2008-9-22 16:22:34

数据库操作，牛，还没接触到

k1727 发表于 2008-9-24 02:51:32

会用accesscom里面的函数就可以解决了。
管他什么sql的语法。效率第一。

4ndy 发表于 2008-10-27 03:58:51

数据库名字在哪连接，比如我有自己的一个序列号然后想读数据库中他没有这一条数据，如果有则执行下面的程序应该怎样？
麻烦赐教

查看完整版本: 请教MDB数据库 查找并读取该条记录