Módulo MdlCommon
Public txtSQL As String '存放SQL语句
DBSet público como DataSet '查询得到的记录集
Public ErrorMsg As String '存放错误信息
Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet
Dim cnn como SqlClient.SqlConnection
Dim cmd como novo SqlClient.SqlCommand()
Dim adpto como SqlClient.SqlDataAdapter
Escureça primeiro como novo DataSet()
Dim SplitSQL() como string
errMsg = ""
Tentar
SplitSQL = Dividir(strSQL)
cnn = New SqlClient.SqlConnection("fonte de dados=(local);catálogo inicial=urp;id do usuário=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Então
cmd.Conexão = cnn
cmd.Connection.Open()
cmd.CommandText=strSQL
cmd.ExecuteNonQuery()
Outro
adpt = Novo SqlClient.SqlDataAdapter(strSQL, cnn)
adpt.Fill(rst)
ExecuteSQL = primeiro
Terminar se
Capturar ex como exceção
errMsg = ex.Mensagem
Finalmente
primeiro = Nada
cnn = Nada
Finalizar tentativa
Módulo final da função final
调用时在asp.net后台写上txtSQL="SELECT ....FROM........";
DBSet=ExecuteSQL(txtSQL,ErrorMsg)