قطعة رمز لإعادة تسمية جداول قاعدة البيانات

لا تدعم قاعدة بيانات الوصول مباشرة باستخدام عبارات SQL لتغيير أسماء الجدول أو أسماء الحقول ، ولكن يمكن تنفيذها ككائنات ADOX. رمز المثال هو كما يلي:

انسخ الرمز على النحو التالي: <٪

callrenametable ("Provider = microsoft.jet.oledb.4.0 ؛ Data

المصدر = C: /example.mdb "،" اختبار "،" تم تغيير ")

subrenametable (const ، oldname ، newName)

'Hastobeoledbconnection

'createObjectandConnectTodb ...

Dimobjadoxdatabase

setobjadoxdatabase = server.createObject ("adox.catalog")

objadoxdatabase.activeconnection = constr

changeThename ...

objadoxdatabase.tables (oldname) .Name = newName

'تنظيف...

setobjadoxdatabase = لا شيء

ينتهي

٪>