cpublic.cls

来自「一个vb编的计算机机房管理系统」· CLS 代码 · 共 37 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CPublic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'公共函数类
Public Function GetListIDs(ByVal ListTable As String, ByVal ListID As String) As String()

  '此函数用来取得ListBox中要显示的ID值
  'ListTable为要查询的表，ListID为要显示的字段
  
  Dim ListIDs() As String
  ReDim Preserve ListIDs(1)
  ListIDs(0) = "**BeginsListIDs**"
  Connect "r"
  sqlstr = "select " & ListID & " from " & ListTable & ""
  rs.Open sqlstr
  Do While Not rs.EOF
   ReDim Preserve ListIDs(UBound(ListIDs) + 1)
   ListIDs(UBound(ListIDs) - 1) = CStr(rs.Fields(ListID))
   rs.MoveNext
  Loop
  Disconnect
  GetListIDs = ListIDs
End Function