想做書籍的英文簡介切詞做索引，但是程式一直報錯，提示“FROM子句語法錯誤”
想問問大神們應該如何修改？或者可以采用其他的方法嗎？
Option Compare Database
Sub fenci()
'創建connection實體并與當前資料庫連接
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open CurrentProject.Connection
Dim sql1 As String
Dim sql2 As String
sql1 = "SELECT bname, Edescription FROM BookInfo;"
sql2 = "SELECT keyword,nameindex FROM index;"
'rst代表書名+英文簡介的記錄集
'rstkey代表關鍵詞+索引的記錄集
Dim rst As ADODB.Recordset
Dim rstkey As ADODB.Recordset
Set rst = New ADODB.Recordset
Set rstkey = New ADODB.Recordset
rst.Open sql1, con, adOpenKeyset, adLockOptimistic
rstkey.Open sql2, con, adOpenKeyset, adLockOptimistic '這一行是報錯行
'cnt1保存rst中記錄的數目,cnt2保存rstkey中記錄的數目
Dim cnt1 As Integer
Dim cnt2 As Integer
cnt1 = CInt(rst.RecordCount)
cnt2 = CInt(rstkey.RecordCount)
'MsgBox (cnt1)
'MsgBox (cnt2)
'分詞
For i = 0 To cnt
Dim words() As String
words = VBA.Split(rst!Edescription, " ")
For n = LBound(words) To UBound(words)
For m = 0 To cnt2
If rstkey!keyword(m) <> words(n) Then
rstkey.AddNew
rstkey.Fields(0) = words(n)
rstkey.Update
If rstkey!nameindex() <> rst!Edescription Then
rstkey.AddNew
rstkey.Fields(1) = rst!Edescription
rstkey.Update
Else
rstkey.MoveNext
End If
End If
Next
Next
rst.MoveNext
Next
End Sub
uj5u.com熱心網友回復：
把SQL陳述句中的分號去了試試uj5u.com熱心網友回復：
你的資料表名稱是 index ?index 一般是 SQL 的保留字，最好不要用
如果真的用了，試試 sql2 = "SELECT keyword,nameindex FROM [index];"
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/21769.html
標籤：VBA
上一篇：請教各位前輩，以下問題如何解決