使用sql server中的字段作为combo控件的项目列表.txt

VB技巧问答10000例 VB技巧问答10000例

Dim adoCn as New ADODB.Connection 
    Dim adoRs As New ADODB.Recordset 
    sTab为 表 名 ,ComboName为 ComboBox控 件 . 
     
    adoRs.Open sTab, adoCn, , adCmdTable 
    For i = 0 To adoRs.Fields.Count - 1 
     ComboName.AddItem adoRs.Fields(i).Name 
    Next 
<END>