VB/Access的问题 急求帮助，先谢谢啦！加分

Question

大家谁能够帮我解决这个问题啊：就在下边的列表中 刚才解决的不是多好。

Answer 1

Dim Con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Vbp\MyDataBase\DataBase.mdb;Persist Security Info=False"
    Con.Open
    Set rs = Con.Execute("Select 列名 From 表名")
    If Not (rs.EOF And rs.BOF) Then
        While Not rs.EOF
          Me.Combo1.AddItem rs!列名
          rs.MoveNext
        Wend
    End If
    rs.Close
    Con.Close
    Set rs = Nothing
    Set Con = Nothing

Answer 2

什么问题啊？
没看明白。╭═══════════════════╮
║　免费的源码、工具网站，欢迎大家访问！║
║　http://www.j2soft.cn/　　　　　　　　║
╰═══════════════════╯

Answer 3

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
编译错误 ：无效外部过程

Answer 4

我知道了OLEDB->OLE DB 就行了

Answer 5

假定你已经设置好 ADODC 控件的连接，并测试成功。Private Sub Combo1_Click()
    Dim rst As ADODB.Recordset, i As Integer
    
    List1.Clear
    Adodc1.RecordSource = "select top 1 * from " & Combo1.Text
    Adodc1.Refresh
    For i = 0 To Adodc1.Recordset.Fields.Count - 1
        List1.AddItem Adodc1.Recordset.Fields(i).Name
    Next i
End SubPrivate Sub Form_Load()
    Dim rstSchema As ADODB.Recordset
    
    Set rstSchema = Adodc1.Recordset.ActiveConnection.OpenSchema(adSchemaTables)
    
    Do Until rstSchema.EOF
        If rstSchema!TABLE_TYPE = "TABLE" Then
            Combo1.AddItem rstSchema!TABLE_NAME
        End If
        rstSchema.MoveNext
    Loop
    If Combo1.ListCount Then Combo1.ListIndex = 0
    rstSchema.Close
End Sub