module mdlcommon public txtsql as string '存放sql語句 public dbset as dataset '查詢得到的記錄集 public errormsg as string '存放錯誤信息
public function executesql(byval strsql as string, byref errmsg as string) as dataset dim cnn as sqlclient.sqlconnection dim cmd as new sqlclient.sqlcommand() dim adpt as sqlclient.sqldataadapter dim rst as new dataset() dim splitsql() as string errmsg = "" try splitsql = split(strsql) cnn = new sqlclient.sqlconnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234")
if instr("insert,delete,update", ucase$(splitsql(0))) then cmd.connection = cnn cmd.connection.open() cmd.commandtext = strsql cmd.executenonquery() else adpt = new sqlclient.sqldataadapter(strsql, cnn) adpt.fill(rst) executesql = rst end if catch ex as exception errmsg = ex.message finally rst = nothing cnn = nothing end try end function end module 調用時在asp.net后臺寫上txtsql="select ....from........"; dbset=executesql(txtsql,errormsg)
