09-04-13, 11:11 PM
ADO : ممكن المساعده في كود الحفظ
09-04-13, 11:45 PM
ممكن ترفق المثال حتى نسيطيع مساعدتك
10-04-13, 03:49 AM
السلام عليكم
- إذا كان الحقل num نصي فيجب إضافة علامة تنصيص مفرد قبل وبعد إسم التكست بوكس الموجود فيه الذي تريد البحث عنها . وإذا كان رقمي فقم بإزالة علامتي التنصيص المفرد. وكذلك قم بحذف هاذين السطرين من جميع الفورمات :
- وقم بتغيير نفس السطرين الموجود في الموديل لتصبح :
- وهذا كود الحفظ بعد تعديله قليلا :
- وإن شاء الله يعمل معك .
- تحياتي .
- إذا كان الحقل 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- وإن شاء الله يعمل معك .
- تحياتي .