[سيد أحمد]

السلام عليكم
مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت وشكرا

Provider=SQLNCLI11.1;Integrated Security=SSPI;Persist Security Info=False;User ID="";Initial Catalog=mohamed;Data Source=sever123;Initial File Name="";Server SPN=sever123

[سيد أحمد]

ارجو منكم الرد على سؤالي

[princelovelorn]

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

تفضل الكود

كود :

Imports System.Data.SqlClient

Module Module1
   public sub connsql()
       Dim connectionString As String = "Server=sever123;Database=mohamed;Integrated Security=True;"
       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

[سيد أحمد]

هذا sql server 2005 اريد اتصال به من جهاز أخر وشكرا على الرد

---

عند الاتصال ب sql srever 2005 l فيجوال دوت نت تظهر لي هذه رسالة من جهاز أخر مربوط معه ب ip ,a;vh

[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

[سيد أحمد]

شكرا لك اخي