sql - Excel VBA SQL 数据

Question

我有一个小的 excel 程序。

我希望能够使用这个程序来更新一个 SQL 表。

在数据库 ABC 中的 SQL 表测试中说更新第 2 行的功能是什么

谢谢

Answer 1

首先，您需要添加对 ActiveX 数据对象库的引用，其中包含允许您进行数据库访问的对象集 - 在 Excel Visual Basic 编辑器中，转到工具|引用... 在对话框中，向下滚动，直到找到 Microsoft ActiveX Data Objects 2.8 Library。选中库名称旁边的框。
VBA References dialog with ADO library checked http://philippursglove.com/stackoverflow/adoreference.png

您更新数据库的代码应如下所示(使用 JohnK813 回答中的 SQL):

'Declare some variables
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim strSQL As String

'Create a new Connection object
Set cnn = New ADODB.Connection

'Set the connection string
cnn.ConnectionString = myDatabaseConnectionString 'See http://connectionstrings.com if you need help on building this string for your database!

'Create a new Command object
Set cmd = New ADODB.Command

'Associate the command with the connection
cmd.ActiveConnection = cnn

'Tell the Command we are giving it a bit of SQL to run, not a stored procedure
cmd.CommandType = adCmdText

'Create the SQL
strSQL = "UPDATE Test SET YourField = NeValue WHERE IDField = 2"

'Pass the SQL to the Command object
cmd.CommandText = strSQL

'Open the Connection to the database
cnn.Open

'Execute the bit of SQL to update the database
cmd.Execute

'Close the connection again
cnn.Close

'Remove the objects
Set cmd = Nothing
Set cnn = Nothing