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

我编写了一个动态过程，然后填充列，然后使用Pivot显示数据。

---

如何从vb6执行此过程并将内容作为数据源返回。

您可以使用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