VBA_連接oracle數據庫

源代碼

Public CNN  As ADODB.Connection
Sub 連接數據庫()
    Dim DataSource As String
    DataSource = Chr(34) & "(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=111.111.111.111)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=ser_name)))" & Chr(34)
    If CNN Is Nothing Then
       Set CNN = New ADODB.Connection
       With CNN
           .ConnectionString = "Provider=MSDAORA.1; user id=userid; password=Password; data source = " & DataSource & "; Persist Security Info=True"
           .Open
       End With
    Else
       If CNN.State <> 1 Then
            CNN.Open
       End If
   End If
End Sub