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数据库,哪位能帮忙详细解释一下每一句的含义
解决方案 »
- 我的又一个坏毛病100分散起。
- 串行口能发送数据,但读取不到
- 谁能提供sp5地址???
- 有熟悉图形的吗?为什么使用SavePicture不能保存BMP?
- 请问如何录制gsm6.10格式的声音文件?
- 如何解決"Runtime error '429' ActiveX Component can't create object"錯誤﹖
- 菜鸟问题,急急!!!
- 请教几个做日本项目的问题,谢谢
- 有重谢!!哪里有关于控件方面的书籍能下载,请告知,
- 菜鸟问:VB倒底能做些什么类型的软件?
- 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
***************************************************
得到记录集