1樓：匿名使用者
這個就是乙個用ado開啟資料庫，取出資料的操作
public function executesql(byval sql as string) as adodb.recordset 定義公共函式過程
dim mycon as adodb.connection
dim rst as adodb.recordset
定義mycon ado鏈結
定義rst為記錄集
set mycon = new adodb.connection
mycon.connectionstring = connstring
設定mycon為乙個空字串記錄集
mycon.open
dim stokens() as string
on error goto exectuesql_error
stokens = split(sql)
mycon開啟方法 定義strokens字串陣列
錯誤返回exectuesql_error
if instr("inser,delete,update", ucase(stokens(0))) then
mycon.execute sql
else
set rst = new adodb.recordset
rst.open trim(sql), mycon, adopenkeyset, adlockoptimistic
set executesql = rst
end if
如果instr等於後邊那個字串 mycon呼叫execute方法
否則rst建立新記錄集 rst開啟資料庫 executesql等於rst
exectuesql_exit:
set rst = nothing
set mycon = nothing
exit function
exectuesql_error:
resume exectuesql_exit
end function
定義退出函式 rst mycon清空 推出過程
定義錯誤返回函式 返回exectuesql_exit
過程結束
好久沒拿起過vb了 不知道對不對 憑著印象寫的~~ 僅供參考哦
2樓：櫻桃花語
executesql
看這個的字樣，應該就是傳入乙個sql執行這個sql返回記錄集。。
請各位大俠幫幫忙，求助各位大俠幫幫忙
不但不合理，而且不合法的。合同內容必須具體 明確的，你把合同簽了，也不能算把地皮買下來的，因為村的土地屬於集體土地，所有權是屬於集體的，你買的只是使用權 承包 租賃 轉讓等 租賃合同一般不能超過20年，超過的部分無效。既然是租賃，就不算是買下來。要是租的話肯定要有時間，這個合同你最好去律師所裡面鑑定...
急請各位幫幫忙,急請各位幫幫忙
隨著經濟社會的縱深發展，我們大學生作為社會特殊的消費群體，我們的消費觀念的塑造和培養更為突出而直接地影響我們世界觀的形成與發展，進而對我們一生的品德行為產生重要的影響。因此，關注大學生消費狀況，把握大學生生活消費的心理特徵和行為導向，培養和提高我們的 財商 在當前就成為我們當代大學生共同關注的課題。...
各位大神幫幫忙,請各位大神幫幫忙
你可以在手機的下拉列表關閉自動亮度，也可以進入設定 顯示 亮度進行調節，同時你也可以恢復下手機的預設設定。若您還有其他的問題諮詢，您可以進入oppo企業平台向客服諮詢提問喔！各位大神幫幫忙！可能是記憶體故障了 建議送修至聯想維修站網點看看。回。lenovo維修網點答查詢 請各位大神幫幫忙 嫦娥應該來...