Ⅰ VB 如何给combo的list中添加数据
VB使用AddItem 方法给ComboBox控件添加数据。
AddItem 方法，用于将项目添加到 ListBox 或 ComboBox 控件。不支持命名参数。
PrivateSubForm_Click()
DimEntry,I,Msg'声明变量。
Msg="点OK增加100项到ComboBox控件"
MsgBoxMsg'显示信息。
ForI=1To100'计数值从1到100。
Entry="Entry"&I'创建输入项。
Combo1.AddItemEntry'添加该输入项。
NextI
EndSub
Ⅱ vb编程，将数据库中的数据导入到combobox中
帮你改了！注意Dim mrc As New ADODB.Recordset 少了New。
只要将mrc.Close删除就可以了。然后在Txtsql上面加上If mrc.State = adStateOpen Then mrc.Close具体代码请看下
Dim mrc As New ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim i As Integer
comboSex.AddItem "男"
comboSex.AddItem "女"
If mrc.State = adStateOpen Then mrc.Close
txtSQL = "select * from class_info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'添加内容到列表框中
comboClassNo.Clear
mrc.MoveFirst
Do While Not mrc.EOF
comboClassNo.AddItem mrc.Fields(0).value
mrc.MoveNext
Loop
End Sub
Ⅲ vb combobox怎么连接accesss数据库，求代码，请多标注注解
还是要先建立ADO连接，然后combobox用来取数。
Private Sub Command1_Click()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS完整路径/ACCESS名;UID=...;PWD=...."
Adodc1.RecordSource="Select * From ACCESS 表"
Adodc1.Refresh
'----------//这就是连接数据库字符串，
’----------//要引用数据就该这么写
If Not Adodc1.RecordSET.EOF Then
'---------//必须排除数据连接异常，不然查询数据时每次提示响应连接
Combo1.AddItem Adodc1.RecordSet.Fields("字段名")
'--------让COMBO框显示查询列第一个记录
Adodc1.RecordSet.MoveNext
'--------下移再读取该列其它数到COMBO下拉中
End If
End Sub
Ⅳ vb中的ComboBox控件连接数据库的代码。
参考以下代码吧,Cbx_Fields是ComboBox,通过按钮Cmd_Add_Click添加,当然,你也可以通过form_load添加
Dim fld '
Dim rs As New ADODB.Recordset '定义数据集对象
Function cnn() As ADODB.Connection '定义连接函数
'创建连接
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_medicine.mdb;Persist Security Info=False"
End Function
Private Sub Cmd_Add_Click() '添加按钮
rs.Open "select * from tb_xsd", cnn, adOpenKeyset, adLockOptimistic
Set fld = rs.Fields
For Each fld In rs.Fields
'向ComboBox控件中添加字段
Cbx_Fields.AddItem fld.Name
Next
rs.Close
Cbx_Fields.ListIndex = 0
End Sub
Ⅳ VB中combobox链接ACCESS数据库代码怎么写（带注释）。
先查数据库，用ADO控件也好用ODBC也好或者DAO都会有和数据集合。
While Not rs.EOF
Combo1.SelectItem.Add rs.Fields("字段名")
rs.MoveNext
Wend
Ⅵ vb 用SQL语句往combobox中输入数据
把具体说一下，
如果你是要把COMBO的TEXT赋数据库里的值
那么
你这样使用就可了（假如你己经建好了一个ADO控件，并连好了数据库
combotext1.text=adodc1.recordset.fields("字段名")
当你的ADO设好以后。你用了这一句不能读到数据库里的数据吗？
Ⅶ vb6.0 combobox 绑定 ASSESS数据库啊
Private Sub Form_Load()
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
Dim conn As String con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db .mdb;Persist Security Info=False" 'ACcess类型链接
sql = "select 货物单位 from 单位" '从字段单位中选择货物单位
rst.Open sql, con, adOpenKeyset, adLockOptimistic ’这几个变量都要赋值的否则根本没打开文件嘛根本没路径Combo1.Clear
Do While Not rst.EOF ’如果不是结尾一直循环
Combo1.AddItem (Trim(rstnull)) '估计是添加所选字段
rst.MoveNext ’移动到下一个字段
Loop rst.Close
con.Close End Sub
Ⅷ 如何向combobox中插入数据库中的数据
combobox选择之后就添加记录?还是等提交了,也就是点击保存了之后再添加?
如果是提交了之后再添加记录的话,无非取得各个控件的值攒成sql语句执行就行了,涉及到combobox控件的取值问题
绑定的时候这样绑定
combobox1.datasource
=
dt1;
combobox1.valuemember
=
"id";
combobox1.displaymember
=
"name";
提交的时候获取combobox的值这样获取:
combobox1.selectedvalue.tostring()
Ⅸ VB中，如何把数据库内容引入combox下拉列表中
添加内容到combox中：
dim con as new adodb.connection
dim rs as new adodb.recordset
private sub form_load() '在窗体加载事件中，设置两个文本框内容为空，
B.text="" '设置文本框B内容为空
C.text="" '设置文本框C内容为空
打开数据库连接
con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=参数.mdb;persist security info=false"
if rs.state<>adstateclosed then rs.close
rs.open "select * from 尺寸",con,1,3
if rs.eof=false and rs.bof=false then
rs.movefirst
while not rs.eof
combox.additem.rs.fields("A") '添加内容到combox中
rs.movenext
wend
end if
end sub
private combox_click()
if rs.state<>adstateclosed then rs.close
rs.open "select * from 尺寸 where A='" & combox.text & "'",con,1,3
if rs.eof=false and rs.bof=false then
B.text=rs.fields("B") '将查找到的内容分别赋给文本框B、C
C.text=rs.fields("C")
end if
end sub
Ⅹ vb combobox 数据库
Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=123"
SqlStr = "Select 会员姓名 From 会员消费"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Do While rst.EOF = False
Combo1.AddItem rst.Fields("会员姓名").Value
rst.MoveNext
Loop
End Sub