Question

visual studio 2010 编写VB 程序读取access数据库并获得所要的值

visual studio 2010 编写VB 程序，怎样获取access数据库的表table1中的一个值并把它赋值给我自己定义的变量str（Dim str As String）中,例如表table中有number,name,address等信息，我怎样可以获得number为2001的name，并赋值给str，使得str为查询所得的name，以便能够通过其它方式调用str

Answer 1

用vb的ado数据库访问组件 与系统odbc建立数据源连接
然后从ado的组件设置的access数据库中访问需要读取字段的表table1
然后用ado组件执行sql语句"select num from table1"
然后将其赋值给str

追问

请给出具体的程序，谢谢！

Answer 2

Dim DB As Database
Set DB = OpenDatabase("d:\school\xsmd.mdb")
Dim select_db As Recordset
Set select_db = DB.OpenRecordset("select * from table1 where number='2001'", dbOpenDynaset)
If select_db.RecordCount >= 1 Then
Dim str As String
str = select_db.Fields("name")
Print str
End If
工程中必须添加引用：microsoft DAO 3.6