Private Sub Form_Load()
          Dim cn As ADODB.Connection
          Dim rs     As ADODB.Recordset
          Set cn = New ADODB.Connection
          cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User Id=aaa;Password=aaa;Data    Source=TEST;"
          strQuery = "select   *   from   aaa"
          Set rs = New ADODB.Recordset
          rs.Open strQuery, cn, adOpenStatic, adLockOptimistic
          Set DataGrid1.DataSource = rs
End Sub
我使用上面的vb代码连接的oracle数据库,哪位能帮忙详细解释一下每一句的含义

解决方案 »

  1.   

    cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User Id=aaa;Password=aaa;Data    Source=TEST;"
    **************
    打开数据库连接
      

  2.   

    Private Sub Form_Load()
    '定义数据库连接对象
              Dim cn As ADODB.Connection
              '定义数据集对象
              Dim rs     As ADODB.Recordset
              '实例化cn对象
              Set cn = New ADODB.Connection
              '使用指定数据库连接字串,打开数据库连接
              cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User Id=aaa;Password=aaa;Data    Source=TEST;"
              '构造SQL语句
              strQuery = "select   *   from   aaa"
              '实例化rs
              Set rs = New ADODB.Recordset
              '将SQL语句发送给数据库,获得相应的记录集
              rs.Open strQuery, cn, adOpenStatic, adLockOptimistic
              '设定界面控件DataGrid1的数据源为rs
              Set DataGrid1.DataSource = rs
    End Sub
      

  3.   

    rs.Open strQuery, cn, adOpenStatic, adLockOptimistic
    ***************************************************
    得到记录集