1.vb通用資料操作方法。
2.通用資料庫查詢方法。
3.通用資料庫操作方法。
'erp查詢資料庫
public function yzquery(sqls as string, msgstring as string) as adodb.recordset
on error goto executesql_error
set cnn =new adodb.connection
cnn.connectionstring =connectstring
cnn.open
set rst =new adodb.recordset
rst.open trim$(sqls), cnn, adopenkeyset, adlockoptimistic
set yzquery =rst
msgstring = "
查詢到
" & rst.recordcount & "
條記錄
"executesql_exit:
set cnn =nothing
exit function
executesql_error:
msgstring = "
查詢錯誤:
" &err.description
resume executesql_exit
end function
'erp更新資料庫
public function yzupdate(sqls() as string, msgstring as string) as boolean
dim i as long
on error goto executesql_error
set cnn =new adodb.connection
cnn.connectionstring =connectstring
cnn.open
cnn.begintrans
for i =lbound(sqls) to ubound(sqls)
cnn.execute sqls(i)
next
cnn.committrans
yzupdate =true
executesql_exit:
set rst =nothing
set cnn =nothing
exit function
executesql_error:
msgstring = "
更新錯誤:
" &err.description
yzupdate =false
cnn.rollbacktrans
resume executesql_exit
end function
上面查詢方法與操作方法都到了connectstring定義如下：
public const connectstring = "driver=;server=192.168.1.1; uid=sa; pwd=123; database=erp;
"
通用資料庫操作方法（SQL語句篇）
region 查詢 sql語句返回dataset 型別 傳入sql語句和表別名，查詢資料庫，取出結果集放入dataset中 sql語句 資料庫表名 dataset表 public dataset getdataset string sql,string tmptable catch exceptio...
SQL資料庫 操作方法
sql資料庫操作方法 執行資料庫語句 public void executesql string strsql 是否有資料 public bool hasdata string tablel 建立資料庫 資料庫名 public void createdatabase string db else c...
Discuz 資料庫操作方法
函式 功能 db table tablename 獲取正確帶字首的表名，轉換資料庫控制代碼 db delete tablename,條件,條數限制 刪除表中的資料 db insert tablename,資料 陣列 是否返回插入id,是否是替換式,是否silent 插入資料操作 db update ...