باز کردن یک دیتابیس در ListView!!!!

[armin_izer]

Salam
ye code baratoon minevisam ke ye database ro kamle too ye listview add mikone
omidvaram betoone be baziha komaki bokone


Public Sub PopulateListView(SQL As String, LV As ListView)
On Error Resume Next
dim DBTemp as New ADODB.Connection
dim RSTEMP as New ADODB.Recordset
dim i as Integer
dim k , j as Long
Dim Cnn as String
dim dbname as String
'
Set RSTemp = Nothing
Set DBTemp = Nothing
'
With LV
.View = lvwReport
.GridLines = True
.FullRowSelect = True
.FlatScrollBar = True
.Visible = True
.Enabled = True
.ColumnHeaders.Clear
.ListItems.Clear
'
dbname = App.Path & "\bank.mdb"
Cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbname & ";Persist Security Info=False"
DBTemp.Open Cnn
RSTemp.Open SQL, DBTemp, adOpenStatic, adLockOptimistic
'
RSTemp.MoveFirst
'
For i = 0 To RSTemp.Fields.Count
.ColumnHeaders.Add , , RSTemp.Fields(i).Name, 1300
Next i
'
For k = 0 To RSTemp.RecordCount
If IsNull(RSTemp.Fields(0).Value) Then _
.ListItems.Add , , "" Else .ListItems.Add , , RSTemp.Fields(0).Value
For j = 1 To RSTemp.Fields.Count
If IsNull(RSTemp.Fields(1).Value) Then _
.ListItems.Item(k + 1).ListSubItems.Add , , "" Else .ListItems.Item(k + 1).ListSubItems.Add , , RSTemp.Fields(j).Value
Next j
RSTemp.MoveNext
Next k
RSTemp.Close
DBTemp.Close
End With
End Sub