VB中adodc.refresh出现错误？ 对象'Refresh'的方法'IAdodc'失败

Private Sub Combo4_Click() zd = Combo4.Text tj = InputBox("请输入要查找的" & zd, "输入") Adodc1.RecordSource = "select * from 门诊表 where " & zd & " = '" & tj & "'" Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox "无符合标识的病人！" + Chr(13) + "请确认输入的信息", , "提示" Adodc1.RecordSource = "select * from 门诊表" Adodc1.Refresh End If End Sub

看你的程序，Adodc1应该是在窗体中放置的数据集控件，在使用这个控件时，要设置ConnectionString，进行数据库的连接，如果没有打开数据库，就会报这个错误。
一般不建议用控件进行数据库和数据集的连接，而是使用adoRecordset和adoConnect进行数据库连接。
1、定义adoConnect类型的变量db，用adoconnect先打开数据库。具体怎么写，我一下想不起来，你可以先百度一下。
2、定义adoRecordset类型的变量rec，打开数据集时，直接写rec=db.openRecordset("<SQL语句>")，好像是这样写。
3、rec中存放的就是SQL语句的结果，根据db打开数据库类型的不同，可以对数据集进行增删改查操作。

我再帮你找找相关代码，你先试试看。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息