VS中VB连接ACCESS数据库代码求问为什么conn.open(strConn)这里一直出错
答案:2 悬赏:70 手机版
解决时间 2021-04-03 16:07
- 提问者网友：暮烟疏雨之际
- 2021-04-03 06:41
VS中VB连接ACCESS数据库代码求问为什么conn.open(strConn)这里一直出错
最佳答案
- 五星知识达人网友：詩光轨車
- 2021-04-03 06:48
你说的错误的地方应该是数据库名没有完整的路径！
好几个地方有问题，把代码贴上来，不要贴图追问新手出来多多帮助学校作业最好帮我改详细的写下解释谢谢了QQ:812195758追答If TextBox1.Text <> "" And TextBox2.Text <> "" Then
Dim strConn As String
Dim strSQL As String
Dim conn
Dim rs As New ADODB.Recordset
conn = New Odbc.OdbcConnection
strConn = "provider=Microsoft.Jet.oledb.4.0;data source=" & "c:/db1.mdb" '确认mdb文件得路径是否正确
conn.Open (strConn)
strSQL = "select * from admin where name='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'"
rs.Open strSQL, conn, adOpenStatic, adLockBatchOptimistic
If rs.EOF Then
MsgBox "用户名称或密码错误！", vbOKOnly + vbExclamation, "警告"
TextBox1.Text = ""
TextBox2.Text = ""
rs.Close
conn.Close
Else
Form2.Show 1
End If
End If追问能加个QQ教我吗
好几个地方有问题，把代码贴上来，不要贴图追问新手出来多多帮助学校作业最好帮我改详细的写下解释谢谢了QQ:812195758追答If TextBox1.Text <> "" And TextBox2.Text <> "" Then
Dim strConn As String
Dim strSQL As String
Dim conn
Dim rs As New ADODB.Recordset
conn = New Odbc.OdbcConnection
strConn = "provider=Microsoft.Jet.oledb.4.0;data source=" & "c:/db1.mdb" '确认mdb文件得路径是否正确
conn.Open (strConn)
strSQL = "select * from admin where name='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'"
rs.Open strSQL, conn, adOpenStatic, adLockBatchOptimistic
If rs.EOF Then
MsgBox "用户名称或密码错误！", vbOKOnly + vbExclamation, "警告"
TextBox1.Text = ""
TextBox2.Text = ""
rs.Close
conn.Close
Else
Form2.Show 1
End If
End If追问能加个QQ教我吗
全部回答
- 1楼网友：酒者煙囻
- 2021-04-03 08:16
conn.open strConn
strSQL=....
rs.open strSQL,conn,1,3
strSQL=....
rs.open strSQL,conn,1,3
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