UC知道VB 报错问题
来源：百度知道 编辑：UC知道 时间：2024/05/24 02:56:48
rs.Open SQL, con, adOpenStatic, adLockOptimistic '打开记录集
语句报错 错误信息为:实时错误3001
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突!
请问怎么解决
上面的代码中没有出现adOpenStatic
Dim Conn
Dim ConnectionString As String
Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ppdata.mdb"
Conn.Open ConnectionString
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs.CursorLocation = adUseClient
是否要设置?怎么设置
语句报错 错误信息为:实时错误3001
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突!
请问怎么解决
上面的代码中没有出现adOpenStatic
Dim Conn
Dim ConnectionString As String
Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ppdata.mdb"
Conn.Open ConnectionString
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs.CursorLocation = adUseClient
是否要设置?怎么设置
你的语句貌似链接SERVER的语句。
但你连得是ACCESS数据库。所以代码上有些差别。Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ppdata.mdb"
Conn.Open ConnectionString
这个可能有问题吧，下面是我自己做的一段代码，你可以试试
Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim SQL As String
Dim StrConn As String
StrConn = "PROVIDER=microsoft.jet.oledb.4.0;persist security info =false;data source=" & App.Path & "\数据库.mdb"
Conn.Open StrConn
SQL = "select * from Users"
rs.Open SQL, Conn, 1, 3
While Not rs.EOF
Combo1.AddItem rs!id
rs.MoveNext
Wend
Combo1.ListIndex = 0
rs.Close
Set rs = Nothing
Text1.Text = ""
End Sub