vb中combobox中的内容如何保存

来源：百度知道 编辑：UC知道 时间：2024/06/24 10:59:23
我想将combobox中选中的内容保存到数据库中。比如有三个选项，当选中其中的一个，点保存按钮，就能把数据保存起来。谢谢大家帮忙，我将不胜感激！

建个数据库:库名m_list.mdb,表名music,添加一个字段m_name

放入一个按钮,一个下拉菜单,一个Adodc

窗体代码:

Dim con As New ADODB.Connection

Private Sub Command1_Click()

Dim rs As New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\m_list.mdb"
rs.Open "select m_name from music ", con, 1, 2
rs("m_name") = Combo1.Text
rs.Update

End Sub

Private Sub Form_Load()

Command1.Caption = "保存"

Combo1.Text = "请选择"
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"

End Sub

楼上正解
Dim rs As ADODB.Recordset
Dim CnStr As String, Sql As String
Dim conn As New ADODB.Connection
With conn
If .State = adStateOpen Then .Close
.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.