在vb6中如何通过OLEDB连接ORACLE？

Question

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
    cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;Data Source=YOUR_DB", UserId,Pwd
    strQuery = "select * from YOUR_TABLE"
    Set rs = New ADODB.Recordset
    rs.Open strQuery, cn, adOpenStatic, adLockOptimistic

Answer 1

建立一个数据库联接，然后直接用它的属性进行设置，以后你的recordset都可以用它打开！好处：
1、实现共用通道，不用老建立connection
2、如果实在想手写代码也可以用它建立好联接，然后看它的属性，里面自动生成上面的连接语句
3、方便的进行交易保护操作！