Scribd
Upload
20 views3 pages

VB6 ListBox and ComboBox Database Load

This document contains code for populating combo boxes and list boxes from database tables in VB. The first section shows a generic subroutine called "LoadBox" that takes in an object, table name, ID field, and description field as parameters to populate the object from the database table. The second section shows a function called "ShowListTTip" that displays the text of the selected item in a list box as a tooltip when the mouse hovers over it.

Uploaded by

Philipkitheka
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
20 views3 pages

VB6 ListBox and ComboBox Database Load

This document contains code for populating combo boxes and list boxes from database tables in VB. The first section shows a generic subroutine called "LoadBox" that takes in an object, table name, ID field, and description field as parameters to populate the object from the database table. The second section shows a function called "ShowListTTip" that displays the text of the selected item in a list box as a tooltip when the mouse hovers over it.

Uploaded by

Philipkitheka
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

THE KENYA POLYTECHNIC

VB CODING

Database & SQL

Load ComboBox, ListBox from Database Table


Shows text property of ListBox in ToolTip

'Generic Sub to fill comboboxes, listboxes etc...


'usage: loadbox cboBoxName, "dbTableName", "dbIDField",
'"dbDescriptionField"
'Where: cboBoxName is the combo/listbox you want to populate,
'dbTableName is the database table where you want to populate
'from, dbIDField is the unique Id number for the fields (ie:
'Customer_ID) and dbDescriptionField is a text field (ie: Customer_Name)
'------------------------------------------------------

Public Sub LoadBox(cboBox As Object, strTB, IDField, descField As


String)

On Error GoTo Errors

Dim rs As Recordset 'Declare a recordset


Dim sql As String 'Declare a string to hold the SQL statement

[Link]
'Clear the combobox in question, in case it isn't
sql = ""
'Clear SQL in case there is another var named SQL somewhere
'Setup SQL to select fields based on the values passed to the
function
sql = "SELECT " & IDField & ", " & descField & " FROM " & strTB
'Open the recordset with the data returned by the SQL statement
Set rs = [Link](sql, dbOpenForwardOnly)

With rs

Do Until .EOF 'Loop until the End of the recordset

'Add the items, and thier corresponding ID's


[Link] rs(descField)
[Link]([Link]) = rs(IDField)
.MoveNext

Loop

.Close

[Link] [Link] & " was populated"

1
End With '(rs)

Set rs = Nothing 'Release the variable

Exit Sub

Errors: 'Error handler

If [Link] <> 0 Then

MsgBox ("Error #: " & str([Link]) & [Link])


Exit Sub

End If

End Sub

'------------------------------------------------------
'Author:Chris O'Leary
'Posted:5/26/98
'coleary@[Link]
'
'Shows the text property of a listbox in the tooltip property,
'when the mouse hovers over the listbox for a second. Relies
'on the SendMessage API, declared in the API_Routines file.
'------------------------------------------------------

Public Function ShowListTTip(Button As Integer, Shift As Integer, X As


Single, Y As Single, ListBox As ListBox) As String

' Show tool tip message

Dim lXPoint As Long


Dim lYPoint As Long
Dim lIndex As Long
'
If Button = 0 Then ' No button was pressed

'Get the x/y position of the mouse on the screen.


'in "TwipsPerPixel" (X and Y)
lXPoint = CLng(X / [Link])
lYPoint = CLng(Y / [Link])
'
With ListBox

' find which listbox item the mouse is hovering over.


lIndex = SendMessage(.hWnd, LB_ITEMFROMPOINT, 0, ByVal
((lYPoint * 65536) + lXPoint))

' show the tooltip or clear last one, make sure the index is
'greater than or equal to 0 and not greater than the
listcount

2
If (lIndex >= 0) And (lIndex <= .ListCount) Then
.ToolTipText=".List(lIndex)" 'Return the text=".list(lIndex)" Else
.ToolTipText 'Return nothing

End If

End With '(ListBox)

End If '(button=0)

End Function

You might also like