01.Imports System.Data
02.Imports System.Data.SqlClient
03.Public Class Form1
04. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
05. Dim connetionString As String = Nothing
06. Dim connection As SqlConnection
07. Dim command As SqlCommand
08. Dim adapter As New SqlDataAdapter()
09. Dim ds As New DataSet()
10. Dim i As Integer = 0
11. Dim sql As String = Nothing
12. connetionString = "Data Source=ServerName;Initial Catalog=databasename;User ID=userid;Password=yourpassword"
13. sql = "SELECT CusID,CusName FROM Customer"
14. connection = New SqlConnection(connetionString)
15. Try
16. connection.Open()
17. command = New SqlCommand(sql, connection)
18. adapter.SelectCommand = command
19. adapter.Fill(ds)
20. adapter.Dispose()
21. command.Dispose()
22. connection.Close()
23. ComboBox1.DataSource = ds.Tables(0)
24. ComboBox1.ValueMember = "CusID"
25. ComboBox1.DisplayMember = "CusName"
26. Catch ex As Exception
27. MessageBox.Show("Can not open connection ! ")
28. End Try
29. End Sub
30. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
31. MsgBox(ComboBox1.Text + " -- " + ComboBox1.SelectedValue)
32. End Sub
33.End Class
Load balance : Server 00
