visual studio 2010 编写VB 程序,怎样获取access数据库的表table1中的一个值并把它赋值给我自己定义的变量str(Dim str As String)中,例如表table中有number,name,address等信息,我怎样可以获得number为2001的name,并赋值给str,使得str为查询所得的name,以便能够通过其它方式调用str
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本回答被网友采纳