Módulo MdlComún
TxtSQL público como cadena '存放SQL语句
DBSet público como conjunto de datos '查询得到的记录集
Public ErrorMsg As String '存放错误信息
Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) Como conjunto de datos
Dim cnn como SqlClient.SqlConnection
Atenuar cmd como nuevo SqlClient.SqlCommand()
Ajuste tenue como SqlClient.SqlDataAdapter
Atenuar primero como nuevo conjunto de datos()
Dim SplitSQL() como cadena
mensaje de error = ""
Intentar
DividirSQL = Dividir(strSQL)
cnn = New SqlClient.SqlConnection("fuente de datos=(local);catálogo inicial=urp;id de usuario=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Entonces
cmd.Conexión = cnn
cmd.Conexión.Open()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
Demás
adpt = Nuevo SqlClient.SqlDataAdapter(strSQL, cnn)
adpt.Rellenar(primero)
EjecutarSQL = primero
Terminar si
Atrapar a ex como excepción
errMsg = ex.Mensaje
Finalmente
primero = nada
cn = nada
Finalizar intento
Módulo final de función final
调用时在asp.net后台写上txtSQL="SELECCIONAR ....DESDE.....";
DBSet=EjecutarSQL(txtSQL,Mensaje de error)