VB的数据库问题!!急

Question

先引用Active Data object 2.5
    Dim db As ADODB.Connection
    '连接数据库
     Set db = New ADODB.Connection
     db.CursorLocation = adUseClient
     db.Open strProvider
     Set xBWStkTran = New Recordset
     xBWStkTran.Open "select C.* from TB",db, adOpenStatic, dLockOptimistic
    If xBWStkTran.RecordCount <= 0 Then        xBWStkTran.Close
        Set xBWStkTran = Nothing
        db.Close
        Set db = Nothing
    End If

Answer 1

为什么不看帮助?
没MSDN吗?买一套吧.

Answer 2

引用dao库。access2000的数据库要dao3.6来支持。要是你的机子上没有。就装个sp5吧。

Answer 3

看来还是要ADO的控件来支持,如果窗体上没有ADODB这个控件,好像还是不会出来象小星星说的源代码,我已经试过了,是不是我的VB出现了问题,还是我的代码写的不对??
dim db = new ADODB.Connection
在没有加入ADODB的控件时是不能出来这段代码的
我只是想知道要不要在窗体上加入ADODB这个控件,谢谢

Answer 4

引用ADO对象库后就可以不添加ADO控件