请问combobox如何用代码连到数据库的一张表？

Question

找了两本书都没找到，请教大家一下了。
还有，calendar控件如何绑定显示当前的实际日期？

Answer 1

combobox 连到一张表？你想干什么？直接说你的需求。Private Sub Form_Load()
Calendar1.Value = Date
End Sub

Answer 2

也許用DataCombo更好 可以用屬性直接幫定數據庫中的表
或者是用代碼 
if Rs.EOf Then
   Exit Sub
Endif
While Rs.eof
    
    me.Combo1.AddItem rs!Colname
    rs.Movenext
Wend
就可以了
calendar是什麽啊？沒有見過 不過可以用Date()函數得到當前系統時間

Answer 3

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
dim strsql as string
dim ConnectString as stringstrsql="select Name from tablename" '要取的表中的字段
Set cnn = New ADODB.Connection
ConnectString="ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False" '这是Access的，可以换成SQL连接
cnn.Open ConnectString
strsql="select Name from tablename" 
Set rst = New ADODB.Recordset
rst.Open Trim$(strsql), cnn, adOpenKeyset, adLockOptimistic
combo1.clear
combo1.additem "" '如有必要，加一个空的字段，否则则不需要该行
do while not rst.eof
combo1.additem Trim(rst("Name" &""))
rst.movenext
loop
rst.close
set rst=nothing