buildcombolist.cls

来自「一个VB开发的很好的图书信息管理系统,在学校的毕业论文中得到了很高的分数」· CLS 代码 · 共 60 行

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



Public Function getList(ByVal sql As String, Combo As ComboBox) As ComboBox

   Dim myDbOper As New DbOperation
   Dim rst As ADODB.Recordset
   '建立连接
   myDbOper.DB_Connect
   Set rst = myDbOper.querySQL(sql)
   If Not rst.EOF Then
        With rst
            Do While Not .EOF
                Combo.AddItem .Fields(0)
                .MoveNext
            Loop
        End With
        
        Combo.ListIndex = 0
        
   End If
   rst.Close
   '关闭连接
   myDbOper.DB_DisConnect
   Set getList = Combo
   
End Function


Public Function getIdByName(ByVal sql As String) As String
   
   Dim myDbOper As New DbOperation
   Dim rst As ADODB.Recordset
   Dim tmpId As String
   '建立连接
   myDbOper.DB_Connect
   Set rst = myDbOper.querySQL(sql)
   If Not rst.EOF Then
      tmpId = rst.Fields(0)
   End If
   rst.Close
   '关闭连接
   myDbOper.DB_DisConnect
   getIdByName = tmpId

End Function