مشكلة أثناء الإتصال بقاعدة البيانات

مغلق

بدأه mh66_6 في 27 فبراير 2007 · 2 رد · 613 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#127 فبراير 2007 في 02:03 صاحب الموضوع

السلام عليكم

إخواني الكرام

هذا الكود لفتح قاعدة بيانات يعمل على الملينيوم لكنه لا يعمل على XP

Public D1 As Database

Public T1 As Recordset

Public Folder

Public Const PassWord = "xd56"

Public Sub Main()

Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder & (ABoot.RR.Text), False, False, ";pwd=" & PassWord)

Set T1 = D1.OpenRecordset("Adat", dbOpenTable)

Exit Sub

ويعطي رسالة الخطأ التالية

object variable or with block variable not set

وشكرا

#227 فبراير 2007 في 08:18

الأخ الفاضل ...

الكود المرفق سليم ، بإستثناء تغير (Exit Sub) بـ (End Sub) ، وانا جربتة عندى وعمل بدون مشاكل على WinXP، وإليك المثال الذى قمت بتجريبه

باستخدام (MS-VB 6.0)

شكراً

Nothing is impossible, the word impossible itself says that: I M - Possible

#327 فبراير 2007 في 22:53

شكراَ جزيلا لك أخ أسامة

هذا الموضوع مغلق.

عدد الزوار حالياً