Dim cn As ADODB.Connection Dim rsAdo As ADODB.Recordset Dim cmdAdo As ADODB.Command Dim prmAdo As ADODB.Parameter dim strParaName as string Set cn = New ADODB.Connection Set cmdAdo = New ADODB.Command
On Error GoTo errhandle With cn .ConnectionString = strCn .CursorLocation = adUseClient .ConnectionTimeout = 30 .Open End With Set cmdAdo.ActiveConnection = cn With cmdAdo .CommandType = adCmdStoredProc .CommandText = "proGetCurNum" End With
StrParaname = "input"
Set prMado = cmdado.createParameter (strparaname, addbdate, adparaminput) cmdado.Parameters.Append prmado cmdado.Parameters (strparaname) .value = Date ()
Set prMado = cmdado.createParameter (strparaname, addbdate, adparaminput) cmdado.Parameters.Append prmado cmdado.Parameters (StrParaname) .value = dateadd ("d", 1, date ())
SET prMado = cmdado.createParameter (strparaname, adsmallint, adparaminput) cmdado.Parameters.Append prmado cmdado.Parameters (strparaname) .Value = lngworkno set Rsado = cmdado.execute
IF r ly rsado.state = adstateclosed kil dam = adstateclosed kil dam = adstateclosed kil1 .....
Cn.closeexitline: set cmdwork = Nothing set prmado = Nothing set rsworkmax = nothing set cn = nothing ...
2, ADO:
1 declare AdoDb.command and initialization
Private ladcom_isok as adoDb.command
Set ladcom_isok = new adoDb.command
2 Set ActiveConnection, CommandText, CommandType properties
WITH LADCOM_ISOK
.ActiveConnection = gadcon_fin
.Commandtext = "sp_e_isok"
.Commandtype = adcmdstoredProc
3 Generate parameters through parameters.Refresh, and processing parameters. Parameters.Refresh
'For SQL Server If you do not need to store the return parameter, you need to delete the first parameter.
.Parameters.delete (0)
'For Oracle needs to set the size property of each parameter
.Parameters (0) .size = 4
.Parameters (1) .size = 50
4 Inferred parameters through Parameter
.Parameters (0) = 2
.Parameters (1) = trim (txt_cid.text)
5EXECUTE execution query
.Execute
End with
