+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : بخصوص صيغة التاريخ عند الحفظ في قاعدة البيانات (/showthread.php?tid=41832)
بخصوص صيغة التاريخ عند الحفظ في قاعدة البيانات - hannileo - 03-07-22
السلام عليكم
اخواني كيف اقوم بتحديد صيغة التاريخ عند الضغط على زر الحفظ حيث يقوم بحفظ السجل بصيغة تاريخ محددة
على فرض ان TripDt هي التاريخ الذي اريد حفظه
جربت تغيير trim الى format ولم استطع اكمال الكود
كود :
For i = 1 To Lst.ListItems.count
CN.Execute "insert into TblTrip([TNo],[CustID],[Custname],[TripDt],[TripReq],[PassNo],[TrpGo],[TrpFrom1],[TrpTo1],[TrpCome],[TrpFrom2],[TrpTo2],[Dest],[PlnDt],[PlnTime],[TrpNote],[RegDt])" & _
"values (" & _
"'" & Trim$(Lst.ListItems(i).Text) & "'," & "'" & Trim$(Lst.ListItems(i).SubItems(1)) & "'," & "'" & Trim$(Lst.ListItems(i).SubItems(2)) & "'," & _
"'" & Format(Lst.ListItems(i).SubItems(3)) & "'," & "'" & Trim$(Lst.ListItems(i).SubItems(4)) & "'," & _
"'" & Trim$(Lst.ListItems(i).SubItems(5)) & "'," & _
"'" & Trim$(Lst.ListItems(i).SubItems(6)) & "'," & _
"'" & Trim$(Lst.ListItems(i).SubItems(7)) & "'," & _
"'" & Trim$(Lst.ListItems(i).SubItems(8)) & "'," & _
"'" & Trim$(Lst.ListItems(i).SubItems(9)) & "'," & _
"'" & Trim$(Lst.ListItems(i).SubItems(10)) & "'," & _
"'" & Trim$(Lst.ListItems(i).SubItems(11)) & "'," & _
"'" & Trim$(Lst.ListItems(i).SubItems(12)) & "'," & _
"'" & Trim$(Lst.ListItems(i).SubItems(13)) & "'," & _
"'" & Trim$(Lst.ListItems(i).SubItems(14)) & "'," & _
"'" & Trim$(Lst.ListItems(i).SubItems(15)) & "'," & _
"'" & Trim$(Lst.ListItems(i).SubItems(16)) & "')"
DoEvents