Modul MdlCommon
Öffentliches txtSQL As String 'Die SQL-Anweisung ist nicht verfügbar
Öffentliches DBSet als DataSet
Public ErrorMsg As String '
Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet
Dimmen Sie cnn als SqlClient.SqlConnection
Dimmen Sie cmd als neues SqlClient.SqlCommand()
Dimmen Sie adpt als SqlClient.SqlDataAdapter
Zuerst als neues DataSet dimmen()
Dimmen Sie SplitSQL() als String
errMsg = ""
Versuchen
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))) Dann
cmd.Connection = cnn
cmd.Connection.Open()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
Anders
adpt = Neuer SqlClient.SqlDataAdapter(strSQL, cnn)
adpt.Fill(rst)
ExecuteSQL = zuerst
Ende wenn
Ex als Ausnahme einfangen
errMsg = ex.Message
Endlich
rst = Nichts
cnn = Nichts
Beenden Sie den Versuch
Endfunktion Endmodul
调用时在asp.net后台写上txtSQL="SELECT ....FROM........";
DBSet=ExecuteSQL(txtSQL,ErrorMsg)