Oracle不建服务名不可以 sql server 不建服务名也不可以 sql server通过IP建了一个默认的服务名
那就是说一定要安装ORACLE客户端才能用啦?/
访问sql server 需要 服务器名+ 数据库 访问oracle就需要服务名就行了。
服务名+用户名 给你例子: Public Function connectDB(strDs As String, strPws As String, strUserID As String, _ ErrNo As Long, ErrDes As String, Optional ByVal intCursor As ADODB.CursorLocationEnum = adUseServer) As Boolean On Error GoTo ErrorHandle Dim strCnStr As String
If Not (cn Is Nothing) Then Set cn = Nothing End If
sql server 不建服务名也不可以
sql server通过IP建了一个默认的服务名
访问oracle就需要服务名就行了。
给你例子:
Public Function connectDB(strDs As String, strPws As String, strUserID As String, _
ErrNo As Long, ErrDes As String, Optional ByVal intCursor As ADODB.CursorLocationEnum = adUseServer) As Boolean
On Error GoTo ErrorHandle
Dim strCnStr As String
If Not (cn Is Nothing) Then
Set cn = Nothing
End If
Set cn = New ADODB.Connection
strCnStr = "Data Source= " + strDs + ";" + " PASSWORD= " + strPws + ";" + " User ID= " + strUserID + ";" + " Persist Security Info=True" 'connect database
With cn
.CursorLocation = intCursor
.Provider = "OraOLEDB.Oracle.1;"
.ConnectionString = strCnStr
.ConnectionTimeout = 20
.Open
End With
'if user demands transaction then use it
' If UseTransaction = True Then
' cn.BeginTrans
' End If
connectDB = True
Exit Function
ErrorHandle: connectDB = False
ErrNo = Err.Number
ErrDes = Err.DescriptionEnd Function
odbc
.Provider = "OraOLEDB.Oracle.1;"