+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: گذاشتن عکس در بانک اطلاعاتی (/showthread.php?tid=2087)
گذاشتن عکس در بانک اطلاعاتی - parvin - 04-14-2012
یه بانک اطلاعاتی با اکسس داریم و یه کنترل adodc . این بانکمون چند ت ا فیلد داره که یکیشون فیلد تصویر هستش. .من نمیتونم تو بانکم عکس بذارم. میشه کمک کنید
RE: گذاشتن عکس در بانک اطلاعاتی - Amin_Mansouri - 04-14-2012
درود
با سورس زیر میتونید چندین عکس رو داخل دیتابیس قرار بدهید و حتی تماشا کنید.
دانلود :
Image sDatabase(www.parsicoders.com).rar (اندازه 62.3 KB / تعداد دانلود: 214)
پسوورد :
کد:
www.parsicoders.comRE: گذاشتن عکس در بانک اطلاعاتی - parvin - 04-14-2012
اگه از کنترل data استفاده کنیم چطوری میشه ؟
RE: گذاشتن عکس در بانک اطلاعاتی - Amin_Mansouri - 04-14-2012
با سورس زیر با کنترل دیتا میتونید در بانک اکسس خود عکس مورد نظر رو بزارید !
دانلود :
howto_database_picture_picturebox(www.parsicoders.com).zip (اندازه 55.9 KB / تعداد دانلود: 87)
RE: گذاشتن عکس در بانک اطلاعاتی - parvin - 04-14-2012
سورس اولی که گذاشتین از adodb استفاده کرده. این کنترل فرقش با adodc چیه؟ سورسی برای کنترل adodc ندارین؟
RE: گذاشتن عکس در بانک اطلاعاتی - Amin_Mansouri - 04-14-2012
انچنان فرقی ندارن که یه سورس دیگه بزارم
اینو ببین :
به نقل از وب سایت : 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 در پايان لازم به ذکر است که روش
براحتی می توان با استفاده از آن در هناگم اجرای برنامه به بان کهای جديدی متصل شد و
کارهای پيشرفته تری انجام داد.
RE: گذاشتن عکس در بانک اطلاعاتی - parvin - 04-15-2012
اقا امین دستتون دردنکنه. ولی این مطلبی که ارائه کردین برای کنترل dataهستش.
RE: گذاشتن عکس در بانک اطلاعاتی - Amin_Mansouri - 04-15-2012
خودتون گفتید از کنترل دیتا استفاده کنیم چطوری میشه !
سوال شما :
اگه از کنترل data استفاده کنیم چطوری میشه ؟
RE: گذاشتن عکس در بانک اطلاعاتی - parvin - 04-15-2012
اونو که جواب دادین.من از کنترل adodb پرسیده بودم و شما برام از کنترل data دوباره جواب گذاشتین.
RE: گذاشتن عکس در بانک اطلاعاتی - Amin_Mansouri - 04-15-2012
سوال اولی
جوابش با
Dim dbConn As New ADODB.Connection
سوالی دومی هم گفتی با
اگه از کنترل data استفاده کنیم چطوری میشه ؟
اونمم سورس گذاشتم
سورس اولی دقیقا با adodb هست
حواس پرت شدی ها :heart: