quotemodule.bas

来自「Knowledge manager。Storing articles,quote」· BAS 代码 · 共 59 行

Attribute VB_Name = "Module1"
Option Explicit
'Public Const vbMessageShowAdBook = 11
Public Sub populatecombo(strsql As String, b As Object)
Dim db As Database
Dim rs As Recordset
Dim i As Integer

Set db = OpenDatabase(App.Path + "\quotesmanager.mdb")
Set rs = db.OpenRecordset(strsql)
i = 0
b.Clear
While rs.EOF = False
b.AddItem rs.Fields(0), i
i = i + 1
rs.MoveNext
Wend
If b.ListCount <> 0 Then
  b.ListIndex = 0
End If
       
End Sub

Public Sub populatelist(strsql As String, b As ListBox)
Dim db As Database
Dim rs As Recordset
Dim i As Integer

Set db = OpenDatabase(App.Path + "\quotesmanager.mdb")
Set rs = db.OpenRecordset(strsql)
i = 0
b.Clear
While rs.EOF = False
b.AddItem rs.Fields(1), i
b.ListIndex = i
i = i + 1
rs.MoveNext
Wend
b.ListIndex = 0
rs.Close
db.Close
End Sub
Public Function returnsinglestring(strsql As String) As String
Dim db As Database
Dim rs As Recordset
Dim i As Integer

Set db = OpenDatabase(App.Path + "\quotesmanager.mdb")
Set rs = db.OpenRecordset(strsql)

If rs.EOF = False Then
rs.MoveFirst
returnsinglestring = rs.Fields(0)
End If
rs.Close
db.Close

End Function