+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تشغيل مشروع فيجوال بيسك6 (/showthread.php?tid=25358)
RE: تشغيل مشروع فيجوال بيسك6 - حافظ حافظ - 14-06-18
لا يعمل اخي سعود جرب تشغيل الملف vb net بالضغط على زر الامر يطلعلي هاذ الرسالة
RE: تشغيل مشروع فيجوال بيسك6 - سعود - 14-06-18
الملف المرفق اللي انت رفعت لم تضع ملف الاكسس في الريسورس لذلك لم يعمل...
يبدو اني لم افهم شيء
هل المطلوب استخراج ملفات من الريسورس ام لا!
المثال يعمل كما ترى
RE: تشغيل مشروع فيجوال بيسك6 - elgokr - 14-06-18
(14-06-18, 03:41 AM)سعود كتب : الملف المرفق اللي انت رفعت لم تضع ملف الاكسس في الريسورس لذلك لم يعمل...
يبدو اني لم افهم شيء
هل المطلوب استخراج ملفات من الريسورس ام لا!
المثال يعمل كما ترى
المثال يعمل معى ايضاً
تحياتى لك
RE: تشغيل مشروع فيجوال بيسك6 - حافظ حافظ - 14-06-18
يا اخوة يا طيبون انا لا اريد وضع قاعدة البيانات بالرسورس.لو وضعتها بالرسورس كيف رايح اتعامل معها ببقية مشروع ال vb net
اريد وضع قاعدة البيانات بمجلد ال debug اتمنى تكون الفكرة وصلت
RE: تشغيل مشروع فيجوال بيسك6 - سعود - 14-06-18
(14-06-18, 03:51 AM)حافظ حافظ كتب : يا اخوة يا طيبون انا لا اريد وضع قاعدة البيانات بالرسورس.لو وضعتها بالرسورس كيف رايح اتعامل معها ببقية مشروع ال vb net
اريد وضع قاعدة البيانات بمجلد ال debug اتمنى تكون الفكرة وصلت
طيب الامر ابسط ... ضع في متغير الملف المراد تخزين المسار به الى
PHP كود :
Application.StartupPath & "\a.mdb"
RE: تشغيل مشروع فيجوال بيسك6 - حافظ حافظ - 14-06-18
اخي سعود هاذا كود بالفورم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حملت هذا ال 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 SubRE: تشغيل مشروع فيجوال بيسك6 - سعود - 14-06-18
اخي الكريم مشروع vb6.0 لاتغير به شي ابدا ....الموضوع اساسه انك تود استخراج ملف exe ومعه ملف اكسس لتختبر هل يتصل به ام لا ... الموضوع الذي اتضح مؤخرا انك تود استخراجهما بنفس مجلد برنامج الدوت نت.
يعني فيجوال بيسك 6.0 يتصل بالملف اذا كان مجاورا له بالكود هذا
RE: تشغيل مشروع فيجوال بيسك6 - elgokr - 14-06-18
(14-06-18, 03:51 AM)حافظ حافظ كتب : يا اخوة يا طيبون انا لا اريد وضع قاعدة البيانات بالرسورس.لو وضعتها بالرسورس كيف رايح اتعامل معها ببقية مشروع ال vb net
اريد وضع قاعدة البيانات بمجلد ال debug اتمنى تكون الفكرة وصلت
اخى الحبيب لاتمام ذلك طبق ما تم شرحه لك من قبل
http://vb4arb.com/vb/showthread.php?tid=25358&pid=121462#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")تحياتى لك
وتمنياتى لك التوفيق
RE: تشغيل مشروع فيجوال بيسك6 - حافظ حافظ - 14-06-18
السلام عليكم.اخي algokr
انا و ضعت ملف project1 ال تنفيذي ال vb6 و قاعدة البيانات مع بعضهم في مجلد ال debug لمشروع ال vb net.استعملت الكود بكل الطرق و لم يشتغل ملف ال project1
جرب الله يرضى عليك ربما انت تجيب نظريا.بارك الله فيك
RE: تشغيل مشروع فيجوال بيسك6 - elgokr - 14-06-18
لا اعلم لماذا قمت بتعديل مسار الاتصال قاعدة البيانات فى VB6
لا تقم باى تعديلات على VB6
كل ما يجب فعله هو التعامل مع VB.NET لتضع كود الزر لفتح
برنامج اخر موجود بنفس المجلد الخاص به
تجاهل ان فى قاعدة بيانات وتجاهل انك بتعمل اى اكواد فى vb6
المثال ستجده فى البرنامج بملف Pro
والسورس كود بعد التعدل على vb6 و vb.net
كلاهما مرفق
تحياتى لك
وتمنياتى لك التوفيق