يتم استخدام ASP.NET للحفاظ على البيانات وإدارتها في وضع الويب ، وإدراك إنشاء قواعد البيانات ، وتشغيل بناء جملة SQL ، واستيراد وتصدير البيانات. دع محرر قناة Foxin Technology يأخذك إلى المقال التالي للتعرف على خطوات إدارة قاعدة البيانات عبر الإنترنت!
فئة rlmandbcls
Private SDBPath ، RLCONN ، SDBTYPE ، SSERVERNAME ، SUSERNAME ، Spassword
العد العام
sub sub class_initialize ()
sdbtype = ""
نهاية الفرعية
sub sub class_terminate ()
إذا isObject (rlconn) ثم
rlconn.close
تعيين RLConn = لا شيء
إنهاء إذا
نهاية الفرعية
الممتلكات العامة دع DBType (Byval Strvar)
sdbtype = strvar
نهاية الملكية
خاصية عامة تسمح لـ ServerName (Byval Strvar)
sserverName = strvar
نهاية الملكية
الممتلكات العامة اسمحوا لاسماء (بيفال سترفار)
Susername = strvar
نهاية الملكية
خاصية عامة اترك كلمة المرور (Byval Strvar)
Spassword = strvar
نهاية الملكية
قم بتعيين مسار قاعدة البيانات
الممتلكات العامة دع DBPath (Byval Strvar)
SDBPATH = strvar
حدد CASE SDBTYPE
حالة "SQL"
strserver = اسم خادم قاعدة البيانات sserverName
struid = حساب تسجيل الدخول الخاص بك
strsapwd = spassword 'كلمة مرور تسجيل الدخول الخاصة بك
strdbname = sdbpath 'اسم قاعدة البيانات الخاص بك
sdbpath = "driver = {sql server} ؛ server =" & strserver & "؛ uid =" & struid & "؛ pwd =" & strsapwd & "؛ database =" & strdbname
حالة "الوصول" ، "
sdbpath = "Provider = microsoft.jet.oledb.4.0 ؛ data source =" & server.mappath (sdbpath)
نهاية الاختيار
CheckData Rlconn ، SDBPath
نهاية الملكية
تحقق من رابط قاعدة البيانات ، (اسم متغير ، سلسلة اتصال)
CheckData الفرعي الخاص (Dataconn ، Connstr)
عند استئناف الخطأ التالي
تعيين dataconn = server.createBject ("adodb.connection")
dataconn.open connstr
إذا أخطأ بعد ذلك
err.clear
تعيين dataconn = لا شيء
ERRMSG ("خطأ اتصال قاعدة البيانات:" & Reply (connstr ، "،" ، "//") و "،/nplease تحقق من سلسلة الاتصال لتأكيد ما إذا كانت معلومات قاعدة البيانات التي أدخلتها صحيحة.")
استجابة
إنهاء إذا
نهاية الفرعية
تحقق مما إذا كان الجدول موجودًا
وظيفة checktable (Tablename)
عند استئناف الخطأ التالي
rlconn.execute ("Select * from" & tableName)
إذا err.number <> 0 ثم
err.clear ()
استدعاء errmsg ("موجه خطأ:" & err.description)
checktable = false
آخر
checktable = صحيح
إنهاء إذا
وظيفة نهاية
رسالة خطأ (رسالة)
errmsg sub الخاص (MSG)
استجابة. الكتابة msg
استجابة
نهاية الفرعية
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
تعديل قيمة الحقل
upcolumn العامة (Byval Tablename ، Byval ColumnName ، Byval Valuetext ، Byval Wherester)
عند استئناف الخطأ التالي
إذا كان من أين <> "" ثم
إذا instr (أين ، "أين") <= 0 ثم
أين = "أين" وأينست
إنهاء إذا
آخر
أين = ""
إنهاء إذا
rlconn.execute ("تحديث" و Tablename & "SET" و ColumnName & "=" & Valuetext & "" & Wherestr)
إذا err.number <> 0 ثم
استدعاء errmsg ("موجه خطأ:" & err.description)
err.clear ()
إنهاء إذا
نهاية الفرعية
تنفيذ بيان SQL
التنفيذ العام العام (StrSQL)
تعيين rscount = server.createBject ("adodb.recordset")
عند استئناف الخطأ التالي
rscount = rlconn.execute (strsql)
إذا تركت (strsql ، 12) = "حدد العد" ثم العد = rscount (0)
إذا err.number <> 0 ثم
استدعاء errmsg ("موجه خطأ:" & err.description)
err.clear ()
إنهاء إذا
rscount.close
تعيين rscount = لا شيء
نهاية الفرعية
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
إضافة فهرس الحقل
الوظيفة العامة AddIndex (Byval Tablename ، Byval IndexName ، Byval Valuetext)
عند استئناف الخطأ التالي
rlconn.execute ("إنشاء فهرس" & indexname & "on [" & tableName & "] ([" & valuetext & "])") "))
إذا err.number <> 0 ثم
اتصل بـ errmsg ("إنشاء في" & tablename & "tablename &" tablename & "indexname &" indexname & "cause" & err.description & "الرجاء تعديل الفهرس يدويًا.")
err.clear ()
addIndex = false
آخر
addIndex = صحيح
إنهاء إذا
وظيفة نهاية
حذف فهرس الجدول
الوظيفة العامة Delindex (Byval Tablename ، Byval IndexName)
عند استئناف الخطأ التالي
rlconn.execute ("Drop Space Index [" & tableName & "]." & indexname)
إذا err.number <> 0 ثم
اتصل بـ errmsg ("in" & tableName & "tabledelete" & indexname & "exper error ، cause" & err.description & "الرجاء حذف الفهرس يدويًا.")
err.clear ()
delindex = خطأ
آخر
delindex = صحيح
إنهاء إذا
وظيفة نهاية
قم بتغيير تعريف اسم Tablename لتعيين اسم العمود الحقل كمفتاح أساسي
الوظيفة العامة AddPrimaryKey (Byval Tablename ، Byval ColumnName)
عند استئناف الخطأ التالي
Tablename = استبدال (استبدال (Tablename ، "[" ، "") ، "]" ، "")
rlconn.execute ("ALTER TABLE" و Tablename & "إضافة قيود PK _" & tableName & "المفتاح الأساسي (" & columnname & ")"))
إذا err.number <> 0 ثم
اتصل بـ ERRMSG ("خطأ عند إضافة" و Tablename & "Field" و ColumnName & "كمفتاح أساسي ، سبب" & err.description & "الرجاء تعديل خصائص الحقل يدويًا.")
err.clear ()
addprimarykey = خطأ
آخر
addprimarykey = صحيح
إنهاء إذا
وظيفة نهاية
"تغيير تعريف TableName TableName لحذف تعريف المفتاح الأساسي لاسم العمود
الوظيفة العامة delprimarykey (Byval Tablename ، Byval ColumnName)
عند استئناف الخطأ التالي
rlconn.execute ("ALTER TABLE" و Tablename & "Drop Space Bemoch Key (" & ColumnName & ")")
إذا err.number <> 0 ثم
اتصل بـ ERRMSG ("حدث خطأ أثناء حذف تعريف المفتاح الأساسي" و Tablename & "" وفقًا لـ "طرح الحقل" و ColumnName & "، erain" & err.description و "الرجاء تعديل خصائص الحقل يدويًا.")
err.clear ()
delprimarykey = خطأ
آخر
delprimarykey = صحيح
إنهاء إذا
وظيفة نهاية
تحقق مما إذا كان المفتاح الأساسي موجودًا وأرجع اسم المفتاح الأساسي للجدول
وظيفة getPrimarykey (Tablename)
عند استئناف الخطأ التالي
قاتمة rsprimary
getPrimaryKey = ""
تعيين rsprimary = rlconn.openschema (28 ، صفيف (فارغ ، فارغ ، اسم tablename))
إذا لم يكن rsprimary.eof ثم getPrimaryKey = rsprimary ("column_name")
تعيين rsprimary = لا شيء
إذا err.number <> 0 ثم
اتصل بـ ERRMSG ("قاعدة البيانات لا تدعم المفتاح الأساسي للكشف عن جدول البيانات" و Tablename & ". السبب:" & err.description)
err.clear ()
إنهاء إذا
وظيفة نهاية
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
أضف حقلًا جديدًا
الوظيفة العامة AddColumn (TableName ، ColumnName ، ColumnType)
عند استئناف الخطأ التالي
rlconn.execute ("TABLE TABLE [" & TableName & "] أضف [" & columnname & "]" & columntype & "")
إذا أخطأ بعد ذلك
ERRMSG ("New" & TableName & "خطأ الحقل في الجدول ، يرجى إنشاء " & ColumnName و "ColumnName و" في قاعدة البيانات ، السمة هي "& columntype &" ، earn "& err.description)
err.clear
addColumn = خطأ
آخر
addColumn = صحيح
إنهاء إذا
وظيفة نهاية
"تغيير الوظيفة العامة للحقل
الوظيفة العامة modcolumn (TableName ، ColumnName ، ColumnType)
عند استئناف الخطأ التالي
rlconn.execute ("TABLE TABLE [" & tableName & "] Altern
إذا أخطأ بعد ذلك
اتصل بـ errmsg ("تغيير" و tablename و "سمة الحقل في الجدول غير صحيحة ، يرجى تغيير قاعدة البيانات " و columnname & " إلى " & columntype و " الخصائص ، الأسباب" & err.description)
err.clear
modcolumn = خطأ
آخر
modcolumn = صحيح
إنهاء إذا
وظيفة نهاية
حذف وظيفة الحقل العام
الوظيفة العامة delcolumn (TableName ، ColumnName)
عند استئناف الخطأ التالي
إذا sdbtype = "sql" ثم
rlconn.execute ("ALTER TABLE [" & TableName & "] Drop Space Column [" & ColumnName & "]")
آخر
rlconn.execute ("ALTER TABLE [" & TableName & "] Drop Space [" & ColumnName & "]")
إنهاء إذا
إذا أخطأ بعد ذلك
اتصل بـ ERRMSG ("DELETE" و TableName & "أخطاء الميدان في الجدول ، يرجى حذف " و ColumnName & " حذف الحقل ، السبب" & err.description)
err.clear
delcolumn = خطأ
آخر
delcolumn = صحيح
إنهاء إذا
وظيفة نهاية
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
افتح كائن اسم الجدول
RenametableConn () Sub Sub
عند استئناف الخطأ التالي
تعيين ObjadoxDatabase = server.createBject ("Adox.Catalog")
objadoxdatabase.activeconnection = connstr
إذا أخطأ بعد ذلك
errmsg ("حدث خطأ عند إنشاء كائن اسم جدول تغيير. المساحة التي تقوم ترقيتها لا تدعم هذا الكائن.
استجابة
err.clear
إنهاء إذا
نهاية الفرعية
أغلق كائن اسم الجدول
sub sub raugerenametableconn ()
تعيين objadoxdatabase = لا شيء
conn.close
تعيين conn = لا شيء
نهاية الفرعية
قم بتغيير اسم جدول قاعدة البيانات ، معلمات الإدخال: اسم الجدول القديم ، اسم الجدول الجديد
الوظيفة العامة rebetable (Oldname ، NewName)
عند استئناف الخطأ التالي
استدعاء RenametableConn
objadoxdatabase.tables (oldname) .Name = newName
إذا أخطأ بعد ذلك
اتصل بـ errmsg ("قم بتغيير خطأ اسم الجدول ، يرجى تغيير اسم الجدول يدويًا في قاعدة البيانات " & oldname و " اسم الجدول إلى <b>" & newName & "، Quenty" & err.description)
err.clear
RENAMETABLE = خطأ
آخر
Renametable = صحيح
إنهاء إذا
استدعاء exerenametableConn
وظيفة نهاية
حذف وظيفة الجدول العامة
الوظيفة العامة Deltable (TableName)
عند استئناف الخطأ التالي
rlconn.execute ("جدول إسقاط الفضاء [" & tableName & "]")
إذا أخطأ بعد ذلك
ERRMSG ("DELETE" و TableName & "خطأ في الجدول ، يرجى حذف الجدول" & tableName & " في قاعدة البيانات ، العقل" & err.description)
err.clear
Deltable = خطأ
آخر
Deltable = صحيح
إنهاء إذا
وظيفة نهاية
"إنشاء جدول جديد
الوظيفة العامة CreateTable (Byval Tablename ، Byval Fieldlist)
قاتمة strsql
إذا sdbtype = "sql" ثم
strsql = "إنشاء جدول [" & tableName & "] (" & fieldlist & ")"
آخر
strsql = "إنشاء جدول [" & tablename & "]"
إنهاء إذا
rlconn.execute (strsql)
إذا err.number <> 0 ثم
اتصل بـ ERRMSG ("New" و Tablename & "خطأ في الجدول ، السبب" & err.description & "")
err.clear ()
CreateTable = false
آخر
CreateTable = صحيح
إنهاء إذا
وظيفة نهاية
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
"إنشاء ملف قاعدة بيانات
الوظيفة العامة CreateBfile (Byval dbfilename ، Byval SavePath)
عند استئناف الخطأ التالي
SavePath = استبدال (SavePath ، "/" ، "/")
إذا كان صحيحًا (SavePath ، 1) <> "/" أو Right (SavePath ، 1) <> "/" ثم SavePath = trim (SavePath) و "/"
إذا تركت (dbfilename ، 1) = "/" أو اليسار (dbfilename ، 1) = "/" ثم dbfilename = trim (mid (dbfilename ، 2 ، len (dbfilename))))))
إذا كان dbexists (AppPath () & SavePath & dbfilename) ثم
errmsg ("آسف ، هذه قاعدة البيانات موجودة بالفعل!" & apppath ()
createBfile = false
آخر
استجابة. write apppath () & savepath & dbfilename
خافت كاليفورنيا
SET CA = Server.CreateBject ("Adox.Catalog")
إذا err.number <> 0 ثم
errmsg ("لا يمكن إنشاء ، يرجى التحقق من رسالة الخطأ
"& err.number &"
"& err.description)
err.clear
createBfile = false
وظيفة الخروج
إنهاء إذا
اتصل بـ CA.Create ("Provider = microsoft.jet.oledb.4.0 ؛ Data Source =" & AppPath () & SavePath & DBFilename)
تعيين CA = لا شيء
CreatedBfile = صحيح
إنهاء إذا
وظيفة نهاية
ابحث عما إذا كان ملف قاعدة البيانات موجودًا
الدالة الخاصة dbexists (Byval DBPath)
عند استئناف الخطأ التالي
خافت
set c = server.createObject ("adodb.connection")
C.Open "Provider = microsoft.jet.oledb.4.0 ؛ Data Source =" & DBPath
إذا err.number <> 0 ثم
err.clear
dbexists = خطأ
آخر
dbexists = صحيح
إنهاء إذا
تعيين C = لا شيء
وظيفة نهاية
خذ المسار الحقيقي الحالي
وظيفة خاصة AppPath ()
AppPath = server.mappath ("./")
إذا كان صحيحًا (AppPath ، 1) = "/" ثم
AppPath = AppPath
آخر
AppPath = AppPath & "/"
إنهاء إذا
وظيفة نهاية
حذف ملف قاعدة البيانات
الوظيفة العامة DELETEDBFILE (FILESPEC)
filespec = apppath () & filespec
قاتمة FSO
set fso = createObject ("scripting.filesystemObject")
إذا err.number <> 0 ثم
errmsg ("حدث خطأ عند حذف الملف! يرجى التحقق من رسالة الخطأ:" & err.number & "" & err.description & "
")
err.clear
deletedbfile = false
إنهاء إذا
إذا كان dbexists (filespec) ثم
استدعاء fso.deletefile (filespec)
DELETEDBFILE = صحيح
آخر
errmsg ("حدث خطأ عند حذف الملف! يرجى عرض رسالة الخطأ:" & err.number & "" & err.description & "
")
deletedbfile = false
وظيفة الخروج
إنهاء إذا
تعيين fso = لا شيء
وظيفة نهاية
تعديل اسم قاعدة البيانات
وظيفة عامة REALDBFILE (FILESPEC1 ، FILESPEC2)
FILESPEC1 = APPPATH () & FILESPEC1: FILESPEC2 = APPPATH ()
قاتمة FSO
set fso = createObject ("scripting.filesystemObject")
إذا err.number <> 0 ثم
errmsg ("حدث خطأ أثناء تعديل اسم الملف! يرجى التحقق من رسالة الخطأ:" & err.number & "" & err.description)
err.clear
REALDBFILE = خطأ
إنهاء إذا
إذا كان dbexists (fileSpec1) ثم
استدعاء fso.copyfile (fileSpec1 ، filespec2 ، صحيح)
استدعاء fso.deletefile (fileSpec1)
REALDBFILE = صحيح
آخر
errmsg ("الملف المصدر غير موجود !!!")
REALDBFILE = خطأ
وظيفة الخروج
إنهاء إذا
تعيين fso = لا شيء
وظيفة نهاية
قاعدة بيانات مضغوطة
الوظيفة العامة mumpactdbfile (strdbfilename)
DIM JET_CONN_PARTIAL
قاتمة SourceConn
قاتمة ديسكون
قاتمة Ojetengine
باهتة
jet_conn_partial = "provider = microsoft.jet.oledb.4.0 ؛ data source ="
SourceConn = jet_conn_partial & apppath () & strdbfilename
destconn = jet_conn_partial & apppath () و "temp" & strdbfilename
set ofso = server.createObject ("scripting.filesystemObject")
SET OJETENGINE = server.createBject ("JRO.JetEngine")
مع OFSO
إذا لم يكن.
errmsg ("ملف قاعدة البيانات غير موجود !!!")
قف
compactdbfile = false
وظيفة الخروج
آخر
إذا.
errmsg ("خطأ غير معروف !!!")
.
compactdbfile = false
وظيفة الخروج
إنهاء إذا
إنهاء إذا
تنتهي
مع Ojetengine
. compactdatabase sourceconn ، destconn
تنتهي
OFSO.DELETEFILE APPPATH () و Strdbfilename
OFSO.MOVEFILE APPPATH () و "Temp" & Strdbfilename ، AppPath () و Strdbfilename
مجموعة من = لا شيء
تعيين OjetEngine = لا شيء
compactdbfile = صحيح
وظيفة نهاية
الطبقة النهائية
قاتمة ماندب
تعيين mandb = new rlmandbcls
'// ---------------------------------------------------------------------------------------------------------------------
'mandb.dbtype = "sql"
'mandb.servername = "tao-kuizu"
'mandb.username = "SA"
'mandb.password = "123456"
'mandb.dbpath = "hhstuss"
"mandb.createTable" CEXO255 "،" ID int not null key ، name varchar (20) not null "'table (اسم الجدول)
"mandb.renametable" CEXO255 "،" CEXO2552 "اسم الجدول (اسم الجدول القديم ، اسم الجدول الجديد) (باستخدام المكون)
"ماندب.
"mandb.addcolumn" CEXO255 "،" Sex "،" varchar (2) null "" إنشاء بنية جدول (اسم الجدول ، اسم الحقل ، نوع البيانات)
"mandb.modcolumn" CEXO255 "،" name "،" int not null "" تعديل بنية الجدول (اسم الجدول ، اسم الحقل ، نوع البيانات الجديد) _
"Mandb.Delcolumn" CEXO255 "،" الجنس "" حذف بنية الجدول (اسم الجدول ، اسم الحقل)
"mandb.addindex" CEXO255 "،" I_ID "،" ID "" إنشاء فهرس الجدول (اسم الجدول ، اسم الفهرس ، اسم حقل الفهرس)
'mandb.delindex "cexo255" ، "i_id"' حذف فهرس الجدول (اسم الجدول ، اسم الفهرس)
"mandb.addprimarykey" CEXO255 "،" الاسم "" إنشاء المفتاح الأساسي للجدول (اسم الجدول ، اسم حقل المفتاح الأساسي)
"mandb.delprimarykey" CEXO255 "،" الاسم "" حذف المفتاح الأساسي للجدول (اسم الجدول ، اسم حقل المفتاح الأساسي) _
'Response.write mandb.getPrimarykey ("CEXO255") "احصل على المفتاح الأساسي للجدول (اسم الجدول)
"mandb.upcolumn" CEXO255 "،" ID "، 12345 ،" Name = 1 "" تعديل قيمة الحقل
"mandb.execute" إدراج مساحة في CEXO255 (المعرف ، الاسم) قيم (2،2) "" إضافة سجل
"mandb.execute" تحديث CEXO255 SET ID = 3 حيث الاسم = 2 "" تعديل السجل
"mandb.execute" حذف مساحة من CEXO255 حيث الاسم = 2 "" حذف السجل
'mandb.execute ("حدد العد (*) من cexo255"): استجابة
"إذا كان mandb.checktable (" studinfo ") ثم استجابة. else response.write "جدول studinfo غير موجود !!!"
'// ---------------------------------------------------------------------------------------------------------------------
'// ---------------------------------------------------------------------------------------------------------------------
mandb.dbtype = "Access"
mandb.dbpath = "test.mdb"
"mandb.createdbfile" test2.mdb "،" "إنشاء قاعدة بيانات (اسم قاعدة البيانات ، حفظ المسار)
'mandb.deletedbfile ("test2.mdb")' حذف قاعدة البيانات (اسم قاعدة البيانات)
"mandb.renamedbfile" test2.mdb "،" test3.mdb "اسم المجال (اسم قاعدة البيانات القديم ، اسم قاعدة البيانات الجديدة)
"mandb.compactdbfile (" test3.mdb ")" قاعدة بيانات مضغوطة (اسم قاعدة البيانات)
"Mandb.CreateTable" DW "،" "إنشاء جدول (اسم الجدول)
"mandb.renametable" DW "،" DW2 "اسم الجدول (اسم الجدول القديم ، اسم الجدول الجديد) (باستخدام المكون) _
"Mandb.Deltable" DW "حذف الجدول (اسم الجدول)
"mandb.addcolumn" cexo255 "،" name "،" varchar (255) not null "" إنشاء بنية جدول (اسم الجدول ، اسم الحقل ، نوع البيانات)
"mandb.modcolumn" CEXO255 "،" name "،" int not null "" تعديل بنية الجدول (اسم الجدول ، اسم الحقل ، نوع البيانات الجديد)
"Mandb.Delcolumn" CEXO255 "،" الاسم "" حذف بنية الجدول (اسم الجدول ، اسم الحقل)
"mandb.addindex" CEXO255 "،" userId "،" id "" إنشاء فهرس الجدول (اسم الجدول ، اسم الفهرس ، اسم حقل الفهرس)
"mandb.delindex" CEXO255 "،" userId "" حذف فهرس الجدول (اسم الجدول ، اسم الفهرس) _
"mandb.addprimarykey" CEXO255 "،" id "" إنشاء المفتاح الأساسي للجدول (اسم الجدول ، اسم حقل المفتاح الأساسي)
"mandb.delprimarykey" CEXO255 "،" ID "" حذف المفتاح الأساسي للجدول (اسم الجدول ، اسم حقل المفتاح الأساسي) _
'Response.write mandb.getPrimarykey ("CEXO255") "احصل على المفتاح الأساسي للجدول (اسم الجدول)
"mandb.upcolumn" CEXO255 "،" ID "،" 12345 "،" ID = "12" "تعديل قيمة الحقل
"mandb.execute" إدراج مساحة في قيم CEXO255 (معرف) ("789") "إضافة سجل
"mandb.execute" تحديث CEXO255 SET ID = 'WXF' حيث id = '789' '' تعديل السجل
"mandb.execute" حذف المساحة من CEXO255 حيث id = 'wxf' '' حذف السجل
mandb.execute ("حدد العد (*) من CEXO255"): استجابة.
"إذا كان mandb.checktable (" studinfo ") ثم استجابة. else response.write "جدول studinfo غير موجود !!!"
'// ---------------------------------------------------------------------------------------------------------------------
تعيين mandb = لا شيء
٪>
ما سبق هو مقدمة لخطوات إدارة قاعدة البيانات عبر الإنترنت. أعتقد أن كل شخص لديه فهم معين. إذا كنت ترغب في معرفة المزيد من المعلومات الفنية ، فيرجى الاستمرار في الانتباه إلى قناة التكنولوجيا الجديدة الخاطئة!