vb+access Refresh方法的adodc失败
PrivateSubForm_Load()'OnErrorResumeNextDimiAsIntegerAdodc1.RecordSource="select*from通...
Private Sub Form_Load()
'On Error Resume Next
Dim i As Integer
Adodc1.RecordSource = "select * from 通讯录" '连接电话号码表表
Adodc1.Refresh '刷新连接
cmbField.Clear '清空cmbfield
For i = 0 To Adodc1.Recordset.Fields.Count - 1
'将第个字段的名字作为一个项目，添加到cmbfield中
cmbField.AddItem Adodc1.Recordset.Fields(i).Name
Next i
cmbField.Text = cmbField.List(0) '默认显示第一条记录
End Sub
FROM子句语法错误，错误指下Adodc1.Refresh 展开
'On Error Resume Next
Dim i As Integer
Adodc1.RecordSource = "select * from 通讯录" '连接电话号码表表
Adodc1.Refresh '刷新连接
cmbField.Clear '清空cmbfield
For i = 0 To Adodc1.Recordset.Fields.Count - 1
'将第个字段的名字作为一个项目，添加到cmbfield中
cmbField.AddItem Adodc1.Recordset.Fields(i).Name
Next i
cmbField.Text = cmbField.List(0) '默认显示第一条记录
End Sub
FROM子句语法错误，错误指下Adodc1.Refresh 展开
1个回答
展开全部
连接数据源的原因，看看连表的时候是不是用的select语句，不是的话就会提示错误！
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
金山毒霸
2024-10-31 广告
大部分系统错误，是因为某些DLL文件丢失造成的，比如未安装DirectX9或DirectX 9.0组件已损坏、缺少Visual C ++库、未安装.net库。解决方法如下：一、 手动解决方法1、先确定电脑操作系统是多少位的，现在的电脑一般都...
点击进入详情页
本回答由金山毒霸提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
