Modul MdlCommon
TxtSQL Publik Sebagai String '存放SQL语句
DBSet Publik Sebagai DataSet '查询得到的记录集
Public ErrorMsg As String '存放错误信息
Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) Sebagai DataSet
Redupkan cnn Sebagai SqlClient.SqlConnection
Redupkan cmd Sebagai SqlClient.SqlCommand() Baru
Redupkan Adpt Sebagai SqlClient.SqlDataAdapter
Redupkan Pertama Sebagai DataSet Baru()
Redupkan SplitSQL() Sebagai String
errMsg = ""
Mencoba
SplitSQL = Membagi(strSQL)
cnn = SqlClient.SqlConnection baru("sumber data=(lokal);katalog awal=urp;id pengguna=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Kemudian
cmd.Koneksi = cnn
cmd.Koneksi.Buka()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
Kalau tidak
adpt = SqlClient.SqlDataAdapter baru(strSQL, cnn)
adpt.Isi(pertama)
ExecuteSQL = pertama
Akhiri Jika
Tangkap mantan Sebagai Pengecualian
errMsg = ex.Pesan
Akhirnya
pertama = Tidak ada
cnn = Tidak ada
Akhiri Coba
Modul Akhir Fungsi Akhir
调用时在asp.net后台写上txtSQL="PILIH ....FROM.........";
DBSet=JalankanSQL(txtSQL,ErrorMsg)