Question

VB+SQL的字段问题

问了很多,但是.......
我有两个字段,想比较他们的数据是否一样,如果一样,给一个变量store加1,另一个变量pro="正确"
fld0 fld1 fld2
.. A B
.. C D
.. B D
.. C C
就象这样,逐个记录的比较
我的部分代码
Set cn = New ADODB.Connection
temp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\题库.mdb;Persist Security Info=False "
cn.Open (temp) '打开与数据库的连接
'If cn.State = adStateOpen Then MsgBox "Connection to NorthWind Successful!"
Set adoRs = New ADODB.Recordset
adoRs.Open "select*from type2", cn, adOpenStatic, adLockOptimistic

Set fd1 = adoRs.Fields("ID")
Set fd2 = adoRs.Fields("题干")
Set fd3 = adoRs.Fields("选项1")
Set fd4 = adoRs.Fields("选项2")
Set fd5 = adoRs.Fields("选项3")
Set fd6 = adoRs.Fields("选项4")
Set fd7 = adoRs.Fields("正确答案")
Set fd8 = adoRs.Fields("选择的答案")
也就是比较fd7和fd8,比较答案,如果正确store=store+1,pro="正确"
说了3遍....应该.....
感谢一下 lzh741206
不过...为什么我出100分你的回答就正确了不得呢.?...或者说前面的是我没说清楚？？
代码很不错，楼主不生气 -_-| !!

Answer 1

Set cn = New ADODB.Connection
temp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\题库.mdb;Persist Security Info=False "
cn.Open (temp) '打开与数据库的连接
'If cn.State = adStateOpen Then MsgBox "Connection to NorthWind Successful!"
Set adoRs = New ADODB.Recordset
adoRs.Open "select*from type2", cn, adOpenStatic, adLockOptimistic
dim trueDA,selectDA as string'定义存放正确答案和选择答案的变量
adoRs.movefirst'将记录移到第一条记录上
while adoRs.EOF=flase'如果没有到记录集的最后一要记录的话
trueDA=cstr(adoRs.Fields("正确答案"))
selectDA=cstr(adoRs.fields("选择的答案"))
if trim(trueDA)=trim(selectDA) then
store=store+1
pro="正确"
stoRs.movenext
end if
wend

Answer 2

do while not adoRs.eof
if trim(adoRs!正确答案) = trim(adoRs!选择的答案) then
store=store+1
pro="正确"
end if
adoRs.movenext
loop

如果不要中间步骤的话
adoRs.Open "select count(*) from type2 where 正确答案 = 选择的答案", cn, adOpenStatic, adLockOptimistic
msgbox adoRs.Fields(0)