تحديد الخطأ كود الحفظ - نسخة قابلة للطباعة

تحديد الخطأ كود الحفظ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : تحديد الخطأ كود الحفظ (/showthread.php?tid=27288)

تحديد الخطأ كود الحفظ - hannileo - 05-11-18

السلام عليكم ورحمة الله وبركاته ,,,

اخواني عندي الكود اود حفظ اسم ورقم الزبون في الجدول
ولكن اذا وجد اسمه مسبقا اود ان لا يقوم بشيئ
وان لم يكن موجود يضيفه لقاعدة البيانات

كود :

If rs.State = 1 Then rs.Close

sql = "select * from tblCustomers where CustName = " & Trim(txtCust.Text) & " and CustCont = '" & Trim(txtCont.Text) & "'"

 rs.Open sql, cn

الكود التالي يظهر خطأ عند سطر الاول (الاتصال بقاعدة البيانات)

هل يمكن ان تدلوني على الخطا او اصلاحه بشكل افضل من فضلكم ولكم جزيل الشكر

كود :

If Trim(txtCust.Text) = "" Then MsgBox "الرجاء التأكد من المدخل ", vbInformation, "": Exit Sub

If Trim(txtCont.Text) = "" Or Not IsNumeric(txtCont.Text) Then MsgBox "الرجاء التأكد من المدخل ", vbInformation, "": Exit Sub

'------------------------

'البحث عن القيمتين رقم الجوال والاسم قبل عملية الاضافة فاذا وجدا لم يقم بالاضافة بل سيسألك اذا رغبت بالتعديل عليه

If rs.State = 1 Then rs.Close

sql = "select * from tblCustomers where CustName = " & Trim(txtCust.Text) & " and CustCont = '" & Trim(txtCont.Text) & "'"

 rs.Open sql, cn

With rs

  If rs.EOF Then

'في عدم وجود السجل سيتم تنفيذ الكود التالي

.AddNew

            Else

'في حال وجود السجل سيتم تنفيذ الكود التالي

            Msg_1000 = MsgBox("السجل موجود هل تريد التعديل عليه", vbQuestion + vbYesNo, "")

         If Msg_1000 = vbYes Then

          update.

                Else

            Exit Sub

         End If

  End If

!custName = Trim(txtCust.Text)

!custcont = Trim(txtCont.Text)

    .Update

.Close

End With

RE: تحديد الخطأ كود الحفظ - rmnr - 05-11-18

إذا كان الحقل نوعه نص فيجب وضع القيمة بين علامات ' '
وفي الكود لم أجد أنك وضعت العلامة ' للحقل CustName اللي من اسمه يعني نصي

الحاجة الثانية لم أجد أنك بحثت بالأمر where في جملة الاستعلام

RE: تحديد الخطأ كود الحفظ - hannileo - 05-11-18

(05-11-18, 09:53 AM)rmnr كتب : إذا كان الحقل نوعه نص فيجب وضع القيمة بين علامات ' '
وفي الكود لم أجد أنك وضعت العلامة ' للحقل CustName اللي من اسمه يعني نصي

الحاجة الثانية لم أجد أنك بحثت بالأمر where في جملة الاستعلام

أشكرك أخي الكريم على الرد
هل يمكن بعد اذنك كتابة الكود بعد التعديل
لانني بصراحة انا جديد عىل موضوع SQL بعد نصائح الاخوة لذلك لا املك اي خبرة حتى الان
وشكراً جزبلاً لجهودك

RE: تحديد الخطأ كود الحفظ - rmnr - 05-11-18

إذا كان CustName و CustCont نوعها نصي

كود :

sql = "select * from tblCustomers where CustName = '" & Trim(txtCust.Text) & "' and CustCont = '" & Trim(txtCont.Text) & "'"

إذا كان CustName نوعه نص و CustCont نوعها رقم

كود :

sql = "select * from tblCustomers where CustName = '" & Trim(txtCust.Text) & "' and CustCont = " & Val(txtCont.Text) & " "

لو المشروع كان ممكن تجد اجابة افضل

RE: تحديد الخطأ كود الحفظ - hannileo - 06-11-18

(05-11-18, 08:15 PM)rmnr كتب : إذا كان CustName و CustCont نوعها نصي

كود :

sql = "select * from tblCustomers where CustName = '" & Trim(txtCust.Text) & "' and CustCont = '" & Trim(txtCont.Text) & "'"

إذا كان CustName نوعه نص و CustCont نوعها رقم

كود :

sql = "select * from tblCustomers where CustName = '" & Trim(txtCust.Text) & "' and CustCont = " & Val(txtCont.Text) & " "

لو المشروع كان ممكن تجد اجابة افضل

اشكرك
لقد صارت تعمل
بارك الله بك وبجهودك