Module MdlCommon
Public txtSQL As String 'pour SQL
DBSet public en tant que DataSet '
Public ErrorMsg As String '
fonction publique ExecuteSQL (ByVal strSQL As String, ByRef errMsg As String) As DataSet
Dim cnn comme SqlClient.SqlConnection
Dim cmd comme nouveau SqlClient.SqlCommand()
Dim adapter en tant que SqlClient.SqlDataAdapter
Dim d'abord comme nouveau DataSet()
Dim SplitSQL() en tant que chaîne
errMsg = ""
Essayer
SplitSQL = Fractionner(strSQL)
cnn = New SqlClient.SqlConnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Alors
cmd.Connexion = cnn
cmd.Connection.Open()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
Autre
adpt = Nouveau SqlClient.SqlDataAdapter(strSQL, cnn)
adpt.Fill(premier)
ExécuterSQL = premier
Fin si
Attraper un ex comme exception
errMsg = ex.Message
Enfin
premier = Rien
cnn = Rien
Fin Essayer
Module de fin de fonction de fin
Fichier asp.net后台写上txtSQL="SELECT ....FROM.......";
DBSet=ExécuterSQL(txtSQL,ErrorMsg)