UC知道VB中ADO控件怎么进行插入啊？
来源：百度知道 编辑：UC知道 时间：2024/05/16 01:28:15
这是我写的代码：
Private Sub COK_Click()
a:
If TNR.Text = Null Then
MsgBox "没有内容！"
GoTo a
b:
ElseIf TJE.Text = Null Then
MsgBox "金额是多少？"
GoTo b
ElseIf bz = False Then
je = 0 - TJE.Text
End If
time = Date
Ado.Recordset.MoveLast
bfye = TJE.Text + T.Text
Ado.Recordset.AddNew
Ado.Recordset.Source = "insert 班费使用记录 (日期,内容,金额,班费余额,备注) values (#" & time & "#," & TNR.Text & "," & TJE.Text & "," & bfye & "," & TBZ.Text & ")"
End Sub
其中，ADO控件是直接访问“仪表维护班各项公款记录.mdb”文件的。
运行后，它老说对象打开时不允许操作。我错在哪了？
Private Sub COK_Click()
a:
If TNR.Text = Null Then
MsgBox "没有内容！"
GoTo a
b:
ElseIf TJE.Text = Null Then
MsgBox "金额是多少？"
GoTo b
ElseIf bz = False Then
je = 0 - TJE.Text
End If
time = Date
Ado.Recordset.MoveLast
bfye = TJE.Text + T.Text
Ado.Recordset.AddNew
Ado.Recordset.Source = "insert 班费使用记录 (日期,内容,金额,班费余额,备注) values (#" & time & "#," & TNR.Text & "," & TJE.Text & "," & bfye & "," & TBZ.Text & ")"
End Sub
其中，ADO控件是直接访问“仪表维护班各项公款记录.mdb”文件的。
运行后，它老说对象打开时不允许操作。我错在哪了？
vb中有多处不规范的地方，程序跑起来容易出问题，上面的朋友都讲到了你的问题，从SQL语句讲，insert后面没有into也是不规范的。
不要用 Ado.Recordset.AddNew
或者用完后 ado.recordset.update 一下
还有你用的 goto 语句， 让我叹为观止。一个字：服，没见过VB编程用goto语句的。
你要实现什么的功能呢？
If TNR.Text = Null Then
MsgBox "没有内容！"
这个不好判断吧，是不是这个意思哦，
If TNR.Text = "" Then
MsgBox "没有内容！"
exit sub
ElseIf TJE.Text = "" Then
MsgBox "金额是多少？"
exit sub
ElseIf bz = False Then
je = 0 - TJE.Text '好像不能运算吧？？类型不配
End If