使用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,从网上看到这段代码,并成功使用到了自己的小程序当中,虽然这段代码中还有几个不解的地方,但是先用着,等明白了再回来加注释,如果还记得的话 ,哈哈偷笑

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值