Модуль MdlCommon
Публичный txtSQL As String '存放SQL语句
Public DBSet As DataSet '查询得到的记录集
Public ErrorMsg As String '存放错误信息
Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet
Dim cnn как SqlClient.SqlConnection
Dim cmd как новый SqlClient.SqlCommand()
Dim адпт как SqlClient.SqlDataAdapter
Сначала уменьшите яркость как новый набор данных()
Dim SplitSQL() как строка
errMsg = ""
Пытаться
СплитSQL = Сплит(стрSQL)
cnn = New SqlClient.SqlConnection("источник данных=(локальный);начальный каталог=urp;идентификатор пользователя=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Затем
cmd.Connection = cnn
cmd.Соединение.Открыть()
cmd.CommandText = стрSQL
cmd.ExecuteNonQuery()
Еще
adpt = Новый SqlClient.SqlDataAdapter(strSQL, cnn)
adpt.Fill(первый)
ВыполнитьSQL = первый
Конец, если
Поймать бывшего как исключение
errMsg = ex.Сообщение
Окончательно
первый = Ничего
cnn = Ничего
Конец попытки
Конечная функция Конечный модуль
调用时在asp.net后台写上txtSQL="SELECT ....FROM.......";
DBSet=ExecuteSQL(txtSQL,ErrorMsg)