منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > رسالة خطأ عند التنفيذ
نسخة كاملة : رسالة خطأ عند التنفيذ
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

hannileo

08-11-17, 10:24 AM
السلام عليكم اخوتي الكرام ,,,,

بالنسبة لهذا الكود لقد تم تغيير نوع الحقل 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



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

sendbad100

08-11-17, 11:15 AM
وعليكم السلام
الافضل تضع مثال كي تسهل على الاخوة مساعدتك

hannileo

08-11-17, 11:32 AM
(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) & "')"


وشكرا لك على اهتمامك

sendbad100

08-11-17, 11:39 AM
طيب  
جرب التالي


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


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

hannileo

08-11-17, 01:20 PM
(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

hannileo

08-11-17, 03:50 PM
تم اضافة مثال الرجاء التعديل

eiocm

08-11-17, 07:41 PM
Adodc1.RecordSource = "select * FROM Ais where bus_no= " & (VAL(Text26.Text)) & " And (way='" & Trim$(zOption1) & "' or way='" & Trim$(zOption2) & "')"

Ahmed_Mansoor

09-11-17, 12:13 AM
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , لايمكنك وضع علامة التنصيص المفرد في جملة الإستعلام حول قيمة حقل ونوعه "رقم" لابد أن يكون نوعه "نص" , هذا تعديل كود حدث الـ 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(1, Combo1.Text, "&") <= 0 Then

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

Else
   
   zOption1 = Left$(Combo1.Text, InStr(1, Combo1.Text, "&") - 1)
   zOption2 = Mid$(Combo1.Text, InStr(1, Combo1.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 

hannileo

09-11-17, 09:20 AM
(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(1, Combo1.Text, "&") <= 0 Then

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

Else
   
   zOption1 = Left$(Combo1.Text, InStr(1, Combo1.Text, "&") - 1)
   zOption2 = Mid$(Combo1.Text, InStr(1, Combo1.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 

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


فعلاً انه يعمل الان بشكل جيد 
جعلها الله في ميزان حسناتك
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > رسالة خطأ عند التنفيذ