Ⅰ 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