متصل کردن پایگاه داده به List View

[نوید ایمانی]

من می خوام یک پایگاه داده درست کنم که با List View مرتبط باشه، اگه کسی لطف کنه و تکه کدهای اونو برام بفرسته خیلی ازش ممنون می شم.

[CodeMasterX]

این کد رو در یک ماژول قرار بده:



Public Sub PopulateListview(ByVal LV As ListView, ByVal rs As Recordset, ByVal Numicon As Byte)
On Error Resume Next

Dim i, j, k As Long

With LV
.ColumnHeaders.Clear
.ListItems.Clear
.View = lvwReport
.FullRowSelect = True
.GridLines = False

For i = 0 To rs.Fields.Count - 1
LV.ColumnHeaders.Add , , rs.Fields(i).Name
Next i

For k = 0 To rs.RecordCount
If Not IsNull(rs.Fields(0).Value) Then _
LV.ListItems.Add , , rs.Fields(0).Value, Numicon, Numicon

For j = 1 To rs.Fields.Count
If Not IsNull(rs.Fields(1).Value) Then _
LV.ListItems.Item(k + 1).ListSubItems.Add , , rs.Fields(j).Value
Next j

rs.MoveNext
Next k
End With
End Sub


حالا
یه کنترل Listview به فرم اضافه کن و ADO رو هم به پروژه اضافه کن و کد زیر رو در رویداد Form_Load بنویس:



Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset

CN.Open ConnectionString
Rs.Open "SELECT * FROM Tabl1 ORDER BY Field1 ASC" , CN , adOpenStatic , adLockOptimistic

Call PopulateListview (Listview1 , Rs , 1)

Rs.Close
CN.Close


پارامت سوم آیکون آیتم های لیست هست.برای اینکه این کد درست کار کنه یه ImageList هم به فرم اضافه کن و یه آیکون با سایز 16x16 بهش اضافه کن و اون رو به کنترل Listview1 نسبت بده.

[majjjj]

با سلام
ابتدا یک پروژه از نوع دیتا بسازید
سپس از قسمت جنرال (سمت چپ صفحه) از کنترل های جدید ایجاد شده کنترل مورد نظرتون
که لیست باکس یا کومبو باکس جدید و برای کار شما است رو انتخاب کنید
من تست کردم 100 در جواب داد احتیاج به برنامه نویسی هم نداره

[perfeshnal]

سلام

اینم یک برنامه کامل برای اتصال ListView به دیتابیس البته اینو قبلا از همین سایت گرفتم.