2个回答
展开全部
Set conn = New ADODB.Connection
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\工程\vb与数据库的链接\代码型连接\通讯录管理.mdb;"
conn.Open connstr
Set rs = New ADODB.Recordset
Dim strsql As String
strsql = "select * from 成绩表 "
rs.Open strsql, conn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\工程\vb与数据库的链接\代码型连接\通讯录管理.mdb;"
conn.Open connstr
Set rs = New ADODB.Recordset
Dim strsql As String
strsql = "select * from 成绩表 "
rs.Open strsql, conn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询