vb combo控件如何将其中的内容添加到其它表的字段内？

来源：百度知道 编辑：UC知道 时间：2024/06/24 09:33:45
大家好，我是一个vb菜鸟，有个问题希望哪位大侠能帮助解决一下，我把combo1中的数据如何添加到另一表中的某个字段，请大家不吝赐教，万分感谢

给你个参考
先引用 : Microsoft Activex Data Objects 2.1 Library
准备工作: 准备好你的数据库(Access的)

程序方面:
在窗体上,添加四个文本框,一个命令按钮,编写如下代码,你试试看
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径及文件名"
'请将路径换成你的数据库位置
Dim Sql As String, S As Long
Sql="Insert Into [表名](字段名) Values('" & Combo1.List(Combo1.ListIndex) & "')"
Conn.Execute
End Sub
上面是添加选中的项
如果是全部添加,将
Sql="Insert Into [表名](字段名) Values('" & Combo1.List(Combo1.ListIndex) & "')"
Conn.Execute
循环就可以了
For i=0 to Combo1.ListCount-1
Sql="Insert Into [表名](字段名) Values('" & Combo1.List(I) & "')"
Conn.Execute
Next