使用vb.net 语言将sqlserver数据库中的数据显示到bomboBox中的代码

 

 

 Dim strConnect As String = "server = (local);Initial Catalog=test;User ID=sa;Password=;"
        Dim strSql As String = "select * from test"
        Dim ds As New DataSet
        Dim da As SqlDataAdapter
        Dim sqlCustomer As String = "select * from  test"

        Try
            Dim cn As New SqlConnection(strConnect)
            cn.Open()
            Dim cmd As New SqlCommand(strsql, cn)
            da = New SqlDataAdapter(cmd)
            da.Fill(ds, "test")
            Dim i As Integer
            For i = 0 To ds.Tables(0).Rows.Count - 1
                ComboBox1.Items.Add(ds.Tables(0).Rows(i).Item("test1"))  'test1和test2是表中列的名称
                ComboBox2.Items.Add(ds.Tables(0).Rows(i).Item("test2"))
            Next
        Catch ex As Exception
            MsgBox(ex.GetType.ToString & ":" & ex.Message)
        End Try

 

刚接触vb.net，从网上看到这段代码，并成功使用到了自己的小程序当中，虽然这段代码中还有几个不解的地方，但是先用着，等明白了再回来加注释，如果还记得的话 ，哈哈