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

الاساتذة الكرام .. عندي قاعدة بيانات فيها اسم الزبون ورقم الاتصال 

 عند عمل فاتورة جديدة ابحث عن اسم الزبون من ضمن قاعدة بيانات الزبائن   اذا كان اسمه موجود من قبل اضغط عليه حتى يضاف الى الفاتورة واذا لم يكن موجود اضيف اسم جديد ورقم اتصال 

وعند طباعة الفاتورة يتم حفظه في جدول الزبائن 

المشكلة ان الاسماء الموجودة تظهر مكررة في جدول الزبائن 
السؤال: كيف يمكن حفظه بدون تكرار يعني ان يقوم بتحديث الاسم فقط ان كان موجود مسبقاً 
وان كان جديد يقوم بحفظه بشكل طبيعي 

كود :
Sub AddtoCustomer()
If rs.State = 1 Then rs.Close
sql = "SELECT * FROM tblCustomers"
rs.Open sql, cn

With rs
.AddNew

!CustName = txtCust.Text
!CustCont = txtCont.Text
.Update
End With


End Sub



و شكراً جزيلاً
الرد
تم الشكر بواسطة:
#2
قبل كود الاضافة
ستعمل كود استعلام اولاً فى جدول الزبائن
واذا تحقق من وجود اسم الزبون بدل الاضافة ستستخدم كود Update
واذا لم يتحقق شرط اسم الزبون فى جدول الزبائن فهنا تقوم بتنفيذ كود Insert

وبكده تكون حليت المشكلة لديك

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: عبد العزيز البسكري , hannileo
#3
الحقيقة اخواني الكرام 
وجدت هذا المثال حاولت ان اعدل على مشروعي بنفس الطريقة لكنني لم استطع 

اول مرة اقوم بعمل قاعدة بيانات من نوع SQL 

لكن المثال الملحق ستخدم اداة Data 

وانا استخدم Modules 


كود :
Public rs As New ADODB.Recordset
Public cn As New ADODB.Connection
Public sql As String
Dim dbpath As String

Sub main()

Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection

With rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
End With

dbpath = App.Path & "\database\database.mdb"

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dbpath & " ;Persist Security Info=False"

Form2.Show
frmLogin.Show
End Sub


هل يمكن كم حضرتكم تعديله على طريقة الاتصال بدون ادوات وبنفس صيغة SQL وبدون ادوات 



حتى اتمكن من فهمه بشكل افضل 

ملاحظة يرجى اضافة زر cmd_save  للفورم 

وشكرا لكم


عذراً لقد تم تحميل الملف بعد ان نسيت تحميله بالسابق Rolleyes


الملفات المرفقة
.zip   prof_1982.zip (الحجم : 9.11 ك ب / التحميلات : 3)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحديد الخطأ كود الحفظ hannileo 4 124 06-11-18, 09:31 AM
آخر رد: hannileo
  نقل بيانات أولياء الأمور من الإكسل إلى قاعدة بيانات االرسام 1 153 14-09-18, 07:33 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 4 1,061 07-07-18, 02:54 PM
آخر رد: boussida fethi
  مشكلة في اتصال قاعدة بيانات sql server 2005 مصمم هاوي 6 449 31-03-18, 03:04 PM
آخر رد: مصمم هاوي
  [سؤال] استعادة قاعدة بيانات SQL ABO.BANCIANA 11 2,457 30-03-18, 12:12 AM
آخر رد: Talal2018
  [سؤال] كود الاستعلام في قاعدة بيانات اكسس بين تاريخين محمد حمد محمد ليبيا 1 490 16-01-18, 01:24 AM
آخر رد: Amir_alzubidy
  [سؤال] تعديل كود تحديث البيانات ZaerAllail 0 243 10-01-18, 05:24 AM
آخر رد: ZaerAllail
  معالج MDB Code Wizard v1.0.1 لتحويل قاعدة بيانات إلى Module Mohamad Anan 1 368 19-10-17, 10:37 PM
آخر رد: Amir_alzubidy
  [سؤال] طلب كود للبحث عن اسم في قاعدة البيانات كلها وكود نقل سجل sher 7 591 18-10-17, 04:02 AM
آخر رد: عبد العزيز البسكري
  [سؤال] سؤال عن ربط قاعدة البيانات اكسس amer2000 4 609 14-05-17, 01:08 PM
آخر رد: Amir_alzubidy

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


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