بعد إضاقة بوتون Button ثالث للإتصال
كود :
Private con As SqlClient.SqlConnection
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
con = New SqlClient.SqlConnection("Data Source=" & ComboBox1.Text & ";Initial Catalog=" & ComboBox2.Text & ";Integrated Security=SSPI;Persist Security Info=False")
End Sub
اخي الكريم اذا كان السيرفر يحتوي اسم مستخدم وكلمة مرور هل يمكن اضافة 2 تيكست او يوجد طريقة ثانية
انا اعتذر عن كثر الاسئلة لان هذه المشكلة التي تواجهني وشكرا
(27-02-14, 09:07 AM)محاسب يوسف كتب : [ -> ]اخي الكريم اذا كان السيرفر يحتوي اسم مستخدم وكلمة مرور هل يمكن اضافة 2 تيكست او يوجد طريقة ثانية
انا اعتذر عن كثر الاسئلة لان هذه المشكلة التي تواجهني وشكرا
كثرة الأسئلة لا توجب الإعتذار
شوف هذه الطريقة أسهل بكثير
كود :
Private con As SqlClient.SqlConnection
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Connection As New SqlClient.SqlConnectionStringBuilder
Connection.DataSource = ComboBox1.Text
Connection.InitialCatalog = ComboBox2.Text
Connection.UserID = TextBox1.Text
Connection.Password = TextBox2.Text
con = New SqlClient.SqlConnection(Connection.ConnectionString)
End Sub
بارك الله فيك وجزاك الله خيرا
احبائي في الله سويت الفورم والكلاس وبحث وما عطاني لا اسم سيرفر ولا قاعدة بيانات
السلام عليكم ورحمة الله تعالى وبركاته
رجاءا من وين أحصل على هذه المكتبة
Microsoft.SqlServer.Management.Smo
الاخ الفاضل : djelloul
ستجد المكتبة في في هذا المسار ان شاء الله :
C:\Program Files\Microsoft SQL Server\100\SDK\Assemblies\Microsoft.SqlServer.Smo.dll