dim adoAA as recordset dim aa as string aa=adoAA.fields("name") 以上只是简写代码,中间空了很多
private conn as adodb.connection private rs as adodb.recordset dim a(i) as sting set conn.connection="DSN=mydata" set rs=new adodb.recordset rs.open "select * from database",conn,adopenstatic,adlockoptimistic for i=0 to rs.recordcount a(i)=rs.fields("name") rs.movenext next i
Dim strA as String strA=adoAA.fields("name").value
dim adoAA as recordset dim aa as string aa=adoAA.fields("name")
dim aa as string
aa=adoAA.fields("name")
以上只是简写代码,中间空了很多
private rs as adodb.recordset
dim a(i) as sting
set conn.connection="DSN=mydata"
set rs=new adodb.recordset
rs.open "select * from database",conn,adopenstatic,adlockoptimistic
for i=0 to rs.recordcount a(i)=rs.fields("name")
rs.movenext
next i
strA=adoAA.fields("name").value
dim aa as string
aa=adoAA.fields("name")