Dim myConnection As Connection
Dim myRecordset As Recordset
===============
Private Sub Form_Load()
Dim myPath As String
Dim Str As String
Set myConnection = New Connection
myConnection.CursorLocation = adUseClient
myPath = App.Path & "\寝室.mdb"
myConnection.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & myPath
Set myRecordset = New Recordset
myRecordset.Open "SELECT * FROM 学生", myConnection, adOpenStatic, adLockOptimistic
myRecordset.Find ("姓名=asd") “到这就过不去,说什么参数类型不正确或不
在可接收的范围内,或与其他参数冲突’”End Sub
============================
Private Sub Form_Unload(Cancel As Integer)
myRecordset.Close
Set myRecordset = Nothing
End Sub
我已在引用中添加MS ActiveX Data Object 2.1 library.
请英雄赐教!!!!!
Dim myRecordset As Recordset
===============
Private Sub Form_Load()
Dim myPath As String
Dim Str As String
Set myConnection = New Connection
myConnection.CursorLocation = adUseClient
myPath = App.Path & "\寝室.mdb"
myConnection.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & myPath
Set myRecordset = New Recordset
myRecordset.Open "SELECT * FROM 学生", myConnection, adOpenStatic, adLockOptimistic
myRecordset.Find ("姓名=asd") “到这就过不去,说什么参数类型不正确或不
在可接收的范围内,或与其他参数冲突’”End Sub
============================
Private Sub Form_Unload(Cancel As Integer)
myRecordset.Close
Set myRecordset = Nothing
End Sub
我已在引用中添加MS ActiveX Data Object 2.1 library.
请英雄赐教!!!!!
这样行不行呀~?
“参数类型不正确或不可接收的范围内,或与其他参数冲突’”
楼主是不是先把别的人回答看完?
要是还不行的话,那可能就是字段为中文字的问题了