模块 MdlCommon
Public 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
将 cnn 调暗为 SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand()
Dim adpt As SqlClient.SqlDataAdapter
首先变暗为新数据集()
Dim SplitSQL() 作为字符串
错误信息=“”
尝试
SplitSQL = 分割(strSQL)
cnn = New SqlClient.SqlConnection("数据源=(本地);初始目录=urp;用户id=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0)))然后
cmd.Connection = cnn
cmd.Connection.Open()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
别的
adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)
自适应填充(rst)
执行SQL = 首先
结束如果
捕获 ex 作为异常
errMsg = ex.消息
最后
首先=什么都没有
cnn=什么都没有
结束尝试
结束功能结束模块
调用时在asp.net后台写上txtSQL="SELECT ....FROM........";
DBSet=执行SQL(txtSQL,ErrorMsg)