تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] رسالة خطأ عند التنفيذ
#1
السلام عليكم اخوتي الكرام ,,,,

بالنسبة لهذا الكود لقد تم تغيير نوع الحقل bus_no هو رقم 

وعندما اقوم بتنفيذ الامر هذا  بالاداة Combo6 فرضاً بالحذث CLick
كود :
If Trim$(Text26.Text) = "" Or Trim$(Combo6.Text) = "" Then Exit Sub
 
Dim zOption1 As String
Dim zOption2 As String

If InStr(1, Combo6.Text, "&") <= 0 Then
Call Adoconn
  Adodc1.RecordSource = "select * FROM Ais where bus_no='" & Trim$(Text26.Text) & "' And way='" & Trim$(Combo6.Text) & "'"

Else
 
  zOption1 = Left$(Combo6.Text, InStr(1, Combo6.Text, "&") - 1)
  zOption2 = Mid$(Combo6.Text, InStr(1, Combo6.Text, "&") + 1)
 Adodc1.RecordSource = "select * FROM Ais where bus_no='" & Trim$(Text26.Text) & "' And (way='" & Trim$(zOption1) & "' or way='" & Trim$(zOption2) & "')"
End If

Adodc1.Refresh
Call Data_Get
Data_Fill
If Adodc1.Recordset.RecordCount = 0 Then
Data_Clear


End If
اصبحت تظهر عندي رسالة خطأ عند السطر


كود :
Adodc1.Refresh



أعتقد ان الاستاذ #امير_الزعبي يفهم المووضوع اكثر لانه هو من قام بمساعدتي بهذا الموضوع سابقاً
شكرا لكم جميعاً


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام
الافضل تضع مثال كي تسهل على الاخوة مساعدتك
الرد }}}
#3
(08-11-17, 11:15 AM)sendbad100 كتب : وعليكم السلام
الافضل تضع مثال كي تسهل  على الاخوة مساعدتك


وعليكم السلام 
اخ سندباد صعب جداص ان اقوم بوضع مثال لانه ضخم قليلا


انا اعرف اين المشكلة بالضبط فهي بسطرين البحث بقاعدة البيانات 

المشكلة ظهرت عندما غيرت نوع الحقل  Bus_no من Short text الى number

قمت بحذف الفواصل ولكنها لم تعمل لانه يوجد حقل باسم Way من نوع Short Text بنفس السطر الذي حذفت فيه الفواصل 

السطر الاول
كود :
Adodc1.RecordSource = "select * FROM Ais where bus_no=" & Trim$(Text26.Text) & " And way=" & Trim$(Combo6.Text)
السطر الثاني 
كود :
Adodc1.RecordSource = "select * FROM Ais where bus_no='" & (Trim$(Text26.Text)) & "' And (way='" & Trim$(zOption1) & "' or way='" & Trim$(zOption2) & "')"


وشكرا لك على اهتمامك
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , Amir_Alzubidy
#4
طيب  
جرب التالي


PHP كود :
Adodc1.RecordSource "select * FROM Ais where bus_no= " & (VAL(Text26.Text)) & "' And (way='" Trim$(zOption1) & "' or way='" Trim$(zOption2) & "')" 


تاكد ان   Text26.Text  يحتوي  على رقم وليس  نص
الرد }}}
#5
(08-11-17, 11:39 AM)sendbad100 كتب : طيب  
جرب التالي


PHP كود :
Adodc1.RecordSource "select * FROM Ais where bus_no= " & (VAL(Text26.Text)) & "' And (way='" Trim$(zOption1) & "' or way='" Trim$(zOption2) & "')" 


تاكد ان   Text26.Text  يحتوي  على رقم وليس  نص


شكراً لك ولكن ماذا بالنسبة للسطر الاول لان المشكلة مازالت موجودة عند السكر ADODC1.refresh
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy
#6
تم اضافة مثال الرجاء التعديل


الملفات المرفقة
.rar   searchpro_1.rar (الحجم : 15.13 ك ب / التحميلات : 24)
الرد }}}
تم الشكر بواسطة: sendbad100 , Ahmed_Mansoor , Amir_Alzubidy
#7
Adodc1.RecordSource = "select * FROM Ais where bus_no= " & (VAL(Text26.Text)) & " And (way='" & Trim$(zOption1) & "' or way='" & Trim$(zOption2) & "')"
الرد }}}
#8
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , لايمكنك وضع علامة التنصيص المفرد في جملة الإستعلام حول قيمة حقل ونوعه "رقم" لابد أن يكون نوعه "نص" , هذا تعديل كود حدث الـ Combo1_Click :

PHP كود :
Private Sub Combo1_Click()

