الوحدة النمطية MdlCommon
txtSQL العامة كسلسلة 'SQL 语句
DBSet العامة كمجموعة بيانات
خطأ عام كسلسلة، تنفيذ
الوظيفة العامة ExecuteSQL (ByVal strSQL كسلسلة، ByRef errMsg كسلسلة) كمجموعة بيانات
خافت cnn باسم SqlClient.SqlConnection
خافت cmd كـ SqlClient.SqlCommand () جديد
خافت Adpt باسم SqlClient.SqlDataAdapter
تعتيم أولاً كمجموعة بيانات جديدة ()
Dim SplitSQL() كسلسلة
errMsg = ""
يحاول
سبليتSQL = سبليت (سترسكل)
cnn = New SqlClient.SqlConnection("مصدر البيانات=(local);الكتالوج الأولي=urp;معرف المستخدم=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) ثم
cmd.Connection = cnn
كمد.اتصال.فتح ()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
آخر
adpt = SqlClient.SqlDataAdapter الجديد (strSQL، cnn)
Adpt.Fill(rst)
تنفيذ SQL = أول
نهاية إذا
قبض على السابق كاستثناء
errMsg = ex.Message
أخيراً
الأول = لا شيء
سي ان = لا شيء
إنهاء المحاولة
وحدة نهاية الوظيفة النهائية
قم بتحميل ملف asp.net إلى txtSQL="SELECT ....FROM......";
DBSet=تنفيذ SQL(txtSQL,ErrorMsg)