نوید ایمانی
سه شنبه 04 اردیبهشت 1386, 23:18 عصر
من می خوام یک پایگاه داده درست کنم که با List View مرتبط باشه، اگه کسی لطف کنه و تکه کدهای اونو برام بفرسته خیلی ازش ممنون می شم.
CodeMasterX
چهارشنبه 05 اردیبهشت 1386, 00:46 صبح
این کد رو در یک ماژول قرار بده:
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
چهارشنبه 05 اردیبهشت 1386, 06:38 صبح
با سلام
ابتدا یک پروژه از نوع دیتا بسازید
سپس از قسمت جنرال (سمت چپ صفحه) از کنترل های جدید ایجاد شده کنترل مورد نظرتون
که لیست باکس یا کومبو باکس جدید و برای کار شما است رو انتخاب کنید
من تست کردم 100 در جواب داد احتیاج به برنامه نویسی هم نداره
perfeshnal
چهارشنبه 05 اردیبهشت 1386, 09:09 صبح
سلام
اینم یک برنامه کامل برای اتصال ListView به دیتابیس البته اینو قبلا از همین سایت گرفتم.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.