dim data_connection as new adodb.connection 'ado連線物件
dim data_recordset as new adodb.recordset 'ado的記錄集
dim sqlcmdcheckelement as new adodb.command
dim sqlcmdcalngnum as new adodb.command
dim sqldeletemtmr as new adodb.command 'w2007 liutao 2007/02/28
dim sqlcmdnomr as new adodb.command
dim sqlcmdnomrdata as new adodb.command
dim adoparam as new adodb.parameter
dim xmax as single, xmin as single, ymax as single, ymin as single
dim bid as long
on error goto checkelement_errhandler
data_connection.connectionstring = connectionstring
data_connection.connectiontimeout = 0
data_connection.open '開啟連線
frmritek.label4.caption = "check element ..."
doevents
matchmode = cint(left$(frmritek.combo1.text, 1))
ciareast = csng(frmritek.text2.text)
sqareast = csng(frmritek.text3.text)
if matchmode = 0 then
sqlcmdcheckelement.activeconnection = data_connection
sqlcmdcheckelement.commandtext = "checkelement"
sqlcmdcheckelement.commandtype = adcmdstoredproc
sqlcmdcheckelement.commandtimeout = 0
sqlcmdcheckelement.execute
ungnum = sqlcmdcheckelement.parameters("@ungnum")
lngnum = sqlcmdcheckelement.parameters("@lngnum")
oknum = sqlcmdcheckelement.parameters("@oknum")
vb6呼叫帶日期引數的儲存過程
create table tmp fcode varchar 10 fdate smalldatetime insert into tmp select a1 2011 08 10 union all select a2 2011 08 11 union all select a3 2011 08 ...
VB中呼叫帶引數儲存過程的實現 資料庫
vb中呼叫帶引數儲存過程的實現 資料庫 張永曉 vb做為快速應用開發 rad 工具越來越得到開發人員的認可和接受。它對許多api 如odbc api socket api等等 的封裝使得程式設計變得簡單起來。同時,它支援整合開發環境下的視覺化 事件驅動 物件導向等程式設計特點。下面,我們談談在vb中...
儲存過程如何呼叫帶引數的儲存過程
declare value varchar max exec tmfun getsearchstr 陝西 table1 name value output select from users where address value 顯示結果為 解釋 其中,tmfun getsearchstr 為儲存...