我希望返回一个列的数据将作为一个组合框在excel中使用。为此,我使用记录集从存储过程返回数据。我遇到的问题是,我不知道如何填充甚至显示我返回的信息-或者即使我返回所有数据。
我知道网上有一些解决方案推荐使用"rs.GetRows“来填充数组,但是我一直没有这个机会。我最初打算通过对记录集中的记录编制索引并逐个添加它们来填充数组。这样做的问题是我永远不能得到记录集的大小,而且因为我使用的是动态SQL,所以我的数组的大小永远不会相同。我在这方面已经有一段时间了,我想知道是否有一个好的方法来做到这一点。
VBA代码
Public Sub SQL_SP_Column_Data2(ByVal sql_col As String, _
ByVal sql_table As String)
On Error GoTo RunTimeError
Dim array1() As Variant
Dim sqlconxn As ADODB.connection
Dim sqlcmd As ADODB.Command ' Operates as a command between SQL and vba
Dim sqlrs As ADODB.recordSet
Dim conxnString As String
Application.ScreenUpdating = False
' String used to establish a connection to the database
conxnString = "driver={SQL Server};" & _
"server='server_name';" & _
"uid='username';" & _
"pwd='password';" & _
"database='database_name';"
Set sqlconxn = New ADODB.connection
Set sqlcmd = New ADODB.Command
Set sqlrs = New ADODB.recordSet
sqlconxn.ConnectionTimeout = 30
sqlconxn.Open conxnString ' makes the connection between SQL
MsgBox "Connection 1 state: " & GetState2(sqlconxn.state)
sqlcmd.CommandType = adCmdStoredProc ' sets command to a stored procedure
sqlcmd.CommandText = "GET_COLUMN_DATA" ' name of the stored procedure
sqlcmd.ActiveConnection = sqlconxn ' makes the sql connection
sqlcmd.Parameters.Append _
sqlcmd.CreateParameter("@column_name", adVarChar, adParamInput, 255, sql_col)
sqlcmd.Parameters.Append _
sqlcmd.CreateParameter("@data_table_name", adVarChar, adParamInput, 255, sql_table)
sqlrs.Open sqlcmd
If sqlrs.EOF Then
array1() = sqlrs.GetRows
Debug.Print "VALUES: " + array1(i)
sqlrs.MoveNext
i = i + 1
End If
RunTimeError: ' Reportd any errors that might occur in the system and
Dim strError As String
strError = "ERROR: " & Err.Number & vbCrLf & Err.Description
MsgBox strError
Debug.Print strError
Exit Sub
End Sub
我使用上面的GetRows是因为它是最推荐的方法,但是我不能让它以我想要的方式工作。在本例中,我通常会得到错误:0或下标超出范围。
存储过程
USE AFCD
GO
ALTER PROCEDURE dbo.GET_COLUMN_DATA (@column_name nvarchar(max),
@data_table_name nvarchar(max)) AS
BEGIN
DECLARE @query nvarchar(max)
SET @query = 'SELECT ' + @column_name +
' FROM ' + @data_table_name + ''
EXEC sp_executesql @query
END
当我测试这个存储过程时,我实际上得到了我想要的数据,我知道我的存储过程返回了我想要的数据,但我不知道如何在vba中获得它。
预期输出示例:如果VBA子对象的输入是- "WIRE_TYPE","WIRE_INDEX“
SQL_SP_Column_Data2 "WIRE_TYPE", "WIRE_INDEX"
然后,输出应如下所示:
Stainless Steel
Steel ER70S-3
Steel ER70S-6
Titanium(1)
Titanium(2)
vba -这部分代码引用了我的,它紧跟在我执行SQL之后。答案归功于蒂姆·威廉姆斯。
If Not sqlrs.EOF Then
array1() = sqlrs.GetRows()
End If
Dim i As Integer
For i = 0 To 4
Debug.Print "VALUES: " + array1(0, i) ' 2D array!!!
Next i
发布于 2019-06-25 04:46:05
您的If
测试已关闭,并且GetRows不需要循环:
If Not sqlrs.EOF Then
array1() = sqlrs.GetRows()
End If
请记住,GetRows()
返回一个从零开始的二维数组,因此在访问值时需要提供两个维度,例如。
array1(0, 2) 'first field, third row
https://stackoverflow.com/questions/56743384
复制相似问题