当我试图运行以下代码时，我得到错误消息oledb异常

这是我的代码，它与一个按钮相关联。基本上我想重新计算“MI”的值，并自动更新所有数据库。当运行此代码我得到未处理OLEDB异常的额外信息当我试图运行以下代码时，我得到错误消息oledb异常

错误消息：太多的字段定义

。任何机构都可以帮助我找出它有什么问题。

CustomersBindingSource.MoveFirst() 
    Dim b As Integer 
    b = CustomersBindingSource.Count 
    Dim n As Integer 
    n = 0 
    While n <= b 
     Button1.PerformClick() 
     n = n + 1 
     CustomersBindingSource.MoveNext() 
    End While 

    Form7.Show()

来源

2015-06-24 SYED AQEEL ABBAS

你能与问候添加一些更详细的是什么_CustomersBindingSource_是？ –

你在哪里使用了这个代码中的oledb对象。？ –

尝试

While n <= b 
if n = b then 
    Button1.PerformClick() 
    n = n + 1 
else 
    n = n + 1 
    CustomersBindingSource.MoveNext() 
end if 
End While

这可能是可能的，它是一个指数出来试图运行CustomersBindingSource.MoveNext时的误差范围内（）

来源

2015-06-24 12:31:11 user3841709

当我试图运行以下代码时，我得到错误消息oledb异常

回答

相关问题