首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

combobox控件怎么绑定SQL数据库

2012-12-26 
combobox控件如何绑定SQL数据库以vb.net2008中,如何将combobox绑定的数据库中的某个字段?因为我之前是用vb

combobox控件如何绑定SQL数据库
以vb.net2008中,如何将combobox绑定的数据库中的某个字段?
因为我之前是用vb6.0的,vb.net2008第一次接触。
所以我的代码还是很接近vb6.0的
我的代码是:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        OpenDb()
        yu.Open("select department_name from department", cnn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
        If yu.RecordCount > 0 Then
            Do While yu.EOF = False
                ComboBox1.Items.Add(yu.Fields(0))
                yu.MoveNext()
            Loop
        End If
        yu.Close()
        CloseDb()
    End Sub
End Class

按下F5运行,居然也没有出错,但是combobox的下列表框中的值是:
System.__ComObject

请高手们指教一个,这是什么原因,在vb.net2008如何才能将控件与数据库绑定?

vb6.0与vb.net2008又有多大的区别呢?

说明:其中的Department为部门表,Department_name为该表中的部门名称字段。
[最优解释]

引用:
非常感谢你告诉我vb与vs是二个东西,至于你所说的去GooGle一下,我是搜了无果才来一问的,所以,不好意思,1楼的分不能给你。

二楼所说的有关看书,这个我懂,只是先涉略一下,
如果只是vb6.0的升级,里面并无多大的变化,我将选择去购一本将为深一点的书来学,否则如1楼所说的,完全是二个不同的东西,我将选择去购一本入门级的书来从头学习。
不好意思了,2楼的分也不能你了。

在此十分……


额,这样啊,那么以下代码可以满足你的要求:



Public Sub FillDataToCombobox(ByVal objTableName As String, ByVal objColumnName As String, ByVal objCombobox As ComboBox)
        Dim objDataSet As New DataSet
        Using objData As New WDABase
            Try
                objDataSet.Clear()
                objData.SQL = "Select DISTINCT " & objColumnName & " from " & objTableName & " where " & objColumnName & " is not null"
                objData.OpenConnection()
                objData.FillDataSet(objDataSet, objTableName)
                objCombobox.DataSource = objDataSet.Tables(objTableName)
                objCombobox.DisplayMember = objColumnName
                objCombobox.AutoCompleteSource = AutoCompleteSource.ListItems
                objCombobox.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest


                objCombobox.Text = ""
            Catch ex As Exception
                MsgBox("错误信息:" + ex.ToString, MsgBoxStyle.Critical, "System")
            Finally
 
            End Try
        End Using


[其他解释]
vb和vs完全是两个东西,不会绑定数据库,自己google,代码一大堆
[其他解释]
额,你的问题太复杂了,要从数据库开始,access和sql又是两个东西,建议去看书吧。
[其他解释]
非常感谢你告诉我vb与vs是二个东西,至于你所说的去GooGle一下,我是搜了无果才来一问的,所以,不好意思,1楼的分不能给你。

二楼所说的有关看书,这个我懂,只是先涉略一下,
如果只是vb6.0的升级,里面并无多大的变化,我将选择去购一本将为深一点的书来学,否则如1楼所说的,完全是二个不同的东西,我将选择去购一本入门级的书来从头学习。
不好意思了,2楼的分也不能你了。

在此十分感谢楼上的帮忙。

热点排行