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

عندي مديول فيه كود الاتصال بقاعدة البيانات احتاج ان اضع الكود في ملف نصي واسدعي الكود من داخل 
الملف النصي هذا هوا الكود :


Public Sub ConnectDB()
If MyConnObj.State = 1 Then MyConnObj.Close



    Dim sqlStr As String ' String variable to store sql command

    MyConnObj.Open _
        "Provider = sqloledb ;" & _
        "Data Source=192.168.8.100,1433;" & _
        "Initial Catalog=Data;" & _
        "User ID=PC2;" & _
        "Password=PC21984;"

  
End Sub

أهلا بك أخي الكريم , لعمل ذلك إستخدم أداة ScriptControl , كما في المثال المرفق .

ارجو الاطلاع على الخطاء بعد تنفيذ كود الاتصال من التكست