用VB6

Question

访问SQL服务器我想显示存储在SQL Server中的数据VB6。

ALTER PROCEDURE [dbo].[ledger] 
    -- Add the parameters for the stored procedure here 

AS 
BEGIN 
    -- SET NOCOUNT ON added to prevent extra result sets from 
    -- interfering with SELECT statements. 
    SET NOCOUNT ON; 

    -- Insert statements for procedure here 
select a.StockMaster,sum1,sum2,(sum2-sum1) as TQty from 
(SELECT tblStockMaster.SmName AS StockMaster, SUM(isnull(tblReceivingD.TotalQuantity,0)) AS sum2 
FROM tblStockMaster LEFT JOIN tblReceivingD ON tblReceivingD.StockControlR=tblStockMaster.SmName 
GROUP BY tblStockMaster.SmName) a , 
(SELECT tblStockMaster.SmName AS StockMaster, SUM(isnull(tblPurchaseOrderD.TotalQuantity,0)) AS sum1 
FROM tblStockMaster LEFT JOIN tblPurchaseOrderD ON tblPurchaseOrderD.StockControl=tblStockMaster.SmName GROUP BY tblStockMaster.SmName) b 
where a.StockMaster =b.StockMaster 

在VB6中找不到SQL。我如何连接到SQL数据库？下面的代码：

Private Sub Form_Load() 
SetGrid 
recdisplay "ledger" 
End Sub 
Function SetGrid() 


With MSFlexGrid1 
    .Rows = 1 

    .ColWidth(0) = 0 
    .ColWidth(1) = 4650: .TextMatrix(0, 1) = "Item Name" 
    .ColWidth(2) = 3565: .TextMatrix(0, 2) = "Total Quantity" 
    End With 
End Function 



Function recdisplay(sql As Variant) 

错误说：

项目无法在集合中找到对应

Dim R As Integer 
Set rs = New ADODB.Recordset 
rs.Open sql, conn, adOpenStatic, adLockReadOnly 

With MSFlexGrid1 
.Rows = 1 

    While Not rs.EOF 
    .AddItem rs!SMControl & vbTab & rs!SmName & vbTab & rs!tqty 

    rs.MoveNext 
    Wend 

End With 
End Function 

Answer 1

您存储请求的名称或序号PROC返回以下列：

• StockMaster
• sum1
• sum2
• TQty

你的VB6代码试图在rs Recordset对象使用以下名称：

• SMControl
• qty

所以我认为错误是说，SMControl是不是在您的Recordset对象一个Field有效的名称。我猜你需要改变SMControl到StockMaster在VB6的代码。