تقييم الموضوع :
  • 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 

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماذا يعني ظهور رسالة ( st6unst.exe) عند عمل setup للبرنامج؟ gonm64 0 135 11-08-20, 02:43 PM
آخر رد: gonm64
Question [vb6.0] كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم Microformt 2 250 01-08-20, 07:23 PM
آخر رد: Microformt
  [vb6.0] رسالة خطأ ارجو منكم الحل ahmed20 3 370 21-03-20, 05:04 AM
آخر رد: سعود
  طلب كود رسالة تنبيه في شريط المهام ahmed20 1 655 27-01-20, 01:39 PM
آخر رد: Amir_Alzubidy
  سطر برمجي يعطي رسالة خطأ عند التنفيذ - تكوين قاعدة بيانات ةقت التنفيذ ahmed.m 2 529 30-09-19, 01:36 AM
آخر رد: ahmed.m
Question [vb6.0] كيف اجعل عند النقر على ComboBox تظهر للمستخدم رسالة ؟؟ Microformt 6 1,205 10-03-19, 02:12 PM
آخر رد: Microformt
  ظهور رسالة خطأ عند استعراض تقرير اكتيف ريبورت أبو عقيل 6 1,154 01-03-19, 05:59 AM
آخر رد: أبو عقيل
  [vb6.0] المساعدة في طباعة شريط وزن تخرج رسالة خطا وادي العوضي 6 945 12-02-19, 12:47 AM
آخر رد: وادي العوضي
  مشكلة فى رسالة معناها ان هناك مكتبات مفقودة المبرمج العتيق 2 785 26-10-18, 01:27 PM
آخر رد: المبرمج العتيق
  رسالة عند الخروج من الاكتف ربورت حافظ حافظ 4 951 16-03-18, 03:33 PM
آخر رد: حافظ حافظ

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


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