Dim mCn As New ADODB.Connectionvb代码: Private Sub Form_Load()
With mCn .ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=XXX;" _ & "Persist Security Info=True;User ID=XXX;Data Source=XXX" .Open End With End Sub Data Source=XXX : XXX是用Net8 配置的服务名
Dim mCn As New ADODB.Connectionvb代码:
Private Sub Form_Load()
With mCn
.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=XXX;" _
& "Persist Security Info=True;User ID=XXX;Data Source=XXX"
.Open
End With
End Sub
Data Source=XXX :
XXX是用Net8 配置的服务名