VB如何将数据库中的数据添加到COMBO控件中

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source= " &App.Path &"\main12.mdbPersist Security Info=FalseJet OLEDB:Database Password=*********"

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "select * from save_type " '要显示的数据源

Adodc1.Refresh

Adodc1.Recordset.MoveFirst '移碰颂动到第一条记录

Combo1.Clear

For i = 0 To Adodc1.Recordset.RecordCount - 1 '循环添笑凯郑加吧

Combo1.AddItem Adodc1.Recordset.Fields(0).Value

Adodc1.Recordset.MoveNext '移动到孙信下一条记录

Next i

End sub

ComboBox 控件

ComboBox 控件将TextBox 控件和 ListBox 控件的特性结合在一起－既可以在控件的文本框部分输入信息，也可以在控件的列表框部分选择一项。

语法

ComboBox

说明

为了添加或删除ComboBox 控件中的项目，需要使用 AddItem 或

RemoveItem 方法。设置 List、ListCount、和 ListIndex 属汪滑猛性，使访问

ComboBox 中的项目成为可能。也可以在设计时使用 List 属性将项目添加到列表中。

注意 只有当ComboBox

的下拉部分的内容被滚动时，Scroll 事件才在 ComboBox 中发生，而不是每次 ComboBox 的内容改变时。例如，如果

ComboBox 的下拉部分包含五行，并且最顶上的项为突出显示，则在您按完向下箭头键六下（或按一次 PgUp 键）之前 Scroll 事件不发生。再往后，每按一次让郑向上箭头键引发一次 Scroll 事件。

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。 [1]

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 [2]  。程序员可困桥以轻松的使用VB提供的组件快速建立一个应用程序。

方法1：

Public con As New SqlConnection("Data Source=" &computer &"Initial Catalog=" &datesource &"uid=" &username &"pwd=" &password &"connect Timeout=180Integrated Security=FalsePersist Security Info=False")

Try

If con.State = ConnectionState.Open Then

con.Close()

Else

con.Open()

constr = New SqlDataAdapter("select distinct cityname from obas_area where act_sw='1'", con)

objdataset = New DataSet

constr.Fill(objdataset, "和神陆obas_area")

If objdataset.Tables("obas_area").Rows.Count >0 Then

For i As Integer = 0 To objdataset.Tables("obas_area").Rows.Count - 1

ComboBox3.Items.Add(objdataset.Tables("obas_area").Rows(i).Item("cityname").ToString)

Next

End If

con.Close()

End If

objdataset = Nothing

constr = Nothing

Catch ex As SqlException

MessageBox.Show(ex.Message)

Exit Try

End Try

方法2：

Try

If con.State = ConnectionState.Open Then

con.Close()

Else

con.Open()

constr = New SqlDataAdapter("select distinct cityname from obas_area where act_sw='1'"唤顷, con)

objdataset = New DataSet

constr.Fill(objdataset, "瞎哗obas_area")

ComboBox1.DataSource = objdataset

ComboBox1.DisplayMember ="obas_area"

End If

con.Close()

End If

objdataset = Nothing

constr = Nothing

Catch ex As SqlException

MessageBox.Show(ex.Message)

Exit Try

End Try

---