چگونه یک پایگاه داده access را به listbox متصل کنیم؟(درVB)

[imanx7]

سوال من اینه که چگونه یه پایگاه داده اکسس رو به لیست باکس متصل کنیم و رکورد های اکسس رو تو لیست باکس نشون بدیم ! ؟؟/

[MohammadGh2011]

سلام عليکم

کد زير را امتحان کنيد:
On Error Resume Next
For i = 0 To Adodc1.Recordset.Fields("نام فيلد").NumericScale
List1.AddItem Adodc1.Recordset.Fields("نام فيلد")
Adodc1.Recordset.MoveNext
Next i


موفق باشيد

[imanx7]

سلام عليکم

کد زير را امتحان کنيد:
On Error Resume Next
For i = 0 To Adodc1.Recordset.Fields("نام فيلد").NumericScale
List1.AddItem Adodc1.Recordset.Fields("نام فيلد")
Adodc1.Recordset.MoveNext
Next i


موفق باشيد
خیلی ممنون ولی مشکل اینجاست که من از کنترل Data استفاده کردم!!!! و کل پروژه هم ساخته شده ، فقط رو این موندم اگه میشه یه دستور واسه کنترل Data بگید ممنون میشم!

[محسن واژدی]

خیلی ممنون ولی مشکل اینجاست که من از کنترل Data استفاده کردم!!!! و کل پروژه هم ساخته شده ، فقط رو این موندم اگه میشه یه دستور واسه کنترل Data بگید ممنون میشم!
سلام علیکم
کد زیر را هم بررسی کنید:

Private Sub Form_Load()
With DataList1
.RowSource = Adodc1
.ListField = "FiledName"
End If
End Sub


موفق باشید

[mohammadriano]

سوال من اینه که چگونه یه پایگاه داده اکسس رو به لیست باکس متصل کنیم و رکورد های اکسس رو تو لیست باکس نشون بدیم ! ؟؟/
خب اگه از data استفاده کردید کد زیر را بررسی کنید:
البته یکی دیگه هم از دوستان همین مشکل رو داشت ولی کد رو به کار نبرد.
به هر حال
در هنگام باز شدن فرم

Private Sub Form_Load()
Dim i As Long
Dim j As Integer
Data8.Refresh
Data8.Recordset.MoveLast
j = Data8.Recordset.AbsolutePosition
Data8.Refresh
For i = 0 To j Step 1
If Data8.Recordset.Fields("tk").Value <> "" Then list1.AddItem (Data8.Recordset.Fields("tk").Value)
Data8.Recordset.MoveNext
Next i

در هنگام بسته شدن فرم

Private Sub command1_Click()
Dim j10 As Integer
Dim rf As Integer
Dim cl As Integer
cl = 0
Dim clv As Integer
clv = 0
Data8.Refresh
Data8.Recordset.MoveLast
j10 = Data8.Recordset.AbsolutePosition
Data8.Refresh
For rf = 0 To j10 Step 1
If list1.Text = Data8.Recordset.Fields("tk").Value Then clv = 1
Data8.Recordset.MoveNext
Next rf

If clv <> 1 Then
Data8.Recordset.AddNew
Data8.Recordset.Fields("tk").Value = list1.Text
Data8.Recordset.Update
Data8.Refresh
End If
Unload Me
End Sub

البته یادت باشه برای هر listBox باید یک Table جدا اظافه کنید
موفق باشید

[imanx7]

خب اگه از data استفاده کردید کد زیر را بررسی کنید:
البته یکی دیگه هم از دوستان همین مشکل رو داشت ولی کد رو به کار نبرد.
به هر حال
در هنگام باز شدن فرم

Private Sub Form_Load()
Dim i As Long
Dim j As Integer
Data8.Refresh
Data8.Recordset.MoveLast
j = Data8.Recordset.AbsolutePosition
Data8.Refresh
For i = 0 To j Step 1
If Data8.Recordset.Fields("tk").Value <> "" Then list1.AddItem (Data8.Recordset.Fields("tk").Value)
Data8.Recordset.MoveNext
Next i

در هنگام بسته شدن فرم

Private Sub command1_Click()
Dim j10 As Integer
Dim rf As Integer
Dim cl As Integer
cl = 0
Dim clv As Integer
clv = 0
Data8.Refresh
Data8.Recordset.MoveLast
j10 = Data8.Recordset.AbsolutePosition
Data8.Refresh
For rf = 0 To j10 Step 1
If list1.Text = Data8.Recordset.Fields("tk").Value Then clv = 1
Data8.Recordset.MoveNext
Next rf

If clv <> 1 Then
Data8.Recordset.AddNew
Data8.Recordset.Fields("tk").Value = list1.Text
Data8.Recordset.Update
Data8.Refresh
End If
Unload Me
End Sub

البته یادت باشه برای هر listBox باید یک Table جدا اظافه کنید
موفق باشید
از همتون ممنون ! آخرش همورو با Ado ساختم!