如何使用 combox 显示 access 文件中的表

Question

使用vb6.0，在 drive1 和 dir1 , file1 中定位到了一个 access 文件，如何使用 combox 的下拉框中选择这个数据库中的表？选择后对这个表进行操作？
是不是使用 adox？请仔细说明，我是菜头，谢谢

Answer 1

工程->引用->Micorosoft Activex Data Object 2.0 Library(后面为版本号)Public cn1 As New ADODB.Connection, rs As New ADODB.RecordsetIf cn1.State = adStateOpen Then cn1.Close
  
  cn1.ConnectionString = "dsn=" & cboDSN1.Text & ";uid=" & txtUID1.Text & ";pwd=" & txtPWD1.Text
  cn1.Open
  
  Set rs = cn1.OpenSchema(adSchemaTables)
  
  lstTable1.Clear
  
  lblStatus1.Caption = "数据源连接成功，正在检索数据表..."
  
  DoEvents
  
  Do Until rs.EOF
    If Trim(rs!TABLE_TYPE) = "TABLE" Then lstTable1.AddItem Trim(rs!TABLE_NAME)
    rs.MoveNext
  Loop
  
  rs.Close
  Set rs = Nothing===========================================为上以前做的一个程序里的代码,是将表名称添加到LISTBOX控件里,你自己看看吧,希望对你有帮助!!

Answer 2

Dim cat As ADOX.Catalog
    Dim cnn As ADODB.Connection
    Dim tbl As ADOX.Table
    Set cat = New ADOX.Catalog
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text1.Text
    Set cat.ActiveConnection = cnn
    Combo1.Clear
    On Error Resume Next
    For Each tbl In cat.Tables
    If Left(tbl.Name, 4) <> "MSys" Then
    Combo1.AddItem tbl.Name
    End If
    Next
    Set cat = Nothing
    Set Con = Nothing

Answer 3

'返回数据库里的所有表名。需要一个Combo控件
Public Sub AllTableName(cmbTableName As ComboBox)    Dim i As Integer
    
    Set rc = New ADODB.Recordset
    Set rc = cn.OpenSchema(adSchemaTables)
    
    i = 0
    
    Do While Not rc.EOF
        
        If rc!TABLE_TYPE = "TABLE" Then
            If i = 0 Then
                cmbTableName.Text = rc!TABLE_NAME
            End If
            cmbTableName.AddItem rc!TABLE_NAME
            i = i + 1
        End If
        rc.MoveNext
    Loop
    rc.Close
    
End Sub

Answer 4

上面的办法我看的不是很明白可能是水平低下吧我先用一个 text1.text 显示连接的 mdb文件，然后再在 combo1 里面显示 数据库中的表。用他们的方法都没有成功.........555555 我太笨了！！！！！！继续继续.........分数先放在这里，谁能帮我解开，分数全部送上

Answer 5

'引用微软 ADO Ext.2.7 for dll and Security
Dim cat As ADOX.Catalog
Dim cnn As ADODB.Connection
Dim tbl As ADOX.TablePrivate Sub Command1_Click()
On Error Resume Next
For Each tbl In cat.Tables
If Left(tbl.Name, 4) <> "MSys" Then
List1.AddItem tbl.Name
End If
Next
End SubPrivate Sub Form_Load()
Set cnn = New ADODB.Connection
Set cat = New ADOX.Catalog
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\csdn_vb\database\treeview的节点添加\article.mdb"
Set cat.ActiveConnection = cnn
End SubPrivate Sub Form_Unload(Cancel As Integer)
Set cat = Nothing
Set con = Nothing
End SubPrivate Sub List1_Click()
Dim fld
Dim intfield As Integer
List2.Clear
intfield = cat.Tables(List1.List(List1.ListIndex)).Columns.Count
For i = 0 To intfield - 1
    Set fld = cat.Tables(List1.List(List1.ListIndex)).Columns(i)
    List2.AddItem fld.Name
Next
End Sub

Answer 6

得分列表：
 online(龙卷风V2.0--再战江湖) -------------70 非常详细
： liaorui(更烦得很~ξ)---------------------15 
haohaohappy() -----------------------------10
cuizm(射天狼) -----------------------------5