منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

ممكن اخواني اتشوفولي المرفق ادناه وما هي المشكله في كود الاتصال


ممكن توضحولي شنو سبب الخطأ حتى اتعرف علية
http://www.iraqni.com/up/uploads/136440513021.rar

السلام عليكم...

الخطأ هو أنه لا يتم إنشاء كائن الـ Connection. لديك حلان:

1. إما أن تصرح عنه بكلمة New:
Dim db As New ADODB.Connection

2. و إما أن تنشئه بجملة Set في بداية الإجراء conn:
Set db = New ADODB.Connection

نرجو الاستفادة و السلام.

الف شكر لك استاذ ناجي ابراهيم