[مبرمج أوتار]

السلام عليكم وحمة الله وبركاته

الحمد الله انحلت مشكله الاتصال في الموضوع سابق عن طريق وضع اي بي في كود الاتصال

لكن

لدي مشكله بعد تعريف تكس بوكس في الموديل اعطاه قيمة ولكن لم يقبل الاتصال بجهاز الموضوع عليه قاعده البيانات

وضعت في الموديل :-

كود :

Imports System.Data.SqlClient


Module Module1


    '////////////////////////////////////////////////////////////////////////////


    '  يحمل قيمة عنوان الاي بي
    Public ServerIPAddress As String


    ' تعريف تكس بوكس خاص بي اي بي  من نموذج  Form1
    Public Sub GetConnection()


        ServerIPAddress = Form1.TxtServerIPAddess.Text


    End Sub


    '////////////////////////////////////////////////////////////////////////////


    'متغير الاسم المستخدم
    Public fusername As String


    '////////////////////////////////////////////////////////////////////////////






    Public sqlconn As New SqlConnection("Data Source= " + ServerIPAddress + " ,49422;Network Library=DBMSSOCN;Initial Catalog=RCC_ksa;User ID=SA;Password=123456;")


End Module

هذى صور من النموذج



صوره المشكله :-



ارفقت لكم المثال :-

http://vb4arb.com/vb/uploaded/276_21371265798.zip

اتمنى المساعده ...