代码是这样的:
With Access_Conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Fis.mdb;Persist Security Info=False"
.CursorLocation = adUseClient
.ConnectionTimeout = 10
.CommandTimeout = 10
.Open
End WithDim rst As New ADODB.Recordset
Dim QueryString As String
QueryString = "select * from Index"
rst.Open QueryString, Access_Conn, adOpenForwardOnly, adLockOptimistic
Do Until rst.EOF
If rst.Fields("field_name") = IndexString Then
SearchIndex = rst.Fields("field_value")
End If
rst.MoveNext
Looprst.Close
Set rst = Nothing运行出错是:
Syntax error in FROM clause.看了半天,搞不明白,请高人指教!
With Access_Conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Fis.mdb;Persist Security Info=False"
.CursorLocation = adUseClient
.ConnectionTimeout = 10
.CommandTimeout = 10
.Open
End WithDim rst As New ADODB.Recordset
Dim QueryString As String
QueryString = "select * from Index"
rst.Open QueryString, Access_Conn, adOpenForwardOnly, adLockOptimistic
Do Until rst.EOF
If rst.Fields("field_name") = IndexString Then
SearchIndex = rst.Fields("field_value")
End If
rst.MoveNext
Looprst.Close
Set rst = Nothing运行出错是:
Syntax error in FROM clause.看了半天,搞不明白,请高人指教!
是不是少了这句?猜的
直接COPY下来的,错了,不好意思是SET