[حافظ حافظ]

لا يعمل اخي سعود جرب تشغيل الملف vb net بالضغط على زر الامر يطلعلي هاذ الرسالة

[سعود]

الملف المرفق اللي انت رفعت لم تضع ملف الاكسس في الريسورس لذلك لم يعمل...
يبدو اني لم افهم شيء
هل المطلوب استخراج ملفات من الريسورس  ام لا!

---

المثال يعمل كما ترى

[elgokr]

(14-06-18, 03:41 AM)سعود كتب : الملف المرفق اللي انت رفعت لم تضع ملف الاكسس في الريسورس لذلك لم يعمل...
يبدو اني لم افهم شيء
هل المطلوب استخراج ملفات من الريسورس  ام لا!

---

المثال يعمل كما ترى

المثال يعمل معى ايضاً

تحياتى لك

[حافظ حافظ]

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

[سعود]

(14-06-18, 03:51 AM)حافظ حافظ كتب : يا اخوة يا طيبون انا لا اريد وضع قاعدة البيانات بالرسورس.لو وضعتها بالرسورس كيف رايح اتعامل معها ببقية مشروع ال vb net
اريد وضع قاعدة البيانات بمجلد ال debug اتمنى تكون الفكرة وصلت

طيب الامر ابسط ... ضع في متغير الملف المراد تخزين المسار به الى

PHP كود :

Application.StartupPath & "\a.mdb" 


[حافظ حافظ]

اخي سعود هاذا كود بالفورم1 على vb6

كود :

Public dB       As New ADODB.Connection
Public Rs       As New ADODB.Recordset
Private Sub Form_Load()
dB.Provider = "Microsoft.JET.OLEDB.4.0;"
dB.Open Application.StartupPath & "\MARKET.mdb"
Rs.Open "Select * From Production Order By [Marketing] ASC", dB, adOpenStatic, adLockPessimistic
Get_Name
End Sub
Private Sub Get_Name()
Combo1.Clear
If Rs.State = adStateOpen Then Rs.Close
Rs.Open "[Production]", dB, adOpenStatic, adLockReadOnly
If Rs.RecordCount = 0 Then
Combo1.AddItem "فارغ"
Combo1.Text = Combo1.List(0)
Else
Do Until Rs.EOF
Combo1.AddItem Rs![Marketing]
Rs.MoveNext
Loop
End If
End Sub

حولت مشروع هذا ال vb6 الى ملف exe اسمو project1
حملت هذا ال project1 ووضعتو بالرسورس بتاع مشروع ال vb net و وضعت قاعدة البيانات بال debug
لما شغلت مشروع ال vb net و اردنت تشغيل ملف ال project1 بهاذا الكود يطلعلي خطأ بالصورة يلي وضعاها

كود :

   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

[سعود]

اخي الكريم مشروع vb6.0  لاتغير به شي ابدا ....الموضوع اساسه انك تود استخراج ملف exe ومعه ملف اكسس  لتختبر هل يتصل به ام لا ...  الموضوع الذي اتضح مؤخرا انك تود استخراجهما بنفس مجلد برنامج الدوت نت.
يعني فيجوال بيسك 6.0  يتصل بالملف اذا كان مجاورا له  بالكود هذا

[elgokr]

(14-06-18, 03:51 AM)حافظ حافظ كتب : يا اخوة يا طيبون انا لا اريد وضع قاعدة البيانات بالرسورس.لو وضعتها بالرسورس كيف رايح اتعامل معها ببقية مشروع ال vb net
اريد وضع قاعدة البيانات بمجلد ال debug اتمنى تكون الفكرة وصلت

اخى الحبيب لاتمام ذلك طبق ما تم شرحه لك من قبل
http://vb4arb.com/vb/showthread.php?tid=...#pid121462

كما اعاد اليك الاخ سعود ووضح ذلك 

(14-06-18, 04:14 AM)سعود كتب :

(14-06-18, 03:51 AM)حافظ حافظ كتب : يا اخوة يا طيبون انا لا اريد وضع قاعدة البيانات بالرسورس.لو وضعتها بالرسورس كيف رايح اتعامل معها ببقية مشروع ال vb net
اريد وضع قاعدة البيانات بمجلد ال debug اتمنى تكون الفكرة وصلت

طيب الامر ابسط ... ضع في متغير الملف المراد تخزين المسار به الى

PHP كود :

Application.StartupPath & "\a.mdb" 


وللتوضيح اخى حافظ
بخصوص كود الاتصال بقاعدة البيانات بيكون بهذا الشكل

كود :

Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\name.mdb")

تحياتى لك

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

[حافظ حافظ]

السلام عليكم.اخي algokr
انا و ضعت ملف project1 ال تنفيذي ال vb6 و قاعدة البيانات مع بعضهم في مجلد ال debug لمشروع ال vb net.استعملت الكود بكل الطرق و لم يشتغل ملف ال project1
جرب الله يرضى عليك ربما انت تجيب نظريا.بارك الله فيك

[elgokr]

لا اعلم لماذا قمت بتعديل مسار الاتصال قاعدة البيانات فى VB6

لا تقم باى تعديلات على VB6

كل ما يجب فعله هو التعامل مع VB.NET لتضع كود الزر لفتح

برنامج اخر موجود بنفس المجلد الخاص به

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

المثال ستجده فى البرنامج بملف Pro

والسورس كود بعد التعدل على vb6 و vb.net

كلاهما مرفق

تحياتى لك

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