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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت (/showthread.php?tid=52241)

مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت - سيد أحمد - 15-03-25

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

RE: مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت - سيد أحمد - 15-03-25

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

RE: مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت - princelovelorn - 16-03-25

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

تفضل الكود

كود :
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


RE: مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت - سيد أحمد - 16-03-25

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

RE: مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت - princelovelorn - 16-03-25

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


RE: مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت - سيد أحمد - 23-03-25

شكرا لك اخي