تنظیمات DBCombo

[mehdisat2000]

با سلام.
من یک Database Access دارم به یک ADO به نام adoPrimaryRS وصل هستش و نام دیتابیسم libdb.mdb و نام جدولم books هستش حالا من میخوام این DBCombo لیستش رو از فیلد cmblist در جدول books بگیره ولی هرکاری میکنم انجام نمیشه. میشه تنظیماتش رو بهم آموزش بدید؟
مطالب قبلی رو خوندم ولی چیزی به دست نیاوردم.
ممنون.

[mehdisat2000]

کسی نیست یه جوا بده؟:ناراحت:

[ali190]

سلام
نمونه بذار
یاعلی

[M_Maskout]

سلام
کامپوننت‌های Microsoft DataList Controls 6.0 (OLEDB)‎ رو به پروژه اضافه کنید.
و از Data Combo (69425) جهت ایجاد Combo Box استفاده کنید.
در روتین Form_Load:
ویژگی‌های DataSource و RowSource اون رو، adoPrimaryRS قرار بدین:


Set DataCombo1.DataSource = adoPrimaryRS
Set DataCombo1.RowSource = adoPrimaryRS

ویژگی‌های DataField و ListField رو هم cmblist تنظیم کنید:


DataCombo1.DataField = "cmblist"



DataCombo1.ListField = "cmblist"

[mehdisat2000]

الان این ارور رو میده:
Run-Time Error 91:
Object , Variable Or With Block Variable Not set

اینم کدام.

Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=H:\vb\Library\libdb.mdb;"

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "SHAPE {select [ÔãÇÑå ˜ÊÇÈ],ÏÓÊå,[äÇã ˜ÊÇÈ],äæíÓäÏå,ÇäÊÔÇÑÇÊ,ÊÚÏÇÏ,ÕÝÍ ÇÊ,ÞíãÊ,ÔÇȘ from book} AS ParentCMD APPEND ({select [ÔãÇÑå ˜ÊÇÈ],ÏÓÊå,[äÇã ˜ÊÇÈ],äæíÓäÏå,ÇäÊÔÇÑÇÊ,ÊÚÏÇÏ,ÕÝÍ ÇÊ,ÞíãÊ,ÔÇȘ from book } AS ChildCMD RELATE ÏÓÊå TO ÏÓÊå) AS ChildCMD", db, adOpenStatic, adLockOptimistic

Dim oText As TextBox
'Bind the text boxes to the data provider
For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next

mbDataChanged = False

Set DBCombo1.DataSource = adoPrimaryRS
Set DBCombo1.RowSource = adoPrimaryRS
DBCombo1.DataField = "ÏÓÊå"
DBCombo1.ListField = "ÏÓÊå"
End Sub

[M_Maskout]

سلام
این خطا رو روی کدوم خط اعلام می‌کنه؟
در صورت امکان فایل فرمتون رو ضمیمه کنید تا بشه بیشتر به شما کمک کرد.

[mehdisat2000]

با عرض پوزش من از DBCombo استفاده کرده بودم نه DataCombo
پوزش میخوام.