-2147217913(80040e07)标准表达式中数据类型不婚配
-2147217913(80040e07)标准表达式中数据类型不匹配
Option Explicit
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Public Function ConnectionToServer(strpath As String) As Boolean
On Error GoTo connectErr
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strpath & "db1.mdb"
cnn.ConnectionTimeout = 30
cnn.Open
ConnectionToServer = True
Exit Function
connectErr:
ConnectionToServer = False
MsgBox "错误代码: " & Err.Number & vbCrLf & _
"错误描述: " & Err.Description, vbCritical + vbOKOnly, "连接错误"
End Function
Public Function DisConnect() As Boolean
If cnn.State = adStateOpen Then
cnn.Close
End If
DisConnect = True
End Function
Public Function ExecuteSQL(ByVal strSQL As String) As Boolean
' On Error Resume Next
cnn.Execute (strSQL)
If Err.Number > 0 Then
Err.Clear
ExecuteSQL = False
Else
ExecuteSQL = True
End If
End Function
Public Function QueryData(ByVal strSQL As String) As Boolean
'On Error Resume Next
Set rs = New ADODB.Recordset
Call rs.Open(strSQL, cnn, adOpenDynamic, adLockOptimistic, -1)
If Err.Number > 0 Then
Err.Clear
QueryData = False
Else
QueryData = True
End If
End Function
Public Function QueryData2(ByVal strSQL As String) As Boolean
'On Error Resume Next
Set rs2 = New ADODB.Recordset
cnn.CursorLocation = adUseClient
Call rs2.Open(strSQL, cnn, adOpenDynamic, adLockOptimistic, -1)
If Err.Number > 0 Then
Err.Clear
QueryData2 = False
Else
QueryData2 = True
End If
End Function
Private Sub Command1_Click()
With cd1Open
.DialogTitle = "选择导入文件"
.Filter = "(*.*)|*.*"
.ShowOpen
If Len(.FileName) = 0 Then Exit Sub
Text1.Text = .FileName
End With
End Sub
Private Sub Command2_Click()
With cd1Open
Option Explicit
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Public Function ConnectionToServer(strpath As String) As Boolean
On Error GoTo connectErr
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strpath & "db1.mdb"
cnn.ConnectionTimeout = 30
cnn.Open
ConnectionToServer = True
Exit Function
connectErr:
ConnectionToServer = False
MsgBox "错误代码: " & Err.Number & vbCrLf & _
"错误描述: " & Err.Description, vbCritical + vbOKOnly, "连接错误"
End Function
Public Function DisConnect() As Boolean
If cnn.State = adStateOpen Then
cnn.Close
End If
DisConnect = True
End Function
Public Function ExecuteSQL(ByVal strSQL As String) As Boolean
' On Error Resume Next
cnn.Execute (strSQL)
If Err.Number > 0 Then
Err.Clear
ExecuteSQL = False
Else
ExecuteSQL = True
End If
End Function
Public Function QueryData(ByVal strSQL As String) As Boolean
'On Error Resume Next
Set rs = New ADODB.Recordset
Call rs.Open(strSQL, cnn, adOpenDynamic, adLockOptimistic, -1)
If Err.Number > 0 Then
Err.Clear
QueryData = False
Else
QueryData = True
End If
End Function
Public Function QueryData2(ByVal strSQL As String) As Boolean
'On Error Resume Next
Set rs2 = New ADODB.Recordset
cnn.CursorLocation = adUseClient
Call rs2.Open(strSQL, cnn, adOpenDynamic, adLockOptimistic, -1)
If Err.Number > 0 Then
Err.Clear
QueryData2 = False
Else
QueryData2 = True
End If
End Function
Private Sub Command1_Click()
With cd1Open
.DialogTitle = "选择导入文件"
.Filter = "(*.*)|*.*"
.ShowOpen
If Len(.FileName) = 0 Then Exit Sub
Text1.Text = .FileName
End With
End Sub
Private Sub Command2_Click()
With cd1Open