模組 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
將 cnn 調暗為 SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand()
Dim adpt As SqlClient.SqlDataAdapter
首先變暗為新資料集()
Dim SplitSQL() 作為字串
錯誤訊息=“”
嘗試
SplitSQL = 分割(strSQL)
cnn = New SqlClient.SqlConnection("資料來源=(本地);初始目錄=urp;使用者id=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0)))然後
cmd.Connection = cnn
cmd.Connection.Open()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
別的
adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)
自適應填充(rst)
執行SQL = 首先
結束如果
捕獲 ex 作為異常
errMsg = ex.訊息
最後
首先=什麼都沒有
cnn=什麼都沒有
結束嘗試
結束功能結束模組
呼叫時在asp.net後台寫上txtSQL="SELECT ....FROM........";
DBSet=執行SQL(txtSQL,ErrorMsg)