VB连接oracle数据库,高手帮帮忙

Question

VB连接oracle数据库,高手帮帮忙
请高手帮帮忙
最好能给个实例
谢谢了

Answer 1

Option Explicit
Public con As Connection
Private Const ConStr = "provider=msdaora;data source=test;user id=test;password=test"Public Sub oracle_connect()
On Error GoTo connect_error
                 Set con = New ADODB.Connection
               
                 With con
             .CommandTimeout = 500
             .ConnectionString = ConStr
             .CursorLocation = adUseServer
            .Open
         End With
connect_error:
         If con.State = adStateClosed Then
         MsgBox "连接超时，无法连接数据库服务器!!"
         End
     End If      
End Sub
这是我连接oracle的函数，你可以把它粘到模块里。你要改一下data source,user id,password

Answer 2

Visual Basic Accessing an Oracle Database Using ADOhttp://support.microsoft.com/default.aspx?scid=kb;EN-US;176936

Answer 3

Dim connstr as stringDim conn As New ADODB.Connection
Dim Rs As New ADODB.Recordsetconnstr = "Provider=MSDAORA.1;User ID=user;Data Source=SQLServerName;Persist Security Info=False"conn.Open connstr