Dim kcNum As Long Dim i As Long Adodc1.ConnectionString = SN Adodc1.RecordSource = "select field1 from mytable group by field1" Adodc1.Refresh kcNum = Adodc1.Recordset.RecordCount For i = 1 To kcNum Combo1.List(i - 1) = Adodc1.Recordset.Fields(0) Adodc1.Recordset.MoveNext Next i
你在硬盘里搜索Jetsql35.hlp这个文件并双击打开就可以学习SQL了.
Dim i As Long
Adodc1.ConnectionString = SN
Adodc1.RecordSource = "select field1 from mytable group by field1"
Adodc1.Refresh
kcNum = Adodc1.Recordset.RecordCount
For i = 1 To kcNum
Combo1.List(i - 1) = Adodc1.Recordset.Fields(0)
Adodc1.Recordset.MoveNext
Next i