sql-server - 我需要代码来运行 SQL Server 查询，该查询通过 VBA 存储在我的本地驱动器中，并将数据获取到 Excel 工作表中

Question

我在本地驱动器上保存了多个 SQL 查询，每次我必须运行 SQL 并将数据从 SQL Server 复制到 Excel。

Answer 1

您可以使用默认 Excel 功能从 Excel 中检索 SQL 数据，例如从 SQL 数据库中获取数据/获取数据，您可以存储连接和查询，它实际上并不需要 VBA

Answer 2

你可以做类似的事情。

txtSQLcmd = "SELECT * FROM xxxx_Log;"
dtDateValue = DateValue(FetchAValueFromTable(txtSQLcmd))
txtSQLcmd = "UPDATE TablevVariables SET [TablevVariables].KeyValue = #" & dtDateValue & "# WHERE [TablevVariables].KeyName='xxxx_Log';"
ExecuteSQLcmd (txtSQLcmd)

Function FetchAValueFromTable(ByVal strSQL As String) As String
Dim cnn1 As ADODB.Connection
Set cnn1 = CurrentProject.Connection
Dim myRecordSet As New ADODB.Recordset
myRecordSet.ActiveConnection = cnn1
myRecordSet.CursorType = adOpenDynamic
myRecordSet.LockType = adLockOptimistic
myRecordSet.Open strSQL
FetchAValueFromTable = myRecordSet.Fields(0).Value
myRecordSet.Close
Set myRecordSet = Nothing
Set cnn1 = Nothing
End Function