تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن تعديل كود انشاء قاعدة اكسس بالكود
#1


بعد اضافة الريفيرنس  كما بالصورة اعلاه
كتبت الكود
كود :
Public Function cdb(ByVal DatabaseFullPath As String) As Boolean
       Dim bAns As Boolean
       Dim cat As New ADOX.Catalog()
       Try

           Dim sCreateString As String
           sCreateString =
                          "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & _
                          DatabaseFullPath & ";Jet OLEDB:Database Password=pass;"
           cat.Create(sCreateString)

           bAns = True

       Catch Excep As System.Runtime.InteropServices.COMException
           bAns = False

       Finally
           cat = Nothing
       End Try
       Return bAns
   End Function
لاحظت انه ينشيء ملف اكسس قديم 
هل من حل؟
[صورة مرفقة: p2.png]
الرد
تم الشكر بواسطة: أبو نوره
#2
(06-08-17, 01:52 AM)سعود كتب :

بعد اضافة الريفيرنس  كما بالصورة اعلاه
كتبت الكود
كود :
Public Function cdb(ByVal DatabaseFullPath As String) As Boolean
       Dim bAns As Boolean
       Dim cat As New ADOX.Catalog()
       Try

           Dim sCreateString As String
           sCreateString =
                          "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & _
                          DatabaseFullPath & ";Jet OLEDB:Database Password=pass;"
           cat.Create(sCreateString)

           bAns = True

       Catch Excep As System.Runtime.InteropServices.COMException
           bAns = False

       Finally
           cat = Nothing
       End Try
       Return bAns
   End Function
لاحظت انه ينشيء ملف اكسس قديم 
هل من حل؟

مرحبا اخي سعود

قصدك ايه بالاكسس القديم؟

   


.rar   newdb.rar (الحجم : 265.5 ك ب / التحميلات : 54)
الرد
تم الشكر بواسطة: سعود
#3


السابقة نتيجة الكود والتالية انشاء يدوي

[صورة مرفقة: p2.png]
الرد
تم الشكر بواسطة:
#4
مرحبا اخى سعود

لم اجد المشكله عندي

ارفقت لك المشروع مع دمج ملف Interop.ADOX.dll احتياط لاحتمال اختلافه مع ما عندك

   


.rar   WindowsApplication1.rar (الحجم : 360.32 ك ب / التحميلات : 69)
الرد
تم الشكر بواسطة: سعود
#5
سوال كيف انشي حقل في مكان محدد وليس في اخر موضع للحقول ؟
بمعنى قبل حقل انا احدد موجود في الجدول او مثلا في الاول
الرد
تم الشكر بواسطة: أبو نوره
#6
(06-08-17, 09:58 PM)أبو نوره كتب : مرحبا اخى سعود

لم اجد المشكله عندي

ارفقت لك المشروع مع دمج ملف Interop.ADOX.dll احتياط لاحتمال اختلافه مع ما عندك

بارك الله فيك
حملت المثال  ... لاحقا ان شاء الله احاول مجددا.
قبلت الوضع عنديSmile
ولدي سؤال جديد.
___________________________________________________________________________
لقد استغربت فتحت ملف القاعدة اللي مرفق ونفس اللي عندي لما انشئه بالكود!
ماهو السر؟
[صورة مرفقة: p2.png]
الرد
تم الشكر بواسطة: أبو نوره
#7
تسلم اخى سعود
صراحه لا اعلم لانه من البدايه عندي مشي تمام

مرحبا اخي حريف
ما الهدف من ترتيب الحقول
لانه من الاستعلام تستطيع تحدد الترتيب الذي ياتي مع النتيجه
واذا كان لما تفتح الاكسس تراها مثل ما تريد فراح تكون امامك تستطيع ترتبها من الاكسس بسهوله
الرد
تم الشكر بواسطة:
#8
(07-08-17, 01:26 AM)أبو نوره كتب : تسلم اخى سعود
صراحه لا اعلم لانه من البدايه عندي مشي تمام

مرحبا اخي حريف
ما الهدف من ترتيب الحقول
لانه من الاستعلام تستطيع تحدد الترتيب الذي ياتي مع النتيجه
واذا كان لما تفتح الاكسس تراها مثل ما تريد فراح تكون امامك تستطيع ترتبها من الاكسس بسهوله

مرحبتين ابو نوره

لا يالغالي ما اقصد ترتيب اقصد انشاء حقل جديد قبل حقل موجود مثلاً :

عندي جدول فيه الحقول التالية :
ID
Name
Address

المطلوب انشاء حقل اسمه Age قبل حقل Address
لأني لو انشئت الحقل سوف يضعه بعد الحقل Address بمعنى في الأخير
الرد
تم الشكر بواسطة: أبو نوره
#9
مرحبا اخى

ساصحح استفسارى

ما الهدف لديك من انشاء حقل جديد قبل حقل موجود؟

ولا اسال من اجل هذا الجواب (لأني لو انشئت الحقل سوف يضعه بعد الحقل Address بمعنى في الأخير)
لاني بسالك كمبرمج بتتعامل مع قاعده بيانات بجملة استعلام sql وليس عن طريق فتحها بالاكسس او غيره

اتمنى يكون وصلك معنى استفسارى
الرد
تم الشكر بواسطة: ابو ليلى


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود حذف صورة من جدول اكسس samira20 1 83 05-07-19, 07:50 PM
آخر رد: elgokr
Information [سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net fefooo29 4 3,492 10-06-19, 09:31 PM
آخر رد: sherf
  مساعدة في تصميم قاعدة بيانات ادارة ساعات عمل الموظفين Rabeea Qbaha 6 197 06-06-19, 12:23 AM
آخر رد: elgokr
  [VB.NET] رسالة خطأ عند الحذف أو تعديل بيانات جديدة #concurrency violation# sniperjawadino 11 541 28-05-19, 10:50 PM
آخر رد: sniperjawadino
  قاعدة البيانات بتقفل كل شوية احمد خطاب 5 280 11-05-19, 04:24 AM
آخر رد: احمد خطاب
  [VB.NET] قاعدة بيانات postgress tarek 2 254 06-04-19, 09:07 PM
آخر رد: elgokr
  كود تصفير عمود في جدول اكسس samira20 1 208 31-03-19, 09:02 PM
آخر رد: بدري
  [SQL] مشكلة في ربط قاعدة البيانات SQLSERVER2014 بـ فيجول بيسك 2017 اباذر 4 321 16-03-19, 12:00 AM
آخر رد: اباذر
  طريقة ادخال اعداد تحتوي على فاصلة في قاعدة البيانات segma 21 719 12-03-19, 10:23 PM
آخر رد: segma
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 246 21-02-19, 04:38 PM
آخر رد: elgokr

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


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