تقييم الموضوع :
  • 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 ك ب / التحميلات : 22)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 13 2,768 27-03-20, 01:35 PM
آخر رد: layan2000
  مشاركة قاعدة البيانات على الانترنت haniblack 6 1,744 21-01-20, 05:24 PM
آخر رد: abubasilIraq
  مشكلة بقاعدة البيانات hannileo 5 607 06-01-20, 03:16 PM
آخر رد: ahmedabdelaliem
  تغيير محتويات الصف بالكامل في جدول قاعدة البيانات haniblack 3 1,556 09-08-19, 02:23 AM
آخر رد: princeofislam
Sad نسخ بيانات من جدول لاخر قاعدة بيانات اكسس والربط ADO starwarr2005 4 3,156 05-02-19, 05:52 PM
آخر رد: بلال مناصرة
  تحديد الخطأ كود الحفظ hannileo 4 731 06-11-18, 09:31 AM
آخر رد: hannileo
  نقل بيانات أولياء الأمور من الإكسل إلى قاعدة بيانات االرسام 1 665 14-09-18, 07:33 AM
آخر رد: Ahmed_Mansoor
  مشكلة في اتصال قاعدة بيانات sql server 2005 مصمم هاوي 6 1,264 31-03-18, 03:04 PM
آخر رد: مصمم هاوي
  [سؤال] استعادة قاعدة بيانات SQL ABO.BANCIANA 11 3,539 30-03-18, 12:12 AM
آخر رد: Talal2018
  [سؤال] كود الاستعلام في قاعدة بيانات اكسس بين تاريخين محمد حمد محمد ليبيا 1 1,317 16-01-18, 01:24 AM
آخر رد: Amir_Alzubidy

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


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