Set xjCon = New Connection
'设置服务器名称,数据库名称,登录名(此时假设密码为空)
Dim ServerName1 As String, DBName1 As String, UserName1 As String, strPwd1 As String
ServerName1 = "A"
DBName1 = "ftoracle"
UserName1 = "SYSTEM"
strPwd1 = "manager"
'连接到数据库
With xjCon
.CursorLocation = adUseClient
.CommandTimeout = 1000
.ConnectionString = "Provider=MSDAORA.1;DRIVER={oracle};SERVER=" & ServerName1 & ";DATABASE=" & DBName1 & ";UID=" & UserName1 & ";PWD=" & strPwd1
.Open
End With
End Sub
'设置服务器名称,数据库名称,登录名(此时假设密码为空)
Dim ServerName1 As String, DBName1 As String, UserName1 As String, strPwd1 As String
ServerName1 = "A"
DBName1 = "ftoracle"
UserName1 = "SYSTEM"
strPwd1 = "manager"
'连接到数据库
With xjCon
.CursorLocation = adUseClient
.CommandTimeout = 1000
.ConnectionString = "Provider=MSDAORA.1;DRIVER={oracle};SERVER=" & ServerName1 & ";DATABASE=" & DBName1 & ";UID=" & UserName1 & ";PWD=" & strPwd1
.Open
End With
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货