,vb调试通过了,vbs还调试了半天,都是这些参数阿
Set ōbjCn = CreateObject("ADODB.Connection")
str = "provide=MSDAORA.1;userid=system;password=oracle;data source=scmtest"
objCn.ConnectionString = str
objCn.CursorLocation = 3
objCn.Open
Set adoComm = CreateObject("ADODB.Command")
With adoComm
.ActiveConnection = objCn
.CommandType = 4
.CommandText = "temp.temp"
Set para_trade = CreateObject("ADODB.Parameter")
para_trade.Name = "startdate"
para_trade.Type = 200
para_trade.Size = 1000
para_trade.Direction = 1
para_trade.Value = "20080516"
.Parameters.Append para_trade
Set para_trade1 = CreateObject("ADODB.Parameter")
para_trade1.Name = "enddate"
para_trade1.Type = 200
para_trade1.Size = 1000
para_trade1.Direction = 1
para_trade1.Value = "20080516"
.Parameters.Append para_trade1
rs=CreateObject("ADODB.Recordset")
Set rs = .Execute()
End With
If Not rs.EOF Then
Call msgbox (rs.RecordCount)
Call msgbox ("test!!!!!!!!!!!!" & rs(3))
rs.Close
End If
objCn.Close
Set rs = Nothing
Set adoComm = Nothing