终于实现了对自编物供系统与K3数据库的即时库存访问

 终于实现了COM+程序的安装，但是我仍然不知道是怎么安装上去的，因为K3的中间层，是另外一个同事在负责。但是至少说明：只是这编写的dll说明是正确的，工程属性也是正确的.实现了自编的物供管理系统与K3数据库的及时库存的对接。

Option Explicit

Public Function rsYznGetICInventory(ByVal strWLID As String) As ADODB.Recordset
On Error GoTo ErrorHandler

   
    Dim dbcnn As New ADODB.Connection
    Dim dbRst As New ADODB.Recordset
    Dim strSQL As String
   
    dbcnn.Provider = "SQLOLEDB.1"
   
   
    '1你要检测一个连接子串中的，数据库名是不是AIS20061228104825，
    '2 SQL服务器地址是不是10.200.1.37
    '3 SQL用户名  是不是: sa
    '4 密码是不是:qwertyuiop
    '然后根据情况来修改连接子串
   
   
    dbcnn.ConnectionString = "Database=AIS20061228104825;Server=10.200.1.37;Uid=sa;Pwd=qwertyuiop;"
   
   
     '这样就是一条记录了 (在where 子句里只与物料编码相等的子段的一条记录而已)
    strSQL = " select ic.FItemID as FItemID,itm.FNumber as FNumber,sum(isnull(ic.FQty,0)) as FQty,itm.FName as FName " & _
            "  from ICInventory ic inner join t_Item itm on ic.FItemID=itm.FItemID " & _
            "  where itm.FNumber ='" & strWLID & "' " & _
            "  group by ic.FItemID,itm.FNumber,itm.FName " & _
            "  order by itm.FNumber "
   
    dbcnn.CommandTimeout = 5
    dbcnn.Open
    If dbcnn.Errors.Count > 0 Then
        GoTo ErrorHandler
    End If
    dbRst.Open strSQL, dbcnn, adOpenKeyset
    Set rsYznGetICInventory = dbRst
    Set dbRst = Nothing
    Set dbcnn = Nothing
    Exit Function
   
ErrorHandler:
   Set dbRst = Nothing
   If dbRst.State Then
    dbRst.Close
   End If
  
   Set dbcnn = Nothing
   If dbcnn.State Then
    dbcnn.Close
   End If
   Set rsYznGetICInventory = Nothing
   
End Function