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

veld

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

漠北雪~狼

$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

回答的非常好

abcabc8759

用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

我来说说:

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

跨日

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

k1727

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

4ndy

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