vbcombox数据库
1. VB中combobox链接ACCESS数据库代码怎么写（带注释）。
先查数据库，用ADO控件也好用ODBC也好或者DAO都会有和数据集合。
While Not rs.EOF
Combo1.SelectItem.Add rs.Fields("字段名")
rs.MoveNext
Wend
2. VB 中 combobox
1、应该是2个combox的联动，就像选择中国，combo2就弹出34个省级行政区
2、代码不写了
3、 Form_Load（）加载时，查数据库，循环写入所有元器件类型到Combo1中
4、当用户在combo1中选择了某中元器件时，即发生Combo1_Change()事件
5、在Combo1_Change()事件中，根据combo1.text查数据库，循环写入combo2中
6、当用户在combo2先择某中类型后，发生combo2_change()事件
7、在combo2_change()事件中，写入你想要实现的代码
3. vb6.0 combobox 绑定 ASSESS数据库啊
Combo1.AddItem (Trim(rstnull)) 错误
例如：combo1绑定数据库中的字段为a,写成：
Combo1.AddItem (Trim(rst.fields!a))
4. 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
5. 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
6. vb中怎么在combobox控件上连接SQL数据库最好详细点
创建一个DataSet和sqldataadapter
打开数据库连接
用SqlDataAdapter 填充 DataSet
再用数据源绑定Combobox
7. 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
8. 关于VB COMBOBOX连接到数据库中的关键字ACESS
根据combo1.text
用if 或者select case
来添加combo2的选项
然后在记录集合打开的时候把2combo做为条件代入
然后再Set DataGrid1.DataSource = rs
9. VB中怎么在combobox里面加选项 以下拉列表方式出现如果连数据库取表里的值怎么做
在Combo1的下拉事件中加入代码，如下：
Private Sub combo1_DropDown()
Me.combo1.Clear
Dim CN As New ADODB.Connection
CN.Open"Provider=microsoft.jet.oledb.4.0;data source=" & App.Path &"\数据库名称.mdb"
DimJ As Integer
DimST As String
Dimrso As ADODB.Recordset
Setrso = New ADODB.Recordset
ST= "select * from 表名"
rso.Open ST, CN, adOpenKeyset, adLockOptimistic
IfNot rso.EOF Then
rso.MoveFirst
End If
ForJ = 1 To rso.RecordCount
Me.combo1.AddItem rso("字段名")
rso.MoveNext
NextJ
rso.Close
Set CN = Nothing
End sub
10. 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