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

السلام عليكم
مساعدة في تحويل الكود من فيجوال بسيك 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

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

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

تفضل الكود

كود :

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

نص الأتصال عن طريق ال 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

شكرا لك اخي

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

سيد أحمد

سيد أحمد

princelovelorn

سيد أحمد

princelovelorn

سيد أحمد