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数据库,哪位能帮忙详细解释一下每一句的含义
解决方案 »
- 简介双击才显示
- 一百分用vb做的语音系统??急用!
- [求助]OLE控件无效
- 数据库的连接,帮忙看一下代码哪出了问题?
- 在数据库输出成word文档时,如何在同一页中建立两个独立的表格!?
- 写二进制文件问题??
- 问一个与vb无关的问题,MAV是什么格式的文件?
- 急!!高分求助!水晶报表(CrystalReport)中排序问题!
- 请问如何在 [ VBA ] 中动态生成 [ 文本框 ] 控件 ???
- Ado 的 filter 和 SQL的"Select * from XXX Where ...."比较谁速度快
- VB程序调试时候报错:System.ArgumentException: Argument 'Path' is Nothing or empty
- vb 6.0 + sql combo 与 text 问题
**************
打开数据库连接
'定义数据库连接对象
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
***************************************************
得到记录集