編寫宏保存到SQL

Question

我建立一個形式來存儲一些數據，我想爲它保存到本地訪問表，我可怕的VBA代碼，我只是想知道是否有人有對其中任何建議我應該開始尋找？

Answer 1

可能是一個或兩個錯字，我目前沒有在我面前訪問的Excel，但下面應該爲你工作，根據需要進行修改。如果您對錶中的每列有值，則可以執行以下操作，如果只有特定列的值，則需要研究插入語句以根據需要對其進行修改。

Sub InsertToAccess() 
Dim objConnection As Object 
Dim strInsertSql As String 


strInsertSql = "INSERT INTO TableNameHere " & _ 
       "VALUES ('ValueForCoumn1', 'ValueForColumn2', 'ValueForColumn3',1)" 

Set objConnection = CreateObject("ADODB.Connection") 

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Path\To\Your\Access\File.mdb" 

objConnection.Execute strInsertSql 
objConnection.Close 
Set objConnection = Nothing 

End Sub