ورود

نسخه کامل مشاهده نسخه کامل : آموزش کنترل Ado در Vb6


peyman_joojoo
11-04-2006, 21:47
سلام دوستان عزیز . واقغیت بیچاره شدم از بس گشتم تا یک منبع کامل در مورد این کنترل ویژوال بیسیک پیدا کنم اول از همه باید بگم نزدیک 4 کتاب خریداری کردم که در مورد این قسمت یطحی برخورد کردن و کامل نبود 2 تا سی دی آموزشی گرفتم که باز هم به این صورت عمل شده بود و در مورد متد جستجو در ای دی او چیزی نگفته بود از طرفی کل این فوروم رو گشتم باز هم هیچ چیری نبود که بدرد من بخوره چون همه یک کار روتین انجام دادن و اومدن یه تیکه کد گذاشتن در جواب به سوال مردم !!! اما هیچ کس نیومده یک آموزش کامل در این مورد بزاره که چگونه میشه یک فرم شاخت که با بانک اطلاعاتی ارتباط برقرار کنه و بطور مثال دکمه سرچ داشته باشه دکمه اضافه کردن داشته باشه و از همه مهمتر نکات مهم مربوط به این قسمت و اینکه در آموزش از کدهای بسیار ساده استفاده بشه که مفهوم رو در بر بگیره . حالا اگه امکان داره یکی این کارو شروع کنه و این مشکل من نیست مشکل 70% برنامه نویسهای تازه کار ایرانی هست .موفق باشید ...
Arasx
11-04-2006, 22:54
دوست عزيز ميتونم بدونم چرا از كنترل ديتا استفاده نمي كني؟چون خيلي ساده تره..
peyman_joojoo
11-04-2006, 23:02
کنترل دیتا رو باهاش مشکلی ندارم . اما قابلیت در ای دی او بیشتر و انعطاف پذیرتر هست
peyman_joojoo
12-04-2006, 20:00
چی شد پس ؟
peyman_joojoo
28-04-2006, 13:01
بابا پس چی شددددددددددد ؟
Prince_ of _Persia
29-04-2006, 06:41
سلام دوست عزيز

بهترين و كاملترين مرجع براي برنامه نويسي پايگاه داده كه در آن توضيح كاملي براي اتصال ado و همچنین RDO داده شده است کتاب 400 صفحه ای برنامه نوسی پایگاه داده با ویژوال بیسیک 6 از انتشارات نص هست اگر توضیحات بیشتری خواستید من در خدمتم.

با این کتاب دیگر هیچ مشکلی با Ado نخواهید داشت.

اما برای رفع مشکل حاضر شما می توانید از این کد برای اتصال و جستجو در بانک اطلاعاتی بوسیله Ado استفاده کنید:

اتصال به پایگاه داده :

objcnn.open "Provider=Microsoft.Jet.OLEDb.3.51; Date Source= "you file address"
objCmd.ActiveConnection = objCnn
objCmd.CommandType = adCmdTable
objCmd.CommandText= "your table name"
Set obj Rst=objCmd.Execute

obj rst.close
objcnn.close

اینم کد کلی برای جستجو که که به جای command در کد بالا باید استفاده شود :

objCmd.CommandText = "Select * from tablename where field name='sometext'"
Prince_ of _Persia
29-04-2006, 06:48
يادم رفت كه بگم قبل از استفاده از دو شی objcnn و objcmd باید آنها را بصورت زیر تعریف کنی :

private objcnn as new adodb.connection
private objcmd as new adodb.command

در ضمن اگه می بینی آموزشی در این زمینه توی انجمن نیست بخاطر اینکه برنامه نویسی پایگاه داده اونم با استفاده از ado حرفه به حساب می آد و در ضمن بسیار گسترده است. گفتم که کتابش 400 صفحه است و فقط هم به کد نویسی پایگاه داده اختصاص دارد. در ضمن سیدی های آموزشی vb6 هادی سیستم هم مرجع خوبی در این مورد است که تعدادش 8 سی دی است. به هر حال هر که طاووس خواهد جور هندوستان کشد!!!

موفق باشید.
peyman_joojoo
29-04-2006, 17:55
سلام دوست عزیز از راهنمایی شما متشکرم واقعا مفید بود . البته دانسته هامو کاملتر کرد . در مورد کتاب فرمودید انتشارات نص ؟ و اگه ممکن هست سایت این انتشارات در صورت وجود و شماره تماس اون رو به من بدید . واقعا محبت کردی یک دنیا ممنون ...
Prince_ of _Persia
01-05-2006, 06:23
شماره تلفن انتشارات نص : 6953883
آدرس : تهران - ميدان انقلاب - خيابان ارديبهشت - بن بست مبين - شماره 237
najafzade
07-08-2007, 16:12
:8::10:متشکرم
ahebba
21-08-2007, 19:27
ساخت یک بانک اطلاعاتی در access به نام database که دارای یک جدول با فیلدهای name , family باشد و گذاشتن یک دکمه به نام cmdadd و دو text به نام txtname , txtfamily در محیط vb حال می خواهیم با نوشتن نام و نام خانوادگی در 2 text فوق و زدن دکمه cmdadd اطلاعا درون بانک ذخیره شود
dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
FileDataBase = App.Path & "\dataBase.mdb

cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source=" & FileDataBase
rst.Open "Select * From student", Cnc, 1, 3

rst.AddNew
rst!name=txtname
rst!family=txtfamily
rst.Udate

rst.close
cnn.close
ahebba
21-08-2007, 19:28
ساخت یک بانک اطلاعاتی در access به نام database که دارای یک جدول به نام student با فیلدهای name , family باشد و گذاشتن یک دکمه به نام cmdadd و دو text به نام txtname , txtfamily در محیط vb حال می خواهیم با نوشتن نام و نام خانوادگی در 2 text فوق و زدن دکمه cmdadd اطلاعا درون بانک ذخیره شود
dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
FileDataBase = App.Path & "\dataBase.mdb
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source=" & FileDataBase
rst.Open "Select * From student", Cnc, 1, 3
rst.AddNew
rst!name=txtname
rst!family=txtfamily
rst.Udate
rst.close
cnn.close