用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的代碼。