모듈 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()로 사용
SqlClient.SqlDataAdapter로 Dim 적응
먼저 새 DataSet()으로 희미해집니다.
문자열로 Dim SplitSQL()
오류 메시지 = ""
노력하다
SplitSQL = 분할(strSQL)
cnn = New SqlClient.SqlConnection("데이터 소스=(로컬);초기 카탈로그=urp;사용자 ID=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) 그 다음에
cmd.연결 = CNN
cmd.연결.열기()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
또 다른
adpt = 새 SqlClient.SqlDataAdapter(strSQL, cnn)
적응.채우기(첫 번째)
ExecuteSQL = 첫 번째
종료 조건
ex를 예외로 잡아라
errMsg = 예.메시지
마지막으로
첫 번째 = 아무것도
cnn = 아무것도 아니다
시도 종료
함수 종료 모듈 종료
asp.net后台写上txtSQL="SELECT ....FROM........";
DBSet=ExecuteSQL(txtSQL,ErrorMsg)