十亿火急，如何用VB6读取Access2000的mdb数据库？

Question

用代码还是控件？用什么显示数据？
把你的邮件地址发给我。我给你示例
[email protected]

Answer 1

我用代码，我的信箱是[email protected]

Answer 2

用ado控件和jet4.0（不是jet3.6）驱动

Answer 3

dim cn As ADODB.Connection
dim rs As ADODB.Recordset
Private Sub SQLOLEDBConnect()
Set cn = New ADODB.Connection
    MousePointer = vbHourglass    ' Use the global connection object - cn
    ' Connect using the OLE DB provider for SQL Server - SQLOLEDB
    cn.ConnectionString = "provider=microsoft.jet.oledb.4.0"
    cn.Open "C:\XX.mdb"
    MousePointer = vbDefault
    
End Sub
Private Sub KeysetRecordset(SstrSQL As String)
    
    Set rs = New ADODB.Recordset
    Screen.MousePointer = vbHourglass
    With rs
        Set .ActiveConnection = cn
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .CursorLocation = adUseClient
        .Open SstrSQL
    End With
    Screen.MousePointer = vbDefaultEnd Sub