by Paul Raj S (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 21st July 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
To add all records of a table to a listview control just by specifying the name of the table
API Declarations
Public table As String
Public cnn As New ADODB.Connection
Public rs1 As New ADODB.Recordset
'Important:Name the listview as lv U may have any no of forms with listview 'control but name them as lv(listview name property)
Public Sub connect()
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= NAME OF U R DATABASE WITH PATH SPECIFIED"
End Sub
Public Sub check(rs As ADODB.Recordset)
If rs.State = 1 Then rs.Close
End Sub
Public Sub Lview(frm As Form, table As Variant)
Dim X As Integer
Dim i As Integer
Dim lst As ListItem
For i = 1 To frm.lv.ColumnHeaders.Count
frm.lv.ColumnHeaders.Remove (1)
Next i
check rs1
rs1.Open "select * from " & table, cnn, adOpenDynamic, adLockOptimistic
frm.lv.ListItems.clear
For X = 0 To rs1.Fields.Count - 1
frm.lv.ColumnHeaders.Add , , rs1.Fields(X).Name
Next X
While Not rs1.EOF
Set lst = frm.lv.ListItems.Add (, , rs1(0))
For X = 1 To rs1.Fields.Count - 1
If Not IsNull(rs1(X)) Then lst.SubItems(X) = rs1(X)
Next X
rs1.MoveNext
Wend
End Sub
'put this code in form load
Private Sub Form_Load()
connect
End Sub
'Where ever and when ever u need to fill ur listview named lv with the records 'of u r table connected with database cnn Just call this procedure
' Lview formname,tablename
' Ex: Lview me,"Employee" (current form &table name is employee)
No comments have been posted about To add all records of a table to a listview control just by specifying the name of the table. Why not be the first to post a comment about To add all records of a table to a listview control just by specifying the name of the table.