Dim oCon As New ADODB.Connection
Dim oRS As New ADODB.Recordset
oCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=" & CurrentProject.Path & "\Order_DataBase.accdb;"
Me.ComboBox1.AddItem oRS.Fields
oRS.Close
oCon.Close
Set oRS = Nothing
Set oCon = Nothing
總是提示2047錯誤.
請教大俠們.
uj5u.com熱心網友回復：
添加欄位型別對應嗎資料系結了嗎？
供你參考
uj5u.com熱心網友回復：
同關注此問題uj5u.com熱心網友回復：
1 oRS 物件要打開（查詢記錄集）2 要寫代碼將 oRS 中某一列的資料逐行 AddItem 到 ComboBox 中。
uj5u.com熱心網友回復：
同樣注此問題uj5u.com熱心網友回復：
Dim oCon As New ADODB.Connection
Dim oRS As New ADODB.Recordset
dim i As integer
oCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=" & CurrentProject.Path & "\Order_DataBase.accdb;"
if oRS.state<>adstateclosed then oRS.close
oRS.open " select aa from 表名 "
ComboBox1.clear
for i=1 to oRS.recordcount
ComboBox1.AddItem oRS!aa &""
oRS.movenext
next i
oRS.Close
oCon.Close
Set oRS = Nothing
Set oCon = Nothing
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/128860.html
標籤：VBA
下一篇：VB記錄串口資料