UC知道VB 操作Access数据库
来源：百度知道 编辑：UC知道 时间：2024/06/06 05:05:25
我是 Data + Access 组成的
如:
i=1
for a=1 to 11
for s=1 to 11
for d=1 to 11
m(i)=a+s+d
i=i+1
next a,s,d
现在,如何从ACCESS库中取出每一行数据与m(i)对比
(数据库):
序号 号码 和
0001 2 3 5 10 =(2+3+5)
0002 3 5 1 9 =(3+5+1)
0003 4 7 9 20 =(4+7+9)
0004 3 8 1 12 =(3+8+1)
0005 1 9 5 15 =(1+9+5)
.
.
.
请问,如何读取ACCESS中的数据,让它每"一行的和"与 m(i) 对比.
for i=1 to 1000
if m(i)=10,9,20,12,15.....(让access的每一行的和{10,9,20,12,15...}来与m(i)进行比较.如何循环读取Access中的和)(这里该怎样表达?)
a=1 (如果相等,a=1)
end if
next i
如:
i=1
for a=1 to 11
for s=1 to 11
for d=1 to 11
m(i)=a+s+d
i=i+1
next a,s,d
现在,如何从ACCESS库中取出每一行数据与m(i)对比
(数据库):
序号 号码 和
0001 2 3 5 10 =(2+3+5)
0002 3 5 1 9 =(3+5+1)
0003 4 7 9 20 =(4+7+9)
0004 3 8 1 12 =(3+8+1)
0005 1 9 5 15 =(1+9+5)
.
.
.
请问,如何读取ACCESS中的数据,让它每"一行的和"与 m(i) 对比.
for i=1 to 1000
if m(i)=10,9,20,12,15.....(让access的每一行的和{10,9,20,12,15...}来与m(i)进行比较.如何循环读取Access中的和)(这里该怎样表达?)
a=1 (如果相等,a=1)
end if
next i
dim rs as recordset
dim i
dim iCount as integer
dim lRecord as long
……
while not rs.eof
for i=0 to 4 '循环相加行,假设有五列
lRecord =lRecord + rs(i)
next
if m(iCount )=lRecord then
debug.print "第" & iCount & "行的和与m(" & iCount & ")的值相等"
a=1
else
debug.print "第" & iCount & "行的和与m(" & iCount & ")的值不相等"
end if
iCount =iCount +1
loop