存儲(chǔ)過程使用大全-資料下載頁
2025-08-22 18:11本頁面
【正文】 象dim rs ‘Recordset 對(duì)象set con=(“”) dsnset cmd=() set =Con= storename =adCmdStoredProc (@State,adInteger,adParamInput,4) (@WhereT,adVarChar,adParamInput,200) (@BranchType,adVarChar,adParamInput,50) cmd(@State) = 1 cmd(@WhereT)=”2”cmd(@BranchType)=”3”getpmt(cmd) ‘獲取存儲(chǔ)過程的參數(shù)set rs=() =3 =3 =3 set =cmd ‘======================================================’‘ 形成存儲(chǔ)過程的函數(shù)‘=======================’‘ 輸入?yún)?shù) a= mand對(duì)象‘=======================’sub getpmt(a)b=b=replace(b,?,)b=replace(b,)b=replace(b,},)b=replace(b,{,)b=replace(b, ,)b=replace(b,call,)b=replace(b,(,)b=replace(b,),) centertable border=1 cellpadding =0 cellspacing =0 bordercolordark=ffffff bordercolorlight=cccc88tr onclick=amp。bamp。.=39。39。td bgcolor=cccc88 amp。 b amp。 /td/trtr id=amp。bamp。 style=display:nonetd TEXTAREA rows=6 cols=70 style=39。fontcolor:ccc888。bgcolor:ffffc39。 bfor each element in c=elementc=39。 amp。 replace(c,39。,39。39。) amp。 39。d=d amp。 vbcrlf amp。 amp。=amp。 c amp。,next d=left(d,len(d)1) d /TEXTAREA/td/tr/table/centerend sub1
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1