一个关于ADO问题，问题有点菜？

Question

Public cnn As ADODB.Connection'打开数据库
Public Sub OpenDatabase()
    On Error Resume Next
    Err.Clear
    Set cnn = New ADODB.Connection
    Dim strcnn As String
    With cnn
         .Provider = "Microsoft.Jet.OLEDB.4.0"
         .Properties("Data Source") = App.Path & "\data\aaaa.mdb"
         .Properties("Jet OLEDB:Database Password") = "bbbbbb"
         .Open
    End With
    If Err.Number <> 0 Then
        MsgBox ("不能打开数据库，请确定数据库文件是否存在！"), 48, "数据库连接错误"     '打开失败
        End
    End IfEnd Sub
'打开表PP
    Dim rsPP As ADODB.Recordset
    Dim strSQLpp As String    strSQLpp = "select * from PP"
    Set rsPP = New ADODB.Recordset
    With rsPP
    Set .ActiveConnection = cnn
        .LockType = adLockOptimistic
        .CursorType = adOpenKeyset
        .Open strSQLpp
    End With

Answer 1

如果你用ODBC/DSN方式的话,时需要数据原的
如:conn.open "dsn=...;uid=...pwd=..."
但是如果你用OLEDB或者ODBC Driver的方式的话,就不需要
如conn.open "provider=msdaora;uid=...;pwd=..."
conn.open "driver={microsoft ODBC for Oracle";uid=...;pwd=..."

Answer 2

三楼的朋友，如果我要把打开的记录集加到一个绑定控件比如 Grid，那又如何指定Grid 的相关属性呢？

Answer 3

你可绑定ADO等数据控件，然后给它连接数据源。
这个问题我想你只要看看书，或在论坛里搜索一下，应该很容易解决。

Answer 4

dataGrid.RecordSource = "select * from yourdb"dataGrid.Rebind这样就可以,要看你用的是什么控件了,grid就是这样的,希望我的方法对你有帮助

Answer 5

conn.open "provider=msdaora;uid=...;pwd=..."
conn.open "driver={microsoft ODBC for Oracle";uid=...;pwd=..."
就可以了
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 6

Private Sub DataBoundGrid(cn As ADODB.Connection)    Dim rs As New ADODB.Recordset
    
    MousePointer = vbHourglass    ' Open the  recordset
    With rs
       ' Set the properties & open
       .Source = "select * from authors"
       .ActiveConnection = cn
       .CursorType = adOpenKeyset
       .LockType = adLockOptimistic
       .Open
    End With    ' Populate the grid
    Set hflxResults.DataSource = rs
    
    MousePointer = vbDefaultEnd Sub
 

Answer 7

江．沙．月
朋友在吗？按照你的说法可以了，不过有一点小问，在创建记录集时'打开表PP
    Dim rsPP As ADODB.Recordset
    Dim strSQLpp As String    strSQLpp = "select * from PP"
    Set rsPP = New ADODB.Recordset
    With rsPP
    Set .ActiveConnection = cnn
        .LockType = adLockOptimistic
        .CursorType = adOpenKeyset
        .Open strSQLpp
    End With
在with rspp 处
set 可以省略的
不过还是感谢你，呆会给分