怎样不用控件读取数据库

Question

Dim Cnxn As New ADODB.connection
    Dim Crst As New ADODB.Recordset
    dim strCnxn as string
    AccessFileName as string '数据库文件路径
    strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessFileName & ";Persist Security Info=False"
    Set Cnxn = New ADODB.connection
    Cnxn.Open strCnxn
    Set Crst = New ADODB.Recordset
    Set Crst.ActiveConnection = Cnxn
    Crst.Source = "Select * From Table1" 
    Crst.Open , , adOpenStatic, adLockPessimistic'crst应该读取数据库文件，table1为数据库文件中的某一个表
'然后用edit,update,eof,bof,movenext等等进行控制就可以
    Crst.Close
    Cnxn.Close
    Set Crst = Nothing
    Set Cnxn = Nothing

Answer 1

方法太多了.
DAO RDO ADO...

Answer 2

搜索硬盘看看ado210.chm和jetsql35.hlp

Answer 3

ADO,先引用microsoft activex data objects 2.5 Library,再同 ll_angel()