[حافظ حافظ]

السلام عليكم.اخواني لدي ملف exe فيجوال 6 اشغلو من اللرسورس بهذا الكود

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim dir As String = My.Computer.FileSystem.SpecialDirectories.Temp
       Dim filename As String = dir + "Project1.exe"
       IO.File.WriteAllBytes(filename, My.Resources.Project1)
       Process.Start(filename)
   End Sub

قاعدة بيانات يلي تتبع هذا المشروع الفيجوال6 وضعتها بال debug .طيب لما اجيت اشغل يطلعلي خطـأ.كيف يمكن يكون كود مسار قاعدة البيانت داخل مشروع الفيجوال6 الله يرضى عليكو.هو مكتوب هيك

كود :

Private Sub Form_Load()
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATACUSTOMER.mdb"
End Sub

[elgokr]

هنا قسم الـ .Net

وليس الاصدار الـ 6

يوجد قسم خاص به لطرح الاسئلة

تحياتى لك

وتمنياتى لك التوفيق

[حافظ حافظ]

شكرا لك لكن السؤال يخص بالدرجة 1 ال Net .. نصفو net و نصفو vb6 ولو رحت للvb6 بردو سيقولو هنا قسم vb6 روح لقسم ال net

[elgokr]

(13-06-18, 09:57 PM)حافظ حافظ كتب : شكرا لك لكن السؤال يخص بالدرجة 1 ال Net .. نصفو net و نصفو vb6 ولو رحت للvb6 بردو سيقولو هنا قسم vb6 روح لقسم ال net

يعتمد ذلك على ما تعمل انت عليه

هل انت تقوم بانشاء مشروع على اصدارات الـ .Net

على اى حال يمكنك بكل بساطة عمل التالى..

وضع قاعدة البيانات فى  Resources

من ثم عمل شرط التحقق بوجود ملف على مسار (كمثال)

PHP كود :

C:\DATACUSTOMER.mdb 


من خلال الكود التالى مع نسخ قاعدة البيانات

كود :

       If Not File.Exists("c:\1.txt") Then
           File.Copy(My.Resources.DATACUSTOMER, "C:\DATACUSTOMER.mdb", True)
       End If

وانت كل ما عليك ان تجعل كود الاتصال بقاعدة البيانات يتم على مسار C:\

بنائاً ما ستكتب المسار فى الكود

تحياتى لك

وتمنياتى لك التوفيق

[حافظ حافظ]

بارك الله فيك اخي algokr .انا كنت اقصد ان الملف exe التابع لل vb6 و يلي رايح اضعو بالرسورس له قاعدة بيانات .قاعدة البيانات تتبع ملف projet1 بتاع ال vb6 . ابني المشروع بال فيجوال net .كيف رايح يكون استعلام جلب قاعدة البيانات بمشروع ال vb6

[سعود]

إقتباس :كيف رايح يكون استعلام جلب قاعدة البيانات بمشروع ال vb6

اظن هو نفس المكتوب لا يتغير لكن استخرج  الكل البرنامج وملف الاكسس مع بعض لمجلد واحد.

[elgokr]

(14-06-18, 12:02 AM)حافظ حافظ كتب : بارك الله فيك اخي algokr .انا كنت اقصد ان الملف exe التابع لل vb6 و يلي رايح اضعو بالرسورس له قاعدة بيانات .قاعدة البيانات تتبع ملف projet1 بتاع ال vb6 . ابني المشروع بال فيجوال net .كيف رايح يكون استعلام جلب قاعدة البيانات بمشروع ال vb6

الان فهمتك اكنت اعتقد انك تبنى مشروعك بـ VB6 لذلك

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

قم باستخدام نفس اكواد الاتصال والاستعلام فقط استبدل

كود :

App.Path

بالتالى

كود :

Application.StartupPath

الاكواد التالية غالباً لا يوجد بها اختلاف لان القاعدة واحدة

واذا توقف معك اى اخطاء فى اسطر من الاكواد

قم بكتابة الكود الذى به خطاء ليتم معالجته ليعمل معك على .Net

تحياتى لك

وتمنياتى لك التوفيق

[سعود]

مشاركة لكم اقدم مثال بسيط  الملف التنفيذي اخذته من المشروع هنا إهداء للجميع - مثال أو برنامج أرشيف صور المستندات

[حافظ حافظ]

السلام عليكم. و الله ما قصرتو اخي algokr و اخي سعود .يعطيكم الف عافية و جزاكم بخيراته . اخي سعود فكرنك عملتها و مشى الحال بارك الله فيك .بس لو كان ممكن وضع قاعدة البيانات في مجلد ال debug بدلا من الرسورس.لاني تلخبطت شوية و انا لي غلطان.من المفروض قاعدة البيانات تكون في ال debug من اجل التعامل معها بمشروع الفيجوال net بنفس الوقت .قاعدة البيانات لازم تكون بمجلد debug اما مشروع vb6 اسمو projet1 يكون بالرسورس او بالمكان يلي تراه مناسب
ارسلت ملف vbnet و vb6

[سعود]

اخي "حافظ" هل تعني انك توصلت للحل؟
لان المثال يعمل!