+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] رسالة خطأ عند التنفيذ (/showthread.php?tid=22454)
رسالة خطأ عند التنفيذ - hannileo - 08-11-17
السلام عليكم اخوتي الكرام ,,,,
بالنسبة لهذا الكود لقد تم تغيير نوع الحقل 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أعتقد ان الاستاذ #امير_الزعبي يفهم المووضوع اكثر لانه هو من قام بمساعدتي بهذا الموضوع سابقاً
شكرا لكم جميعاً
RE: رسالة خطأ عند التنفيذ - sendbad100 - 08-11-17
وعليكم السلام
الافضل تضع مثال كي تسهل على الاخوة مساعدتك
RE: رسالة خطأ عند التنفيذ - hannileo - 08-11-17
(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) & "')"وشكرا لك على اهتمامك
RE: رسالة خطأ عند التنفيذ - sendbad100 - 08-11-17
طيب
جرب التالي
PHP كود :
Adodc1.RecordSource = "select * FROM Ais where bus_no= " & (VAL(Text26.Text)) & "' And (way='" & Trim$(zOption1) & "' or way='" & Trim$(zOption2) & "')"
تاكد ان Text26.Text يحتوي على رقم وليس نص
RE: رسالة خطأ عند التنفيذ - hannileo - 08-11-17
(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
RE: رسالة خطأ عند التنفيذ - hannileo - 08-11-17
تم اضافة مثال الرجاء التعديل
RE: رسالة خطأ عند التنفيذ - eiocm - 08-11-17
Adodc1.RecordSource = "select * FROM Ais where bus_no= " & (VAL(Text26.Text)) & " And (way='" & Trim$(zOption1) & "' or way='" & Trim$(zOption2) & "')"
RE: رسالة خطأ عند التنفيذ - Ahmed_Mansoor - 09-11-17
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , لايمكنك وضع علامة التنصيص المفرد في جملة الإستعلام حول قيمة حقل ونوعه "رقم" لابد أن يكون نوعه "نص" , هذا تعديل كود حدث الـ 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
RE: رسالة خطأ عند التنفيذ - hannileo - 09-11-17
(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
بارك الله بك استاذ احمد
فعلاً انه يعمل الان بشكل جيد
جعلها الله في ميزان حسناتك