vb adocon无效限定符

来源：百度知道 编辑：UC知道 时间：2024/05/26 00:50:46
Private Sub cmdsend_Click()
Dim adocon As String
Dim myval As String
myval = MsgBox("是否发送订单？", vbYesNo + vbOKOnly, "提示")
If myval = vbYes Then
adocon.Execute ("insert into fsdd values ('" & Textddh & "','" & Textspm & "','" & Textsl & "','" & Textmdd & "','" & Textpsfs & "')")
MsgBox "发送成功！", , "信息提示"
On Error Resume Next
Adodc1.Recordset.Delete
Adodc2.Refresh
End If
End Sub

代码要求实现将文本框的值插入到数据库中，adocon老是出错，要不要使用adodc连接，希望高手告诉我怎么连接数据库，错误出在哪里.

'用adodb吧,从引用里添加 Microsoft ActiveX Data Objects 2.6 Labrary

'程序代码
private sub command1_click()
dim DB_conn as new adodb.connection
dim rs as adodb.recordset
DB_Initial
set rs=record("查询代码",DB_conn)
end sub

'连接数据库过程
Private Sub DB_Initial()
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\data\data.mdb"
'On Error Resume Next
DB_Conn.Open strConn, "admin"
If Err Then
MsgBox "数据库连接错误，请检查文件！"
End
End If
End Sub

'获取一个记录集对象
Public Function Record(strRstTemp As String) As ADODB.Recordset
On Error Resume Next
Dim rstTemp As New ADODB.Recordset
rstTemp.ActiveConnection = DB_Conn
rstTemp.CursorType = ADODB.CursorTypeEnum.adOpenKeyset
rstTemp.Loc