تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغيير اسم القاعدة برمجيا
#1
السلام عليكم و رحمة الله و بركاته

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



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

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

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


    Heart ربي زدني علما  Heart

الرد }}
تم الشكر بواسطة: ابراهيم ايبو
#2
السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم ولكن يتوجب عليك معرفة اسماء الجداول يمكنك الرجوع الى مثالي السابق وكيفية جلب اسماء الجداول 
لكن  غير اسم الجدول وهو في حالة عدم اتصال 
كود :
 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
#3
(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

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


    Heart ربي زدني علما  Heart

الرد }}
تم الشكر بواسطة: ابراهيم ايبو
#4
السلام عليكم ورحمة الله وبركاته


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


الملفات المرفقة
.zip   Create_AccessDB_Table (2).zip (الحجم : 119.07 ك ب / التحميلات : 13)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}
تم الشكر بواسطة: kebboud


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] عمل شاشة دخول بامكانية تغيير الباس ورد في اي وقت اون لاين crazykinko 2 180 21-07-22, 04:12 PM
آخر رد: crazykinko
  اخفاء تكست كعنوان برمجيا في الريبورت فيور yosif 0 133 10-07-22, 12:18 AM
آخر رد: yosif
Star تغيير حجم خط RichTextBox أبو خالد الشكري 3 219 03-07-22, 07:42 PM
آخر رد: أبو خالد الشكري
  كيفة عمل شاشة دخول بامكانية تغيير الباس ورد في اي وقت اون لاين masport tv 1 212 30-06-22, 05:47 AM
آخر رد: ابو روضة
  مطلوب كود تغيير الالوان للفورم bilgacim 1 335 21-06-22, 08:32 PM
آخر رد: asmarsou
Question [VB.NET] استفسار حول طريقة الضغط على زر برمجيا lmofallis 4 3,186 01-06-22, 12:02 PM
آخر رد: عبد الجليل سراج
  تغيير اسم فولدر atefkhalf2004 2 411 19-03-22, 01:04 PM
آخر رد: atefkhalf2004
  مشكلة تغيير حزمة NET Framework اصدار 4.6.1 الى رقم 4 bilgacim 1 610 16-02-22, 12:15 AM
آخر رد: ابراهيم ايبو
  سؤال عن طريق حساب السجلات المعبئة وغير المعبئة في قاعدة بيانات اكسيس برمجيا ب VB bilgacim 2 818 01-02-22, 11:24 AM
آخر رد: a7med saba
  [VB.NET] تغيير كلمة المرور والرقم السري من قبل العميل EMADSS 0 461 19-01-22, 12:34 AM
آخر رد: EMADSS

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم