想請問各程式撰寫先進與高手，使用VBA進行介面設計(圖一)要連結Access資料庫(圖二)，請問該如何撰寫程式讓介面輸入的內容記錄進Access內呢？目前撰寫的程式都無法記錄(圖三)，有什麼地方有錯誤呢？
※有去圖書館借了多本書來查看練習，但仍未能有效貫通，所以希望能有先進協助確認與指導！
※相關的程式碼如下：
Private Sub CommandButton1_Click()
Dim datapath As String
Dim cclass As String
Dim cclear As String
datapath = ActiveWorkbook.Path + "\HData.accdb"
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
Dim cn As Object
Dim rs As Object
Dim strSql As String
Dim strConnection As String
Set cn = CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & datapath & ";"
cn.Open strConnection
strSql = "INSERT INTO cleanerdata (cleanerid, cleanername, add, tel, emer_name, emer_tel, relation) VALUES (' & Me.cleanerid.Text & ', ' & Me.cleanername.Text & ',' & Me.add.Text & ',' & Me.tel.Text & ',' & Me.emer_name.Text & ' , ' & Me.emer_tel.Text & ',' & Me.relation.Text & ')"
'rs.Close
cn.Close
Set cn = Nothing
MsgBox "更新完畢！"
Me.Hide
UserForm3.Show
End Sub
Sherry0812 wrote:
錯誤的地方…就是後...(恕刪)
您原先的程式碼中，包含2個錯誤：
A：少加了一句執行SQL語法的程式碼
B：要被執行的SQL語法本身有錯誤
cn.Execute strSql 這句的意思是去執行strSql這句語法
所以加上 cn.Execute strSql = 解決了錯誤A
但 cn.Execute strSql 這句中的 strSql 本身可能存在錯誤
加上 cn.Execute strSql 這句雖然解決了錯誤A，但因為這句去執行了一句錯誤的SQL語法(錯誤B)，所以一樣報錯!
您應該去找出您的strSql這個變數所代表的SQL語法哪裡出了錯，cn.Execute strSql <==這句本身沒錯!
GOOD LUCK!
Sherry0812 wrote:
錯誤的地方…就是後來加上去的cn.這一串...(恕刪)
用您的命名方式(access 資料庫的命名、欄位，也用一樣的方式)
寫了一個簡短的範例，自己比較看看錯在那裡
就像qekqo這位高手說的，您忘了加上執行，而且sql語法錯誤
Sub test()
Dim cn As Object, strSql As String, strConnection As String, datapath As String
Set cn = CreateObject("ADODB.Connection")
datapath = "d:\test.accdb"
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & datapath & ";"
a = "xxxxxx"
b = "yyyyyy"
strSql = "INSERT INTO cleanerdata (cleanerid, cleanername) VALUES ('" & a & "', '" & b & "')"
cn.Open strConnection
cn.Execute strSql
cn.Close
Set cn = Nothing
End Sub
內文搜尋
從 APP 打開
X