منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع (/showthread.php?tid=47353)



نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع - Microformt - 22-10-23

الاخوة الكرام
السلام عليكم ورحمة وبركاته
نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اعرف الماذا ؟
ملاحظة هامه المشكلة في استعلام الاضافة نامل المساعدة وجزكم الله خيراً


RE: نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع - Taha Okla - 23-10-23

..

كود :
Private Sub Command1_Click()
   Set db = OpenDatabase(App.Path & "/db1.mdb")
   db.Execute "INSERT INTO aol  VALUES (" & Trim$(Text1.Text) & ",'" & Trim$(Text2.Text) & "','" & Trim$(Val(Text3.Text)) & "'," & "" & Val(Trim$(Text4.Text)) & ",'" & Trim$(Text5.Text) & "','" & Trim$(Text6.Text) & "')"
   ' DoEvents
   MsgBox "تم حفظ الفاتورة بنجاح"
End Sub