این ocx برای ارتباط با انواع پایگاه داده ها از جمله اکسس 2007 ؛ SQL و ... کاربرد دارد. با زدن دکمه های CTRL+T کادر Component را ظاهر کنید و تیک گزینه ی Microsoft ADO Data Control را بزنید و Ok کنید
حال کنترل adodc در قسمت جعبه ابزار قرار گرفته است یک شی از کنترل مذکور بر روی فرم قرار دهید. در بخش Properties مربوط به adodc در قسمت Connection String روی دکمه ی سمت راست آن کلیک کنید سپس بعد از ظاهر شدن کادر روی Build کلیک کنید.اکنون باید کادر Data Link Property ظاهر شود حال با توجه به بانک اطلاعاتی که دارید گزینه ای را انتخاب کنید به طور مثال برای SQL گزینه ی Microsoft OLE DB Provider for SQL Server را انتخاب کنید و Next کنید در بخش ServerName نام سرور SQL را وارد کنید و در پائین آن گزینه ی Use Windows NT Integrated Security را انتخاب کنید و در پائین آن نام بانک اطلاعاتی SQL را انتخاب کنید روی Test Connection کلیک کنید تا از انجام صحیح دستورالعمل ها اطمینان حاصل کنید و کادر تائید ظاهر شود.(اتصال برقرار شد)
یک سوالی رو یکی از دوستان در رابطه با بانک اطلاعاتی پرسیده بودند که زمانی از Combobox گزینه ای انتخاب می شود تمامی اطلاعات مربوطه در جعبه متن ها نمایش داده شود:::
با فرض اینکه ما ارتباطمان را با بانک اطلاعاتی برقرار کردیم کد زیر را در رویداد Load فرم می نویسیم:
Max = Val(AdoCompany.Recordset.RecordCount) - 1
For i = 0 To Max
ComboBox1.AddItem CStr(AdoCompany.Recordset.Fields(1).Value)
AdoCompany.Recordset.MoveNext
Next i
If Max >= 0 Then ComboBox1.ListIndex = 0
adoCompany نام کنترل adodc ما هست و (Field(1 اولین فیلد جدول هست که شامل کد شرکتهای تولید کننده ی محصولات می باشد.
تا به اینجای کار باید زمانی که برنامه را اجرا می کنید تمامی کدهای شرکت در ComboBox قرار بگیرد.
سپس باید کاری کنیم که با کلیک Combo Box اطلاعات آن شرکت در جعبه متن ها نمایش داده شود جهت انجام این کار کافی است کد زیر را در رویداد کلیک Combo Box بگذاریم:
یک سوالی رو یکی از دوستان در رابطه با بانک اطلاعاتی پرسیده بودند که زمانی از Combobox گزینه ای انتخاب می شود تمامی اطلاعات مربوطه در جعبه متن ها نمایش داده شود:::
با فرض اینکه ما ارتباطمان را با بانک اطلاعاتی برقرار کردیم کد زیر را در رویداد Load فرم می نویسیم:
Max = Val(AdoCompany.Recordset.RecordCount) - 1
For i = 0 To Max
ComboBox1.AddItem CStr(AdoCompany.Recordset.Fields(1).Value)
AdoCompany.Recordset.MoveNext
Next i
If Max >= 0 Then ComboBox1.ListIndex = 0
adoCompany نام کنترل adodc ما هست و (Field(1 اولین فیلد جدول هست که شامل کد شرکتهای تولید کننده ی محصولات می باشد.
تا به اینجای کار باید زمانی که برنامه را اجرا می کنید تمامی کدهای شرکت در ComboBox قرار بگیرد.
سپس باید کاری کنیم که با کلیک Combo Box اطلاعات آن شرکت در جعبه متن ها نمایش داده شود جهت انجام این کار کافی است کد زیر را در رویداد کلیک Combo Box بگذاریم:
Cnt = ComboBox1.ListIndex
AdoCompany.Move Cnt
text1.Text = AdoCompany.Recordset.Fields(2).Value
text2.Text = AdoCompany.Recordset.Fields(3).Value
در یک کلام رکوردست به رکورد کلیک شده اشاره می کند و محتوای کل فیلدهای آن رکورد در جعبه متن های جداگانه نمایش داده می شود.(به همین راحتی...)