如何把一个表中的所有字段名放入组合框中?

Question

用向导连接数据库，设置组何况的datasource属性

Answer 1

这个问题刚才答过
Dim cnn As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Form_Load()
  Set cnn = New ADODB.Connection
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\mydb.mdb"
  Set rs = New ADODB.Recordset
  rs.Open "select * from student", cnn, adOpenKeyset, adLockOptimistic
  For i = 0 To rs.Fields.Count - 1
    Combo1.AddItem rs.Fields(i).name
  Next
  rs.Close
  Set rs = Nothing
  cnn.Close
  Set cnn = Nothing
End Sub

Answer 2

用adoCombo控件连接数据库就可以做到，不用写代码，很方便的。
这个控件在vb部件里就有。如果还有什么不明白，就给我发E_mail:[email protected]