نمایش اطلاعات یک فیلد جدول در کمبوباکس

[aliondvd]

با سلام خدمت دوستان

چگونه می توان اطلاعات یک فیلد از جدول SQL رو در کمبوباکس نشان داد بطوری که تمام اطلاعات یک فیلد در کمبوباکس Add شود


با تشکر

[hrj1981]

ابتدا با يك رابط بانك اطلاعاتي (ADODC يا Adodb) به جدول مورد نظر كانك شو و سپس با يك دستور FORساده هر فيلدي كه خواستي داخل LIST كمبوي خود بريز

[aliondvd]

اگه ممکنه همون دستور For را بگذارید ممنون می شم

آخه بگم تا چه مقدار این حلقه تکرار بشه

در حال حاضر من از این دستور استفاده می کنم



connect1.Open "driver={sql server};server=(local);database=project;uid=;gid=;"
rssql.Open "SELECT distinct(name) as name FROM t1 ", connect1, adOpenStatic, adLockOptimistic
rssql.MoveLast
Set Combo1.DataSource = rssql
Combo1.DataField = "name"
a: If rssql.BOF = True Then
GoTo b
Else
If Combo1.Text <> free Then
Combo1.AddItem (Combo1.Text)
rssql.MovePrevious
GoTo a
b: Combo1.ListIndex = 0
End If
End If

آیا راه ساده تری هم وجود داره؟

[hamed aj]

آیا راه ساده تری هم وجود داره؟


سلام؛

بله وجود داره :

شما می توانید از کنترل data combo استفاده کنید. برای اینکار کامپوننت microsoft data bound list controls 6 را به پروژه خود اضافه کرده و کنترل db combo رو به فرم(ها) اضافه کنید. سپس با کد زیر فیلد دلخواه خود رو به این کنترل bind کنید :





Set DataCombo1.RowSource = rssql
DataCombo1.ListField = "name"
DataCombo1.Refresh




البته حتماً فراموش نمی کنید که connection و recordset رو ایجاد و مقدار دهی کنید!!!

موفق باشید

[اوبالیت به بو]

1- http://barnamenevis.org/forum/showpost.php?p=523129&postcount=18 (http://barnamenevis.org/forum/showpost.php?p=523129&postcount=18)
2- تست نكردم ولي بايد جواب بده:


Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Form_Load()
On Error GoTo Err
Combo2.Clear
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & App.Path & "\Bank.mdb"
rst.Open "Table1", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
Do While Not rst.EOF
Combo2.AddItem rst!Field
rst.MoveNext
Loop
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
Exit Sub
Err:
MsgBox "is Empty"
End Sub
Field اسم فيلد مورد نظر هستش. فكر نمي كنم خطا بده. توكل كنيد به خدا!
3- استفاده از يك دستور SQL كه اين Column ها رو در يك Recordset يا آرايه ذخيره كنه.