Question

vb中adodc.refresh出现错误？

我在运行程序时，弹出窗口：实时错误'-2147217900(80040e14)'
对象'Refresh'的方法'IAdodc'失败 ？？？
这是为啥？问题出在哪？
我的程序是：
Private Sub Command1_Click()
Dim mystr As String
If Command1.Caption = "查询" Then
If DataCombo1.Text <> "" Then
Command1.Caption = "全部显示"
mystr = "select * from 世界杯积分榜 where 名次 ='" & DataCombo1.Text & "'"
Adodc1.RecordSource = mystr
End If
Else
Command1.Caption = "查询"
Adodc1.RecordSource = "select * from 世界杯积分榜"
End If
Adodc1.Refresh
End Sub
你所说的是记录源，但我早已经弄了，它就是出错，哎
我已经连了数据库了，所以不用那一句了

Answer 1

你把记录源去掉就在程序中写:
在Private Sub Command1_Click()
和
Dim mystr As String
之间再加上一句adodc1.connectionstring="provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\数据库;Jet OLEDB:Database Password=你的数据库密码"

Answer 2

名次 字段是什么类型呢?
如果是数值类型,这样试试看
mystr = "select * from 世界杯积分榜 where 名次 =" & val(DataCombo1.Text)

Answer 3

有将adodc1的一个属性，我忘了是什么了，那个把8改成2就OK了