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