فراخوانی اطلاعات دیتابیس در listview

[BestProgrammer]

سلام دوستان عزیز
چه جوری اطلاعاتی که از دیتابیس Accsss فراخانی می کنم و توی یه listview اضافه کنم؟؟؟؟

[moshaveran]

ببین این مشکلت رو حل می کنه:

Public

Class Form1
Dim SQLStr AsString

Dim nt As ADODB.Connection
Dim nr As ADODB.Recordset

privateSub Button1_Click(ByVal sender As System.Object, ByVal e A System.EventArgs) Handles Button1.Click
nt = New ADODB.Connection
nt.Open("provider=microsoft.jet.oledb.4.0;" & "data source=...\My_mdb.mdb")
nr = New ADODB.Recordset
SQLStr = "Select * from My_table"

nr.Open(SQLStr, nt, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
nr.MoveFirst()

Dim s As ListViewItem
Dim i AsInteger

listview1.Columns.Add(" ")

listview1.Columns.Add("data")
listview1.View = View.Details
For i = 1 To 5
s = listview1.Items.Add(i
s.SubItems.Add(nr.Fields("My_filed").Value
nr.MoveNext

Next i
EndSub
EndClass