VB怎么调用数据库表中的某一具体值

Question

VB比如我有一个数组x(0 To 20, 0 To 10)，还有一个ACCESS数据库表，id SNO
1 53
2 36
我想把53赋值给X（0,0）,36赋值给 X（0,1）

Answer 1

首先连接数据库：
： Set objcn = New Connection
With objcn
.Provider = "SQLOLEDB"
.ConnectionString = "uid=sa;pwd=123;Data source=127.0.0.1;initial catalog=student"
.Open
End With
然后实例化一个记录集‘
Set objstudent = New Recordset
With objstudent
Set .ActiveConnection = objcn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open "select * from 表名 where 条件"
End With
最后赋值
比如
objstudent .Find "id'" & Trim(文本框的内容) & "'"比如你在文本框中输入“1”，意思就是把id=1的sno改为53
objstudent.Fields"sno"=53
这样就把id’=1的sno改为53
其实又一个指针只想第一行，要改第二行
2.使用movenext方法，
重复objstudent.Fields"sno"=36
这样就把id’=2的sno改为36
2使用上面地方法，将文本框的内容改为2，意思是id=2
objstudent .Find "id'" & Trim(文本框的内容) & "'"
objstudent.Fields"sno"=36
希望可以帮到你