+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] رسالة خطأ فجائية تطلع اثناء العمل بالبرنامج (/showthread.php?tid=26547)
RE: رسالة خطأ فجائية تطلع اثناء العمل بالبرنامج - larbihamri - 18-09-18
اخي elgokr
الرسالة لا تظهر كل مرة ، و لقد ظهرت في السورس الكود الذي ارسلته لي دون ان انقله الى البرنامج الرئيسي
و هي نفس الرسالة التي كانت تظهر في الاول
اعتقد ان المشكلة تظهر عندما اكتب في الكومبوبكس
RE: رسالة خطأ فجائية تطلع اثناء العمل بالبرنامج - elgokr - 18-09-18
(18-09-18, 11:02 PM)larbihamri كتب : اخي elgokr
الرسالة لا تظهر كل مرة ، و لقد ظهرت في السورس الكود الذي ارسلته لي دون ان انقله الى البرنامج الرئيسي
و هي نفس الرسالة التي كانت تظهر في الاول
اعتقد ان المشكلة تظهر عندما اكتب في الكومبوبكس
معى لا يظهر اى رسالة مهما كتبت من رسائل ونصوص
حتى لو تم كتابة نص فى الاول ثم ذهبت للثاني وكتبت نص
وقمت بالاعادة الى كمبوبكس الاول تانى لاعادة الكتابة
ستجد ان الثاني تم تفريقغ تلقائي
تذكر ان البرنامج على صغر حجمه الا انه بيستهلك 17 ميجا من الرامات
والسبب هو طريقة استخدامك للبرنامج للادوات وليس الاكواد
وبطبيعى الحال سيسبب فى البطي
واللاج حسب حالة الجهاز المستخدم عليه
لان يجب عليك التذكر
انك تستخدم الفلتر داخل الادوت المستخدمة فى الفورم
والتى تقوم بالاتصال قاعدة البيانات والتحقق منها ثم جلب النتائج لتقوم بتنفيذها فى For
لعرض البيانات فى الكمبوبكس المراحل دى كلها المفترض انك بتقوم بتنفيذها ى جزء من الثانية
حيث انك تقوم بكتابة مع كل حرف بتكرار كل تلك العملية
خلاف لو كنت بتتعامل مع الكود كنت ستتعامل مع قاعدة البيانات مباشر
وسيكون حتى الحمل وجلب البيانات اقل واخف بكثير من ما تقوم به
وسيكون استهلاك موارد الجهاز قد لا تحسب
من الممكن قد يحدث تلك المشكلة معاك ولم تظهر معى
بسبب اختلاف مواصفات الجهاز الجهاز
انا حاولت اقوم بتعمئة الفورم كاملاً للاضافة ى ما يقل من 3 ثواني
مع تكرار مسح واعادة الكتابة بنفس هذه المدة وظهر معى اغلاق البرنامج
لانى قمت بعمل بتحميل لبيانات وارسال امر التنفيذ بسرعة لا يستجاب لها البرنامج فى مدة قصرة
والسبب كما شرحت لك انك تستخدم الادوات فمراحل تنفيذ الامر تتجاوز 3 مراحل
خلاف ذلك لم يحدث معى اى مشكلة اثناء الاختبار
تحياتى لك
وتمنياتى لك التوفيق
RE: رسالة خطأ فجائية تطلع اثناء العمل بالبرنامج - larbihamri - 19-09-18
وصلت الفكرة اخي elgokr
بارك الله فيك
RE: رسالة خطأ فجائية تطلع اثناء العمل بالبرنامج - larbihamri - 19-09-18
اذا اخي elgokr
كيف يمكنني ان اعمل للفترة اثناء الكتابة في الكومبوبكس و تحقيق عملية الاكمال التلقائي بنجاح بدون المعالج ؟
على ما اظن ان العملية تنجح في الوضع المتصل و ليس المنفصل و الله اعلم ، لاني جربت هذا الكود لكن لم ينجح معي
ربما ان الكود الذي جربته ليس صحيح
كود :
Dim CON As New OleDbConnection
CON.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db.accdb"
CON.Open()
Dim DT As New DataTable
Dim DS As New DataSet
DS.Tables.Add(DT)
Dim DA As New OleDbDataAdapter("SELECT * FROM intitulé where fami like '" & Me.ComboBox1.Text.Trim & "'", CON)
DA.Fill(DT)
Dim R As DataRow
ComboBox1.Items.Clear()
For Each R In DT.Rows
ComboBox1.Items.Add(R.Item(1).ToString)
Next
Me.ComboBox1.AutoCompleteMode = AutoCompleteMode.Suggest
Me.ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
CON.Close()ولقد جربت الكود التالي بالوضع المتصل
كود :
If con.State = ConnectionState.Open Then
con.Close()
Dim strquery As String = "select * from intitulé where fam like " & Me.ComboBox1.Text.Trim
Dim cmd As New OleDbCommand(strquery, con)
con.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader
dr.Read()
ComboBox1.Items.Add(dr(1).ToString)
End Ifاما بخصوص مواصفات الجهاز اخي الفاضل فأنا املك جهاز من نوع DELL و ذو معالج i5 و رام بسعة 4 جيغا
RE: رسالة خطأ فجائية تطلع اثناء العمل بالبرنامج - asemshahen5 - 19-09-18
جرب هذا الكود و سينجح بإذن الله :
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ComboBox1.AutoCompleteMode = AutoCompleteMode.Suggest
ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
End Sub
Private Sub ComboBox1_Enter(sender As Object, e As EventArgs) Handles ComboBox1.Enter
Dim CON As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db.accdb"
Dim DT As New DataTable
DT.Clear()
Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM intitulé where fami like '%" & ComboBox1.Text.Trim & "%'", CON)
DA.Fill(DT)
ComboBox1.Items.Clear()
For Each row As DataRow In DT.Rows
ComboBox1.Items.Add(row(1).ToString)
Next
End SubRE: رسالة خطأ فجائية تطلع اثناء العمل بالبرنامج - larbihamri - 19-09-18
اخي asemshahen5
المشكل مازال قائما فهو يقوم بغلق البرنامج كليا اثناء الكتابة على الكومبوبكس
RE: رسالة خطأ فجائية تطلع اثناء العمل بالبرنامج - asemshahen5 - 19-09-18
هذا مثال جربته عندي و لا يوجد به أي مشكلة مع العلم ان الجهاز الي مجربه عليه هو : كور أي 3
و رام 4 غيغا
RE: رسالة خطأ فجائية تطلع اثناء العمل بالبرنامج - elgokr - 19-09-18
(19-09-18, 11:49 AM)larbihamri كتب : اخي asemshahen5
المشكل مازال قائما فهو يقوم بغلق البرنامج كليا اثناء الكتابة على الكومبوبكس
فى البدابية لا تقلق فالامر يحجدث على جهازك فقط
ولكن عند استخراج البرنامج والعمل عليه وكذلك بجهاز اخر لم يحدث تلك المشكلة
بخصوص ان تجعل الفكرة للكمبو بكود منفصل
انت هنا كانك خففت من الحمل نسبة 20%
لان يبقي بالمنهاية الفورم تحتوى على الادوات
التى تقوم بالاتصال والتعامل مع قاعدة البيانات
اذا قمت بتحويل المشروع كاملاً بالاكواد
سيختلف الامر معاك كلياً
اذا اتاح الوقت لى اليوم
من الممكن ان اعد تهيئة السورس الخاص بك
ليعمل بالاكواد كاملاً بدل من الادوات وساقوم بارفاق السورس
لتقوم بتحميله حتى تلاحظ الفرق بين ما لديك وبين استخدام الاكواد
تحياتى لك
وتمنياتى لك التوفيق
RE: رسالة خطأ فجائية تطلع اثناء العمل بالبرنامج - larbihamri - 19-09-18
الفكرة اخي asemshahen5
هي انني لا اريد تعبئة الكومبوبكس فالاول
بل عملية التعبئة تكون تزامنا مع الكتابة على الكومبوبكس حيث تتم عن طريق عملية البحث و نتيجة البحث تضاف الى الكومبو
RE: رسالة خطأ فجائية تطلع اثناء العمل بالبرنامج - mero5000 - 19-09-18
(19-09-18, 03:46 PM)larbihamri كتب : الفكرة اخي asemshahen5
هي انني لا اريد تعبئة الكومبوبكس فالاول
بل عملية التعبئة تكون تزامنا مع الكتابة على الكومبوبكس حيث تتم عن طريق عملية البحث و نتيجة البحث تضاف الى الكومبو
اتبع فقط شرح الصورة ليتم تبعبة الكمبوبوكس مع الكتابة
وراجع هذا الرابط
http://vb4arb.com/vb/showthread.php?tid=26264&pid=126505#pid126505