UC知道急！急！ VB连接数据库
来源：百度知道 编辑：UC知道 时间：2024/04/30 18:50:28
VB实现ACCESS数据库连接出问题。
出错的地方是，数据库连接以后，执行下面的语句出错
For i = 0 To 13
txtXHb(i).Text = rs.Fields(3).Value
txtXHk(i).Text = rs.Fields(4).Value
Next i
我个人分析认为是数据库的连接出问题，
如果不能解决，给能连接成功的源代码也可以。
答对了还要追加分数。。。。。。。。。。。。。。。。。
出错的地方是，数据库连接以后，执行下面的语句出错
For i = 0 To 13
txtXHb(i).Text = rs.Fields(3).Value
txtXHk(i).Text = rs.Fields(4).Value
Next i
我个人分析认为是数据库的连接出问题，
如果不能解决，给能连接成功的源代码也可以。
答对了还要追加分数。。。。。。。。。。。。。。。。。
那你要把连接数据库的代码贴上来我们才能帮你看啊，如果数据库连接出错，那么你可以在执行SQL语句之后，紧接着写一句：
MsgBox Rs.RecordCount
看看是否大于 0 ，如果是，那数据库连接没错，
如果等于 0 ，说明没有查询结果返回
帮你改了，试看看可以吗?
If rs.BOF = False And rs.EOF = False Then
For i = 0 To 13
txtXHb(i).Text = rs.Fields(3).Value
txtXHk(i).Text = rs.Fields(4).Value
Next i
End If
若不行可直接更改TextBox个别名称（不要用带有参数）。如：
If rs.BOF = False And rs.EOF = False Then
txtprice.Text = rs.Fields(1).Value
txtitem.Text = rs.Fields(2).Value
End If
Dim ca As New ADODB.Connection '定义数据库入口
Private Sub Form_Load()
ca.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\数据库文件.mdb" '连接数据库
txtXHb(i).Text = rs.Fields(3)
txtXHk(i).Text = rs.Fields(4)
goodluck