[mmaalmesry]

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

أريد تعديل إسم عمود أو حقل داخل جدول معين table1

و ذلك من old_name إلى new_name

و لكن أحصل على خطأ

والمثال مرفق بالرسالة

و شكرا

[Taha Okla]

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

تغير محتويات حقل تختلف عن تغير قيمة حقل  (اذا كنت تريد تغيير المحتويات يعني الداتا ، يوجد أمثلة كثيرة في المنتدى راجعها وستحصل على نتائج وطرق كثيرة)

==========================
==========================
أما إذا كنت تريد تغيير أسماء الحقول :

الكود الذي ذكرته سابقاً يخص قواعد بيانات الـ SQL وليس الآكسس

أما طريقة تعديل أسماء الحقول في اكسس مختلفة عن ذلك 

قم بإضافة المكتبتين التاليتين أولاً :

Microsoft ActiveX Data Objects x.x Library
Microsoft ADO Ext. x.x for DDl and Security

x.x = أي اصدار متوفر بجهازك بيمشي الحال -- مو شرط أقدم أو أحدث اصدار.. الأفضل تستخدم أعلى رقم موجود..

واستخدم الكود التالي :

كود :

       Dim sPath As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\test.accdb;Jet OLEDB:Database Password="

       Dim ADOXCatalog As New ADOX.Catalog
       Dim Ad As New adodb.connection

       Dim ADOConnection As New ADODB.Connection

       ADOConnection.Open(sPath)
       ADOXCatalog.ActiveConnection = ADOConnection
       ADOXCatalog.Tables("table1").Columns("Field1").Name = "Field2"
       ADOXCatalog.ActiveConnection.close()
       ADOXCatalog.ActiveConnection = Nothing

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

- شيء آخر : المشروع الذي أرفقته كـ مثال هنا - أنت لعبت بإعداداته، لذا هو لا يصلح للعمل عليه، 
                     لذا أنشئ مشروع جديد من الصفر وطبق عليه ما ذكرته هنا لتحصل على نتيجة..

[mmaalmesry]

جزاكم الله خيرا وبارك فيكم