منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
Ado : ممكن المساعده في كود الحفظ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : Ado : ممكن المساعده في كود الحفظ (/showthread.php?tid=8409)

Ado : ممكن المساعده في كود الحفظ - المبرمج البسيط - 09-04-13

ADO : ممكن المساعده في كود الحفظ




Ado : ممكن المساعده في كود الحفظ - rachid - 09-04-13

ممكن ترفق المثال حتى نسيطيع مساعدتك

Ado : ممكن المساعده في كود الحفظ - VB_Coder - 10-04-13

السلام عليكم

- إذا كان الحقل num نصي فيجب إضافة علامة تنصيص مفرد قبل وبعد إسم التكست بوكس الموجود فيه الذي تريد البحث عنها . وإذا كان رقمي فقم بإزالة علامتي التنصيص المفرد. وكذلك قم بحذف هاذين السطرين من جميع الفورمات :

كود :
Dim db As New ADODB.Connection
Dim RS As New ADODB.Recordset

- وقم بتغيير نفس السطرين الموجود في الموديل لتصبح :

كود :
Public db As New ADODB.Connection
Public RS As New ADODB.Recordset

- وهذا كود الحفظ بعد تعديله قليلا :

كود :
If RS.State = 1 Then RS.Close
RS.Open "select * from item Where num='" & Trim$(Text1.Text) & "'", db, adOpenStatic, adLockPessimistic
If RS.RecordCount <= 0 Then
   RS.AddNew
   RS!num = Text1.Text
   RS!nameitem = Text2.Text
   RS!prins = Text3.Text
   RS!prins = Text3.Text
   RS!users = frmdate.Label2.Caption
   RS.Update
   MsgBox "تم حفظ البيانات بنجاح"
Else
   MsgBox " هذا الرقم موجود مسبقا"
End If

- وإن شاء الله يعمل معك .

- تحياتي .