モジュール MdlCommon
Public txtSQL As String '存放SQL语句
DataSet としてのパブリック DBSet ' 得られた记录集
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() を文字列として
errMsg = ""
試す
SplitSQL = Split(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 = 新しい SqlClient.SqlDataAdapter(strSQL, cnn)
adpt.Fill(最初)
SQL の実行 = 最初
終了の場合
元を例外としてキャッチ
errMsg = 例メッセージ
ついに
最初 = 何もない
cnn = 何もない
試行を終了する
終了関数 終了モジュール
调用時間asp.net后台書上txtSQL="SELECT ....FROM.....";
DBSet=ExecuteSQL(txtSQL,ErrorMsg)