Question

vb读取数据库并赋值

vb，用的是access数据库，从test表中，读取到学号为001学生的test值，然后赋值给num，怎么写~num是在代码里自己定义的一个量

Answer 1

'定义变量
dim access As New ADODB.Connection
dim res As New ADODB.Recordset
'连接数据库
access.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
               + " Data Source=" + App.Path + "\test.mdb; "
 res.Open "SELECT * FROM test  where  学号 = ‘001’", access, 1, 3
'取表中字段test
 num=res.Fields (test)