تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحديد الخطأ كود الحفظ
#1
السلام عليكم ورحمة الله وبركاته ,,,

اخواني عندي الكود اود حفظ اسم ورقم الزبون في الجدول 
ولكن اذا وجد اسمه مسبقا اود ان لا يقوم بشيئ 
وان لم يكن موجود يضيفه لقاعدة البيانات 
كود :
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
الرد
تم الشكر بواسطة:
#2
إذا كان الحقل نوعه نص فيجب وضع القيمة بين علامات '    '
وفي الكود لم أجد أنك وضعت العلامة ' للحقل CustName اللي من اسمه يعني نصي

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

الحاجة الثانية لم أجد أنك بحثت بالأمر where في جملة الاستعلام
أشكرك أخي الكريم على الرد 
هل يمكن بعد اذنك  كتابة الكود بعد التعديل 
لانني بصراحة انا جديد عىل موضوع SQL بعد نصائح الاخوة  لذلك لا املك اي خبرة حتى الان 
وشكراً جزبلاً لجهودك
الرد
تم الشكر بواسطة:
#4
إذا كان 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) & " "

لو المشروع كان ممكن تجد اجابة افضل
الرد
تم الشكر بواسطة: hannileo , hannileo , elgokr , asemshahen5 , Ahmed_Mansoor
#5
(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) & " "

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



اشكرك 
لقد صارت تعمل 
بارك الله بك وبجهودك
الرد
تم الشكر بواسطة: elgokr , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الحفظ في قاعدة البيانات hannileo 2 149 01-11-18, 08:42 AM
آخر رد: hannileo
  [سؤال] تحديد نموذج بدء التشغيل تنمية المعرفة 1 346 17-09-17, 09:39 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] استفسار ارسال صورة و تحديد موقع بالGPS 7878 0 597 21-01-17, 08:38 PM
آخر رد: 7878
  الرجاء المساعدة( تحديد نوع الادخال بقاعدة البيانات) haniblack 11 1,640 01-03-16, 12:52 PM
آخر رد: ahmedabdelaliem
  أرجو مساعدتكم - ماهو سبب ظهور رسائل الخطأ هذه sher 3 840 21-02-16, 11:53 AM
آخر رد: sher
  [vb6.0] المساعدة في كود الحفظ صهيب محمد 5 531 14-11-15, 02:00 AM
آخر رد: صهيب محمد
  [vb6.0] ممكن حل لظهور رسالة الخطأ دي ؟؟؟؟؟؟؟؟ hamada salah90 3 687 14-11-15, 12:42 AM
آخر رد: hamada salah90

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


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