السلام عليكم.اخواني لدي ملف 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
هنا قسم الـ .Net
وليس الاصدار الـ 6
يوجد قسم خاص به لطرح الاسئلة
تحياتى لك
وتمنياتى لك التوفيق
شكرا لك لكن السؤال يخص بالدرجة 1 ال Net .. نصفو net و نصفو vb6 ولو رحت للvb6 بردو سيقولو هنا قسم vb6 روح لقسم ال net
(13-06-18, 09:57 PM)حافظ حافظ كتب : [ -> ]شكرا لك لكن السؤال يخص بالدرجة 1 ال Net .. نصفو net و نصفو vb6 ولو رحت للvb6 بردو سيقولو هنا قسم vb6 روح لقسم ال net
يعتمد ذلك على ما تعمل انت عليه
هل انت تقوم بانشاء مشروع على اصدارات الـ .Net
على اى حال يمكنك بكل بساطة عمل التالى..
وضع قاعدة البيانات فى Resources
من ثم عمل شرط التحقق بوجود ملف على مسار (
كمثال)
من خلال الكود التالى مع نسخ قاعدة البيانات
كود :
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
اظن هو نفس المكتوب لا يتغير لكن استخرج الكل البرنامج وملف الاكسس مع بعض لمجلد واحد.
(14-06-18, 12:02 AM)حافظ حافظ كتب : [ -> ]بارك الله فيك اخي algokr .انا كنت اقصد ان الملف exe التابع لل vb6 و يلي رايح اضعو بالرسورس له قاعدة بيانات .قاعدة البيانات تتبع ملف projet1 بتاع ال vb6 . ابني المشروع بال فيجوال net .كيف رايح يكون استعلام جلب قاعدة البيانات بمشروع ال vb6
الان فهمتك اكنت اعتقد انك تبنى مشروعك بـ VB6 لذلك
فى التعليق الاول وده بسبب لم افهمك من البداية
قم باستخدام نفس اكواد الاتصال والاستعلام فقط استبدل
بالتالى
كود :
Application.StartupPath
الاكواد التالية غالباً لا يوجد بها اختلاف لان القاعدة واحدة
واذا توقف معك اى اخطاء فى اسطر من الاكواد
قم بكتابة الكود الذى به خطاء ليتم معالجته ليعمل معك على .Net
تحياتى لك
وتمنياتى لك التوفيق
السلام عليكم. و الله ما قصرتو اخي algokr و اخي سعود .يعطيكم الف عافية و جزاكم بخيراته . اخي سعود فكرنك عملتها و مشى الحال بارك الله فيك .بس لو كان ممكن وضع قاعدة البيانات في مجلد ال debug بدلا من الرسورس.لاني تلخبطت شوية و انا لي غلطان.من المفروض قاعدة البيانات تكون في ال debug من اجل التعامل معها بمشروع الفيجوال net بنفس الوقت .قاعدة البيانات لازم تكون بمجلد debug اما مشروع vb6 اسمو projet1 يكون بالرسورس او بالمكان يلي تراه مناسب
ارسلت ملف vbnet و vb6
اخي "حافظ" هل تعني انك توصلت للحل؟
لان المثال يعمل!