有没有VB高手在啊
我要帮助
我这个程序老是弹“3704 对象关闭时不允许操作”
错误的代码如下Private Sub cmdDelete_Click()
If MsgBox("您确实要删除记录吗?", vbOKCancel, "系统提示") = vbOK Then
adoCon.Execute ("delete from 车辆档案 where 车牌号码='" & Text1 & "'")
MsgBox " 记录已删除!", , "系统提示"
Adodc1.Refresh
Adodc1.RecordSource = "select * from 车辆档案"
Adodc1.Refresh
End If
End Sub同时我也建立了模板代码如下Public adoCon As New ADODB.Connection
Public adors As New ADODB.Recordset
Public Sub main()
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;Persist Security Info=False"
End SubFunction valiText(keyIn As Integer, validateString As String, Editable As Boolean) As Integer
Dim valiDatelist As String
Dim keyOut As Integer
If Editable = False Then
valiDatelist = UCase(validateString) & Chr(8)
Else
valiDatelist = UCase(validateString)
End If
If InStr(1, valiDatelist, UCase(Chr(keyIn)), 1) > 0 Then
keyOut = keyIn
Else
keyOut = 0
Beep
End If
valiText = keyOut
End Function
我要帮助
我这个程序老是弹“3704 对象关闭时不允许操作”
错误的代码如下Private Sub cmdDelete_Click()
If MsgBox("您确实要删除记录吗?", vbOKCancel, "系统提示") = vbOK Then
adoCon.Execute ("delete from 车辆档案 where 车牌号码='" & Text1 & "'")
MsgBox " 记录已删除!", , "系统提示"
Adodc1.Refresh
Adodc1.RecordSource = "select * from 车辆档案"
Adodc1.Refresh
End If
End Sub同时我也建立了模板代码如下Public adoCon As New ADODB.Connection
Public adors As New ADODB.Recordset
Public Sub main()
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;Persist Security Info=False"
End SubFunction valiText(keyIn As Integer, validateString As String, Editable As Boolean) As Integer
Dim valiDatelist As String
Dim keyOut As Integer
If Editable = False Then
valiDatelist = UCase(validateString) & Chr(8)
Else
valiDatelist = UCase(validateString)
End If
If InStr(1, valiDatelist, UCase(Chr(keyIn)), 1) > 0 Then
keyOut = keyIn
Else
keyOut = 0
Beep
End If
valiText = keyOut
End Function
解决方案 »
- 求教如何用vb编程解决IE脚本错误!!!
- 请懂得ADO的朋友帮我解决生成及处理数据库的难题.
- ***************如何禁止标题栏上的双击功能?*****************
- 关于SYBASES数据库向MDB中导入表的问题,请高手指教,谢谢
- 本人是菜鸟,请教大家一个问题
- VB中打开时ACCESS出错
- 高分求Install Shield 7.01正式版!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 如何拦截Flash控件通过getRUL()弹出的网页???
- 上位机监控系统?
- 請各位高手談談如何學習VB
- VB ActiveX控件实现截屏问题
- 求助。如何获得IE窗口的句柄
Private Sub cmdDelete_Click()
If MsgBox("您确实要删除记录吗?", vbOKCancel, "系统提示") = vbOK Then
adoCon.Execute ("delete from 车辆档案 where 车牌号码='" & trim(Text1.text) & "'")
MsgBox " 记录已删除!", , "系统提示"
Adodc1.RecordSource = "select * from 车辆档案"
Adodc1.Refresh
End If
End Sub
If MsgBox("您确实要删除记录吗?", vbOKCancel, "系统提示") = vbOK Then
Adodc1.ConnectionString =""‘连接数据库路径。
Adodc1.RecordSource = "delete from 车辆档案 where 车牌号码='" & trim(Text1.text) & "'"
MsgBox " 记录已删除!", , "系统提示"
Adodc1.Refresh
End If
End Sub
If MsgBox("您确实要删除记录吗?", vbOKCancel, "系统提示") = vbOK Then
Set Adodc1.Object = adoCon
Adodc1.RecordSource = "delete from 车辆档案 where 车牌号码='" & trim(Text1.text) & "'"
MsgBox " 记录已删除!", , "系统提示"
Adodc1.RecordSource = "select * from 车辆档案"
Adodc1.Refresh
End If
End Sub
是这个地方报错
我VB很差但是要做毕业设计没办法啊