مشکل با listview

[ehsan_2000]

با سلام
چطوری میشه رکوردهای جدول در بانک اطلاعاتی را در list view مشاهده کرد.مثل این تصویر:

[ehsan_2000]

لطفا جواب بدبد
خواهشا ً

[Asad.Safari]

Set cnn = CreateObject("ADODB.connection")
Set bst = CreateObject("ADODB.recordset")
cnn.ConnectionString = App.Path & "\employedb1.mdb"
cnn.Provider = "Microsoft.jet.oledb.4.0"
cnn.Open
bst.Open "select * from bill where id='" & Label1.Caption & "'", cnn, adOpenDynamic

Do While Not bst.EOF
List1.AddItem (" " + bst.Fields!product)
bst.MoveNext
Loop

[Asad.Safari]

این کد بالا شامل کانکشن کامل و پر کردن یک لیست ویو به وسیله یک فیلد است
میتونی چهار تا لیست ویو کنار هم بذاری و کد یک تغییر بدی که کل رکورد رو نشون بده1



موفق باشید

[ehsan_2000]

آقا من listview رو میگم نه list box.

[ehsan_2000]

آقا کسی نبود؟؟؟

[S_VB.max]

Private Sub Form_Load()

ListView1.ColumnHeaders.Add , , "Column1"
ListView1.ColumnHeaders.Add , , "Column2"
ListView1.ColumnHeaders.Add , , "Column3"

rec.MoveFirst
For I = 0 To rec.RecordCount
If rec.EOF = True Then Exit For

Set itm = ListView1.ListItems.Add(, , rec(0))

itm.SubItems(1) = rec(1)
itm.SubItems(2) = rec(2)

rec.MoveNext
Next

ListView1.View = lvwReport
ListView1.GridLines = True
End Sub

[ehsan_2000]

با سلام
آقا میشه در این مورد یه مثال ساده بزارید(سورس)؟
با تشکر

[ehsan_2000]

با سلام
من کارم در این list view گیرکرده خواهش میکنم یه مثال ساده بزارید.

[yavari]

سلام
ای بابا
سورس دوستمون S_VB.max که کار می کنه
چیو دیگه مشکل داری ، احسان جان ؟؟؟

موفق باشی

[ehsan_2000]

با سلام
سورس s_vb.max خطا میده
میشه شما مثال اونو برام بزارید.(برنامه)

[yavari]

سلام احسان جان

ببین دوست عزیز
وقت نکردم مثال دوستمونو برات Example کنم:اشتباه:
ولی خب
این یه برنامه کاملیه ، هم برا ListView و هم برا TreeView
نگاهی بهش بنداز
امیدوارم کمکت کنه

موفق باشی

[S_VB.max]

میشه بگی چه خطایی می ده ؟
اگر از آخرین خط ، خطا می ده دلیلش اینه که شما باید از کامپوننت windows Common Control 6.0 استفاده کنید نه 5.0

[ehsan_2000]

سلام
دوست عزیز برای کلمه rec خطا میده .
اگه سورس و به صورت برنامه بزاری واقعا ممنون میشم.
با تشکر

[yavari]

سلام

آقای S_VB.max
سورس شما برا منم جواب داده

[ehsan_2000]

آقا پس چرا در کلمه rec خطا میده؟؟؟

[yavari]

سلام
عزیز من ، احسان جان
rec همون recordset هستش
کافیه یه فانکشن OpenRecordset بانکت رو بذاری اولش

موفق باشی

[ehsan_2000]

آقا از همتون خیلی خیلی ممنون
خیلی باحالید
بازم ممنون

[riyahiyan]

اینم یه سورس