If 
Trim$(Text5.Text) = "" Or Trim$(Combo1.Text) = "" Then Exit Sub
   
Dim zOption1 
As String
Dim zOption2 
As String

If InStr(1Combo1.Text"&") <= 0 Then

   Adodc1
.RecordSource "select * FROM seat where bus_no=" Val(Trim$(Text5.Text)) & " And duty='" Trim$(Combo1.Text) & "'"

Else
   
   
zOption1 Left$(Combo1.TextInStr(1Combo1.Text"&") - 1)
   
zOption2 Mid$(Combo1.TextInStr(1Combo1.Text"&") + 1)
   
   
Adodc1.RecordSource "select * FROM seat where bus_no=" Val(Trim$(Text5.Text)) & " And (duty='" Trim$(zOption1) & "' or duty='" Trim$(zOption2) & "')"
   
End If

Adodc1.Refresh

End Sub 

وهذا تعديل بسيط في حدث الـ Text5_Change :

PHP كود :
Private Sub Text5_Change()

If 
Trim$(Text5.Text) = "" Then
   Adodc1
.RecordSource "select * FROM seat"
Else
   
Adodc1.RecordSource "select * FROM seat where bus_no=" Val(Trim$(Text5.Text))
End If

Adodc1.Refresh

End Sub 
الرد }}}
#9
(09-11-17, 12:13 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , لايمكنك وضع علامة التنصيص المفرد في جملة الإستعلام حول قيمة حقل ونوعه "رقم" لابد أن يكون نوعه "نص" , هذا تعديل كود حدث الـ Combo1_Click :

PHP كود :
Private Sub Combo1_Click()

If 
Trim$(Text5.Text) = "" Or Trim$(Combo1.Text) = "" Then Exit Sub
   
Dim zOption1 
As String
Dim zOption2 
As String

If InStr(1Combo1.Text"&") <= 0 Then

   Adodc1
.RecordSource "select * FROM seat where bus_no=" Val(Trim$(Text5.Text)) & " And duty='" Trim$(Combo1.Text) & "'"

Else
 
  
   zOption1 
Left$(Combo1.TextInStr(1Combo1.Text"&") - 1)
 
  zOption2 Mid$(Combo1.TextInStr(1Combo1.Text"&") + 1)
 
  
   Adodc1
.RecordSource "select * FROM seat where bus_no=" Val(Trim$(Text5.Text)) & " And (duty='" Trim$(zOption1) & "' or duty='" Trim$(zOption2) & "')"
 
  
End 
If

Adodc1.Refresh

End Sub 

وهذا تعديل بسيط في حدث الـ Text5_Change :

PHP كود :
Private Sub Text5_Change()

If 
Trim$(Text5.Text) = "" Then
   Adodc1
.RecordSource "select * FROM seat"
Else
 
  Adodc1.RecordSource "select * FROM seat where bus_no=" Val(Trim$(Text5.Text))
End If

Adodc1.Refresh

End Sub 

بارك الله بك استاذ احمد 


فعلاً انه يعمل الان بشكل جيد 
جعلها الله في ميزان حسناتك
الرد }}}
تم الشكر بواسطة: السيد الغالي , الاصيله , الاصيله


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  رسالة خطأ تظهر لي ما الحل؟ Alhootti1 3 284 28-08-23, 02:11 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] اريد إذا كان قيمة المحول صفر يظهر لي رسالة هل يمكن ذلك ؟ Microformt 0 371 20-03-23, 08:33 PM
آخر رد: Microformt
  [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى hamada salah90 2 1,264 05-12-21, 12:04 AM
آخر رد: hamada salah90
  رسالة خظأ عند تشغيل الفورم ahmed201 5 2,006 12-01-21, 07:31 PM
آخر رد: ahmed201
  رسالة خطأ في كود البحث في قاعدة البيانات اكسس ahmed201 1 1,072 04-01-21, 06:52 PM
آخر رد: aboezzat84
  [vb6.0] كيفية تغيير خاصية Style للCommandButton في زمن التنفيذ ياسر عبد الكريم 0 921 16-11-20, 09:00 PM
آخر رد: ياسر عبد الكريم
  ماذا يعني ظهور رسالة ( st6unst.exe) عند عمل setup للبرنامج؟ gonm64 0 1,148 11-08-20, 02:43 PM
آخر رد: gonm64
Question [vb6.0] كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم Microformt 2 1,559 01-08-20, 07:23 PM
آخر رد: Microformt
  [vb6.0] رسالة خطأ ارجو منكم الحل ahmed20 3 1,597 21-03-20, 05:04 AM
آخر رد: سعود
  طلب كود رسالة تنبيه في شريط المهام ahmed20 1 1,904 27-01-20, 01:39 PM
آخر رد: Amir_Alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم