منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : rename column name in access
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السادة الافاضل

كيف اغير اسم حقل في جدول في الاكسس 
alter table  table1    rename   col1  to   col2

ولكن هناك خطأ

كيف اعير اسم الحقل
دورت لك على الكود وان شاء الله يطلع مثل ماتبغي وشغال انا ماجربته لان مشروعي مايحتاجه

'Change the name of the 1st column in myDataTable to "newColumnName"
myDataTable.Columns(0).ColumnName = "newColumnName"
استخدمت هذا الكود

If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
Dim cat As Object = CreateObject("ADOX.Catalog")
cat.ActiveConnection = conn
cat.Tables("school2").Columns("schid2").Name = "atef"

cat = Nothing

وظهرت هذه الرسالة

Specified cast is not valid.
استعين بالخبراء خوك انا مجرد مبتدأ مثلك او اقل منك خبره لذا انا ابحث واجرب واذا اعجزت عن الحصول عليه ااتي الى هنا واواصل المتابعه مع الاعضاء
اخي 0theghost0
كيف استفيد بكودك
لا اعرف كيف اكتبه
علي وعسي
السادة الافاضل
اين الحل
سؤال هل أنت تبني ملف الداتا بيز أكسس عن طريق استخدام الكود؟
هناك قاعدة موجودة
تطلب الوضع ان اغير اسم حقل فهرسي عند العميل بالكود
أنا لست متاكدا تماما هل يمكن ذلك برمجيا مع ملف موجود بالفعل أم لا لكن يمكنك أن تستخدم Append مع اعمدة الداتا بيز اعتقد انك ب تستخدم الأكسس 2003

كود :
Dim table  As ADOX.Table = new ADOX.Table()

table.Name = "اسم الجدول";
table.Columns.Append("إسم العمود الأول");
table.Columns.Append("إسم العمود الثاني");
table.Columns.Append("إسم العمود الثالث");

try

' open the connection

cat.Tables.Append(table)

Catch ex as Exception

End Try
السادة الافاضل
هل ممكن عمل مثال لاني لم اوفق
في الاستفادة من الكود السابق
الصفحات : 1 2