السلام عليكم و رحمة الله و بركاته
أريد تعديل إسم عمود أو حقل داخل جدول معين table1
و ذلك من old_name إلى new_name
و لكن أحصل على خطأ
والمثال مرفق بالرسالة
و شكرا
وعليكم السلام ورحمة الله وبركاته
تغير محتويات حقل تختلف عن تغير قيمة حقل (اذا كنت تريد تغيير المحتويات يعني الداتا ، يوجد أمثلة كثيرة في المنتدى راجعها وستحصل على نتائج وطرق كثيرة)
==========================
==========================
أما إذا كنت تريد تغيير أسماء الحقول :
الكود الذي ذكرته سابقاً يخص قواعد بيانات الـ 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
ملاحظة :
- في قاعدة البيانات التي أوردتها في مثالك، غير صحيحة حيث أنك قمت بتسمية اسم الحقل بالعربي
أنشئ قاعدة جديدة وأكتب اسماء الحقول بالانكليزي فقط.
- شيء آخر : المشروع الذي أرفقته كـ مثال هنا - أنت لعبت بإعداداته، لذا هو لا يصلح للعمل عليه،
لذا أنشئ مشروع جديد من الصفر وطبق عليه ما ذكرته هنا لتحصل على نتيجة..
جزاكم الله خيرا وبارك فيكم