[kebboud]

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

إخوتي الأعزاء الذين من الله عليهم بنعمة التفكير البرمجي البداع



عندي قاعدة بيانات اكسس و فيها عدة جداول

كيف يمكنني أن أغير اسم أحد الجداول عن طريق البرمجة يعني عن طريق الأكواد ؟؟

شكرا مسبقا و لاحقا 

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم ولكن يتوجب عليك معرفة اسماء الجداول يمكنك الرجوع الى مثالي السابق وكيفية جلب اسماء الجداول 
لكن  غير اسم الجدول وهو في حالة عدم اتصال 

كود :

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       If Txt_OldTablName.Text <> Nothing And Txt_NewTblName.Text <> Nothing Then
           Dim ofd As New OpenFileDialog()
           ofd.Filter = "AccessDb|*.accdb;*.mdb"
           If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
               Dim dbe = New DBEngine()
               Dim db As Database = dbe.OpenDatabase(ofd.FileName)
               Dim tbd As TableDef = db.TableDefs(Txt_OldTablName.Text) ' الاسم القديم
               tbd.Name = Txt_NewTblName.Text ' الاسم الجديد
               db.Close()
               MsgBox("تم تغيير اسم الجدول  بنجاح")
           End If
       End If
   End Sub

[kebboud]

(03-02-22, 11:21 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم ولكن يتوجب عليك معرفة اسماء الجداول يمكنك الرجوع الى مثالي السابق وكيفية جلب اسماء الجداول 
لكن  غير اسم الجدول وهو في حالة عدم اتصال 

كود :

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       If Txt_OldTablName.Text <> Nothing And Txt_NewTblName.Text <> Nothing Then
           Dim ofd As New OpenFileDialog()
           ofd.Filter = "AccessDb|*.accdb;*.mdb"
           If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
               Dim dbe = New DBEngine()
               Dim db As Database = dbe.OpenDatabase(ofd.FileName)
               Dim tbd As TableDef = db.TableDefs(Txt_OldTablName.Text) ' الاسم القديم
               tbd.Name = Txt_NewTblName.Text ' الاسم الجديد
               db.Close()
               MsgBox("تم تغيير اسم الجدول  بنجاح")
           End If
       End If
   End Sub

السلام عليكم أخي الغالي جدا جدا على قلوبنا 
كما عودتني على التدخل السريع أنا أيضا تعودت على شكرك و تبجيلك يا حفيد الأبطال ...
شكرا من أعماق القلب
و لكن للأسف لم تفلح المحاولة !!!

[ابراهيم ايبو]

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


في سؤالك يوجد خطأ 
في العنوان تريد تغيير اسم القاعدة وفي التفاصيل تريد تغيير اسم الجدول 
وقد اجبت على السؤال تغيير اسم الجدول 
اما الان  تفضل المثال القديم مع تغيير اسم الجدول وتغيير اسم القاعدة ايضا