VB+oracle 连接示例:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
conn.CommandTimeout = 1
conn.Open "Provider=OraOLEDB.Oracle.1;Password=gl2hys;User ID=gl2hys;Data Source=gl2hys;Persist Security Info=True"
sql = "select * from sjk5_display"
rs1.CursorLocation = adUseClient
rs1.Open sql, conn, adOpenKeyset, adLockOptimistic