[princelovelorn]

نص الأتصال عن طريق ال IP

كود :

Imports System.Data.SqlClient

Module Module1
   public sub connsql()
       Dim connectionString As String = "Server=xxx.xxx.xxx.xxx,1433;Database=YourDatabaseName;User Id=YourUsername;Password=YourPassword;"
       Using conn As New SqlConnection(connectionString)
           Try
               conn.Open()
               msgbox("تم الاتصال بقاعدة البيانات بنجاح")
           Catch ex As Exception
               msgbox("خطأ في الاتصال: " & ex.Message)
           End Try
       End Using
   End Sub
End Module