[Amin_Mansouri]

انچنان فرقی ندارن که یه سورس دیگه بزارم

اینو ببین :
به نقل از وب سایت : msamadi.com

روشی است برای اتصال و تغيير بانک های اطلاعاتی و مخفف کلمات ADO بطور کلی
Data است. در ويژوال بيسيک شش با استفاده از کنترل ActiveX Data Objects
برنامه نويسی بان کهای اطلاعاتی را انجام داد. برنامه نويسی به ADO می توان به روش
انجام می شود. که البته تفاوت چندانی ADODB و ADODC به دو صورت ADO روش
ندارند. در روش اول با استفاده از يک کنترل همل برنامه نويس انجام می شود ولی در روش
دوم با استفاده توابع و اشيا تعريفی اين کار انجام م یشود. روش اول در ويژوال بيسيک
نيز ASP معمول تر است ولی روش دوم علاوه بر استفاده در خود ويژوال بيسيک در
کاربرد دارد. بهر حال تفاوت چندانی بين اين دو روش وجود ندارد.
را شروع می کنيم. ADODC فعلا به طور خيلی مقدماتی برنامه نويسی به روش
ابتدا بايد بانک اطلاعاتی خود را درست کنيد برای اين منظور در ويژوال بيسيک از منوی
يک بانک New برويد و از منوی Visual Data Manager به برنامه Add-Ins
را Table New اطلاعاتی جديد ايجاد کنيد. بروی پنل سمت چپ راست کليک کنيد و گزينه
انتخاب کنيد. در پنجره جديد نام جدول خود را بنويسيد و در سمت چپ با استفاده از کليدهای
ستون های مورد نظر خود را ايجاد کنيد. توجه داشته Remove Field و Add Field
Build باشيد که شما می توانيد نوع فيلدهای خود را نيز مشخص کنيد. پس از پايان کار کليد
خارج شويد. Visual Data Manager را کليک کنيد و از برنامه Table
روی فرم قرار دهيد و Data يک پروزه جديد در ويژوال بيسيک ايجاد کنيد و يک کنترل
کنترل را به توجه به نوع Connect کنيد. خصوصيت False آن را Visible خصوصيت
می باشد، Access بانکی که ايجاد کرده ايد تنظيم کنيد بطور مثال اگر بانک شما از نوع
باشد. سپس خصوصيت Access نيز بايد از نوع Connect خصوصيت
را با استفاده از کليد کنار آن به دايرکتوری بانک خود تغيير دهيد. DatabaseName
را انتخاب و از ليست مربوطه نام جدول بانک اطلاعاتی را RecordSource خصوصيت
انتخاب کنيد.
حال به رکوردهای جدول سر و کار داريم برای اين کار بايد با استفاده از خصوصيت زير به
توابع و خصوصيات رکوردها دسترسی پيدا کنيم:
Data1.RecordSet
دستورا زير برای حرکت در بين رکوردها استفاده می شود. دقت داشته باشيد در روش
تنها می تواند روی يکی قرار RecordSet ، در يک لحظه از بين تمامی رکوردها ADO
داشته باشد. يک رکورد در واقع مانند يک رديف در جدول می ماند.
برای حرکت به يک رکورد دلخواه بر اساس شماره ستون:
Data1.RecordSet.Move (Rows As long, [StartBookmark])
برای حرکت به اولين رکورد:
Data1.RecordSet.MoveFirst
برای حرکت به آخرين رکورد:
Data1.RecordSet.MoveLast
برای حرکت به رکورد بعدی:
Data1.RecordSet.MoveNext
برای حرکت به رکورد قبلی:
Data1.RecordSet.MovePrevious
خصوصيات و توابع زير هم کاربردهای فراوانی دارند.
برای تاييد تغييرات انجام شده در جدول:
Data1.RecordSet.Update
تعداد رکوردهای جدول را در خود نگه می دارد:
Data1.RecordSet.RecordCount
برای تصحيح جدول:
Data1.RecordSet.Edit
که قابليت تصحيح شدن يا نشدن جدول را مشخص Boolean يک خصوصيت از نوع
می کند:
Data1.RecordSet.LockEdit
بر روی رکورد RecordSet که مشخص می کند آيا Boolean يک خصوصيت از نوع
آخر قرار دارد يا نه:
Data1.RecordSet.EOF
بر روی RecordSet که مشخص می کند آيا Boolean يک خصوصيت از نوع
رکورد اول قرار دارد يا نه:
Data1.RecordSet.BOF
بر روی آن قرار دارد را بر م یگرداند: RecordSet شماره رکوردی را که
Data1.RecordSet.GetRows
برای جستجو در جدول بکار م یروند:
Data1.RecordSet.FindFirst
Data1.RecordSet.FindLast
Data1.RecordSet.FindNext
Data1.RecordSet.Previous
اضافه نمودن يک رکورد جديد:
Data1.Recordset.AddNew
Data1.Recordset("FieldName") = "Value"
Data1.Recordset("FieldName") = "Value"
Data1.Recordset("FieldName") = "Value"
.....
...
.
Data1.Recordset.Update
حالت کلی ايل دستور بدين صورت است که ابتدا يک رکورد جديد اضافه م یکنيم و سپس
می کنيم. Update فيلدهای موجود را با مقادير دلخواه پر م یکنيم و در آخر نيز جدول را
حذف يک رکورد:
بر روی آن قرار دارد را از بين م یبرد. RecordSet دستور زير رکوردی را که
Data1.Recordset.Delete
روش حرفه های تر پيشرفته تری است و ADODB در پايان لازم به ذکر است که روش
براحتی می توان با استفاده از آن در هناگم اجرای برنامه به بان کهای جديدی متصل شد و
کارهای پيشرفته تری انجام داد.