Question

我正在构建一个表单来存储一些数据，我希望将它保存到本地访问表中，我对VBA编码很糟糕，我只是想知道是否有人对我应该从哪里开始寻找建议？ / p>

Answer 1

可能是一两个错字，因为我目前没有Excel的Access，但以下内容适合您，根据需要进行修改。如果您有表格的每一列的值，您可以执行以下操作，如果您只有特定列的值，则需要研究插入语句以根据需要进行修改。

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

编写宏以保存到SQL

1 个答案: