تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طلب : أريد كود قطع الإتصال بقاعدة البيانات
#1
اريد قطع الإتصالات الآتية بواسطة الكود وذلك عندما كتبت كود هكذا

dim rs as recordset
dim db as database


Dim db9 As New ADODB.Connection
dim rss as new ADODB.Recordset

في منطقة general

.وفي الفورم لوود

Set db = OpenDatabase("data.mdb")

Set rs = db.OpenRecordset("Safe")

db9.Provider = "Microsoft.JET.OLEDB.4.0;"
db9.Open App.Path & "\data.mdb"
rss.Open "[Orders]", db9, adOpenStatic, adLockReadOnly
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}}
تم الشكر بواسطة:
#2
اذا كنت تقصد قطع الاتصال بالقاعدة فيكون
db.close
اذا الاتصال بالجدول للانتقال لجدول اخر
rs.close
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , hamada salah90
#3
(17-09-15, 02:43 AM)أبو عمر كتب : اذا كنت تقصد قطع الاتصال بالقاعدة فيكون
db.close
اذا الاتصال بالجدول للانتقال لجدول اخر
rs.close

شكرا يا غالي
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}}
تم الشكر بواسطة:
#4
مثلما جاوبك سابقا ابو عمر
اذا كنت معرف قاعدة البيانات على اسمها DB
فكود قطع الاتصال يكون db.close
ياألله
.:. سبحانك اللهم لاعلم لنا الا ماعلمتنا .:.
إقتباس :Istanbul
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] أريد أفضل برنامج SQL Server يعمل مع الفيجول بيسك وطريقة ربطه بالبرنامج VB.6 Rami_Mezo 4 96 06-11-17, 03:00 PM
آخر رد: Rami_Mezo
  [سؤال] طلب كود للبحث عن اسم في قاعدة البيانات كلها وكود نقل سجل sher 7 191 18-10-17, 04:02 AM
آخر رد: عبد العزيز البسكري
  [سؤال] سؤال عن ربط قاعدة البيانات اكسس amer2000 4 298 14-05-17, 01:08 PM
آخر رد: Amir_alzubidy
  ادوات التنقل في قاعدة اجدول البيانات بواسطة List view haniblack 4 227 13-04-17, 09:57 AM
آخر رد: haniblack
  [vb6.0] طلب مساعدة - أريد كود البحث السريع وعمل ملف تثبيت لبرنامجي المرفق Soufyane 1 201 10-04-17, 01:45 PM
آخر رد: Amir_alzubidy
  كيف اربط قاعدة البيانات ل سكول سرفير ahmed_egypt 8 832 05-04-17, 04:39 PM
آخر رد: ahmed_egypt
Lightbulb [vb6.0] طلب : أريد مجموعة من الأكواد تخص فتح open لفتح مجلد - فتح برنامج - فتح ملف بأي صيغة hamada salah90 6 1,152 29-03-17, 01:44 PM
آخر رد: MicroDoha
  [سؤال] اصلاح قاعدة البيانات من نوع اكسس amer2000 4 696 15-12-16, 12:49 PM
آخر رد: Amir_alzubidy
  [سؤال] سؤال حول البحث. المتكرر في قاعدة البيانات وفرزها في التكستات عمور2016 10 985 10-12-16, 03:02 PM
آخر رد: عبد العزيز البسكري
  [ تم الحل ] : ربط الكومبو بقاعدة البيانات عبد العزيز البسكري 3 514 28-11-16, 10:55 PM
آخر رد: عبد العزيز البسكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم