โมดูล MdlCommon
สาธารณะ txtSQL เป็นสตริง '存放SQL语句
DBSet สาธารณะเป็นชุดข้อมูล '查询得到的记录集
ErrorMsg สาธารณะเป็นสตริง '
ฟังก์ชันสาธารณะ ExecuteSQL (ByVal strSQL As String, ByRef errMsg As String) เป็นชุดข้อมูล
Dim cnn As SqlClient.SqlConnection
Dim cmd เป็น SqlClient.SqlCommand() ใหม่
Dim adpt เป็น SqlClient.SqlDataAdapter
หรี่แสงเป็นชุดข้อมูลใหม่ ()
Dim SplitSQL() เป็นสตริง
ผิดพลาด Msg = ""
พยายาม
SplitSQL = แยก(strSQL)
cnn = New SqlClient.SqlConnection("data source=(local);initial Catalog=urp;user id=sa;pwd=1234")
ถ้า InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) แล้ว
cmd.Connection = ซีเอ็นเอ็น
cmd.Connection.เปิด()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
อื่น
adpt = SqlClient.SqlDataAdapter ใหม่ (strSQL, cnn)
adpt.Fill(rst)
ExecuteSQL = อันดับแรก
สิ้นสุดถ้า
จับอดีตเป็นข้อยกเว้น
errMsg = อดีตข้อความ
ในที่สุด
แรก = ไม่มีอะไร
ซีเอ็นเอ็น = ไม่มีอะไร
สิ้นสุดการลอง
โมดูลสิ้นสุดฟังก์ชันสิ้นสุด
ลงชื่อเข้าใช้ asp.net后台写上txtSQL="SELECT ....FROM........";
DBSet=ExecuteSQL(txtSQL,ErrorMsg)