连接是这样写的
Public MyConn As New ADODB.Connection
With MyConn
.CursorLocation = adUseClient
.ConnectionString = "Provider=msdaora;Data Source=aaa;User Id=sys;Password=pwd;"
.CommandTimeout = 0
.Open
End With
Dim re As New ADODB.Recordset
Public MyConn As New ADODB.Connection
With MyConn
.CursorLocation = adUseClient
.ConnectionString = "Provider=msdaora;Data Source=aaa;User Id=sys;Password=pwd;"
.CommandTimeout = 0
.Open
End With
Dim re As New ADODB.Recordset
set cm1 = Server.CreateObject("ADODB.Command")
cm1.ActiveConnection = MM_conn_STRING
cm1.CommandText = strsql
cm1.CommandType = 1
cm1.CommandTimeout = 0
cm1.Prepared = true
cm1.Execute()