怎样将数据库中1列值读入combox中

Question

怎样将数据库中1列值读入combox中?请问

Answer 1

'对Access数据库
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs
    '有密码的连接方式
    'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"
    '无密码的连接方式
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表1", cn, 3, 2
    whlie not rs.eof
        Combo1.AddItem rs.Fields("你需要的列名").value
        rs.MoveNext
    wend
    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 2

对SQL Server数据库
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs
    '有密码的连接：
    'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=yourSERVICE"
    '无密码的连接：
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表1", cn, 3, 2
    whlie not rs.eof
        Combo1.AddItem rs.Fields("你需要的列名").value
        rs.MoveNext
    wend
    Exit Sub
err:
    MsgBox err.Description
End Sub