26-02-14, 11:18 PM
بعد إضاقة بوتون 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