如何执行动态存储过程，该过程返回vb6记录集中的表并将数据源分配给spreadgrid

Question

我编写了一个动态过程来填充列，然后使用Pivot来显示数据。如何从vb6中执行此过程并将内容作为数据源返回。

Answer 1

您可以使用ADO，您将需要添加对Microsoft ActiveX数据对象的引用。我记得的代码(从vb6开始很长一段时间)类似于

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim strConn As String
Dim strSQL As String
Dim strCol1 As String
Dim strCol2 As String
strConn = "[YOUR CONNECTION SRING]" '(see www.connectionstrings.com for help)
conn.Open connStr
strSQL = "[YOUR SQL QUERY]" '(IE. Proc name)
rs.Open strSQL, conn, adOpenStatic, adLockOptimistic
Do While Not rs.EOF
    strCol1 = rs.Fields("Col1Name")
    strCol1 = rs.Fields("Col2Name")
    rs.MoveNext
Loop
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
If conn.State = adStateOpen Then conn.Close
Set conn = Nothing