moduleywcl.bas

用VB实现连接oracle817数据月报数输入并统计

Attribute VB_Name = "Moduleywcl"
'/--------------------------------------------------------------------------------
'/
'/    功能：获取全省支队代码参数
'/
'/--------------------------------------------------------------------------------

Public Function GetZdxx() As Boolean
Dim i As Integer
Dim iCount As Integer
Dim strSql As String
Dim varRs As Variant
Dim blnHave As Boolean

GetZdxx = False
                  
On Error GoTo errHandle

strSql = "SELECT VBMDH,VBMMC,NBMLX FROM B_BMDM ORDER BY NSX"
If Not fGetRS(strSql, varRs, blnHave) Then
   SM "获得全省支队信息失败！"
   Exit Function
Else
   If blnHave Then
      
      iCount = UBound(varRs, 2)
      For i = 0 To iCount
          gBmdm(i).BMDH = Trim(gCharVal(varRs(0, i)))
          gBmdm(i).BMMC = Trim(gCharVal(varRs(1, i)))
          gBmdm(i).BMLX = gNumVal(varRs(2, i))
          
      Next i
      nZdsl = iCount
      GetZdxx = True
      
   Else
      SM "没有全省支队信息！"
      Exit Function
   End If
End If

Exit Function

errHandle:
   SM "警告！获取支队信息有误！"

End Function