[حريف برمجة]

(18-10-19, 03:46 PM)مبرمج مصرى كتب : السلام عليكم ورحمة الله و بركاته

ما هى طريقة تغيير إسم جدول معين فى قاعدة بيانات باستخدام كود بيسيك وذلك فى ال Run time أو وقت التشغيل؟
أرجو الاإفادة

وشكرا

وعليكم السلام ورحمة الله وبركاته ،،

ماذكرت نوع قاعدة البيانات ولكن افترضتها اكسس كونك تعمل على فيجوال بيسك 6

كود :

Dim sConnString As String
   Dim cnn As New ADODB.Connection
   Dim SQL As String
   
   sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb"
   cnn.Open sConnString
   
   SQL = "ALTER TABLE Table1 RENAME TO Table2"
   cnn.Execute SQL
       
   cnn.Close
   Set cnn = Nothing