VB实时错误,

来源：百度知道 编辑：UC知道 时间：2024/06/25 09:34:41
Option Explicit
Dim i As Integer '运用在FOR循环中的变量
Dim StrNum As Long '用于显示编号信息的变量
Dim StrTemp '用于显示编号信息的变量

Private Sub Command1_Click()
Adodc1.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sksj.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 付款信息 order by 编号"
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
StrNum = Val(Adodc1.Recordset.Fields("编号")) + 1 '如果数据库中存在记录则编号加一
Select Case Len(Trim(StrNum)) '位数不足则补0
Case 1
StrTemp = "00000"
Case 2
StrTemp = "0000"
Case 3
StrTemp = "

Adodc1.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sksj.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 付款信息 order by 编号"
Adodc控件已经设置了,又使用代码设置连接的!造成重复,删除一个即可!

检查你之前使用过的对象。
这个问题一般都是你更改了代码之后，对于对象的属性赋值之类的语句没有完全删除掉。

Adodc1是什么东西？如果是控件，看窗口上是否有对应控件，如果是引用类库的对象，要用 new 关键字定义新对象。

我看你应该是拷贝了别人的代码，忘记在窗口放控件了。不过不好意思，我猜不出Adodc1是什么控件，如果你是初学编程，那可能是控件栏里那个类似滚动条的数据库控件（不过那个好像叫data什么的）。