لا يعمل اخي سعود جرب تشغيل الملف vb net بالضغط على زر الامر يطلعلي هاذ الرسالة
الملف المرفق اللي انت رفعت لم تضع ملف الاكسس في الريسورس لذلك لم يعمل...
يبدو اني لم افهم شيء
هل المطلوب استخراج ملفات من الريسورس ام لا!
المثال يعمل كما ترى
يا اخوة يا طيبون انا لا اريد وضع قاعدة البيانات بالرسورس.لو وضعتها بالرسورس كيف رايح اتعامل معها ببقية مشروع ال 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 يتصل بالملف اذا كان مجاورا له بالكود
هذا
(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
جرب الله يرضى عليك ربما انت تجيب نظريا.بارك الله فيك
لا اعلم لماذا قمت بتعديل مسار الاتصال قاعدة البيانات فى VB6
لا تقم باى تعديلات على VB6
كل ما يجب فعله هو التعامل مع VB.NET لتضع كود الزر لفتح
برنامج اخر موجود بنفس المجلد الخاص به
تجاهل ان فى قاعدة بيانات وتجاهل انك بتعمل اى اكواد فى vb6
المثال ستجده فى البرنامج بملف Pro
والسورس كود بعد التعدل على vb6 و vb.net
كلاهما مرفق
تحياتى لك
وتمنياتى لك التوفيق
