兩個星期以來，我一直在用頭撞墻！我去過幾十個網站尋求幫助，他們都給出了相同的建議（不過，沒有一個完全解決我的特定問題）這沒有幫助，因為所有（包括官方微軟）都告訴我做我正在做的事情。
這是我的查詢：
Dim strSQL As String
strSQL = """INSERT INTO tblVolunteers " & vbCrLf & _
"VALUES (" & [txtTitle] & "," & [txtFirstName] & "," & [txtMiddle] & "," & [txtLastName] & "," & [txtEmail] & _
"," & [txtPhone] & "," & [txtChurch] & "," & [txtGroup] & "," & [txtCouncil] & "," & [chkParCo] & "," & _
[txtMailAdd] & ");"""
CurrentDb.Execute strSQL
這是微軟必須說的：
運行時錯誤“3078”
Microsoft Access 資料庫引擎找不到輸入表或查詢 ""INSERT INTO tblVolunteers VALUES (Mr.,John,L.,Smith,[email protected],800-555-1212,St. Smith's,Smith,1234,- 1,10 Smith St. Smithville, TX 77777-3333);""。確保它存在并且其名稱拼寫正確。
那么，當我不僅指定了 VALUES 并且正確地從表單中獲取了所有值時，它為什么還要查找表或查詢？
uj5u.com熱心網友回復：
您可以使用我的函式CSql并連接這樣的值：
strSQL = "INSERT INTO tblVolunteers " & _
"VALUES (" & CSql([txtTitle]) & "," & CSql([txtFirstName]) & "," & CSql([txtMiddle]) & "," & _
CSql([txtLastName]) & "," & CSql([txtEmail]) & "," & CSql([txtPhone]) & "," & CSql([txtChurch] & "," & _
CSql([txtGroup]) & "," & CSql([txtCouncil]) & "," & CSql([chkParCo]) & "," & CSql([txtMailAdd]) & ");"
或者你可以跳過這個混亂并使用DAO進行更清晰的編碼和更容易的除錯：
Dim Records As DAO.Recordset
Dim Sql As String
Sql = "Select * From tblVolunteers"
Set Records = CurrentDb.OpenRecordset(Sql, dbOpenDynaset, dbAppendOnly)
Records.Append
Records!Title.Value = Me!txtTitle.Value
Records!FirstName.Value = Me!txtFirstName.Value
Records!Middle.Value = Me!txtMiddle.Value
Records!LastName.Value = Me!txtLastName.Value
Records!Email.Value = Me!txtEmail.Value
Records!Phone.Value = Me!txtPhone.Value
Records!Church.Value = Me!txtChurch.Value
Records!Group.Value = Me!txtGroup.Value
Records!Council.Value = Me!txtCouncil.Value
Records!ParCo.Value = Me!chkParCo.Value
Records!MailAdd.Value = Me!txtMailAdd.Value
Records.Update
Records.Close
uj5u.com熱心網友回復：
基本上你需要雙引號 qaround 文本，所以你可以使用 CHR(34)
strSQL = "INSERT INTO tblVolunteers " & vbCrLf & _
"VALUES (" & CHR(34) & [txtTitle] & CHR(34) & "," & CHR(34) & [txtFirstName] & CHR(34) & "," & CHR(34) & [txtMiddle] & CHR(34) & "," & CHR(34) & [txtLastName] & CHR(34) & "," & CHR(34) & [txtEmail] & CHR(34) & _
"," & CHR(34) & [txtPhone] & CHR(34) & "," & CHR(34) & [txtChurch] & CHR(34) & "," & CHR(34) & [txtGroup] & CHR(34) & "," & CHR(34) & [txtCouncil] & CHR(34) & "," & CHR(34) & [chkParCo] & CHR(34) & "," & CHR(34) & _
[txtMailAdd] & CHR(34) & ");"
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/335835.html
上一篇：從一個 SAP CRM 軟體實際的故障處理出發，談談企業管理軟體領域內那些很難穩定重現故障的處理技巧
下一篇：多維陣列中的元素相乘