تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد كود حفظ تاريخ الى الاكسس
#1
كيف احفظ تاريخ بدون الوقت من ادة DateTimePicker في فجول الى الاكسس اريدها بتنسيق  يوم شهر سنة
الرد
تم الشكر بواسطة:
#2
Format(DateTimePicker1.Value, "yyyy-MM-dd")
مجموعتنا على الفايسبوك
الرد
تم الشكر بواسطة: غدير الصليحي
#3
(22-11-21, 10:52 PM)عبد العزيز البسكري كتب :
Format(DateTimePicker1.Value, "yyyy-MM-dd")

29/06/1894
يحفظ بطريقه هذه
لا ياخذ التاريخ الحقيقي الذي اريدة
الرد
تم الشكر بواسطة:
#4
PHP كود :
Public Class Form1
    Dim dbpath 
As String IO.Path.GetDirectoryName(Application.ExecutablePath)
 
   Dim str As String "provider=microsoft.ace.oledb.12.0;data source=" dbpath "\db.accdb"
 
   Dim con As New OleDb.OleDbConnection(str)
 
   Dim dt As New DataTable
    Dim da 
As New OleDb.OleDbDataAdapter("select * from tb"con)
 
   Dim cm As New OleDb.OleDbCommandBuilder(da)
 
   Private Sub gd()
 
       dgv.DataSource Nothing
        dgv
.Rows.Clear()
 
       dt.Clear()
 
       da.Fill(dt)
 
       dgv.DataSource dt
        dgv
.Columns(0).Visible False
        dgv
.Columns(1).Width 222
        dgv
.Columns(2).Width 222
        dgv
.Columns(1).HeaderText "الاسم"
 
       dgv.Columns(2).HeaderText "التاريخ"
 
   End Sub
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        gd
()
 
   End Sub
    Private Sub btnsave_Click
(sender As ObjectAs EventArgsHandles btnsave.Click
        If txtname
.Text.Trim "" Then Exit Sub
        Dim row 
As DataRow dt.NewRow
        row
(1) = txtname.Text
        row
(2) = txtdate.Value.ToShortDateString
        dt
.Rows.Add(row)
 
       da.Update(dt)
 
       gd()
 
   End Sub
End 
Class 

لا بد من كون تقويم نظام التشغيل وبرنامج قاعدة البيانات واحد حتى لا تحدث مشاكل.


الملفات المرفقة
.zip   SaveDateTbAccessdb.zip (الحجم : 31.21 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة: غدير الصليحي
#5
(23-11-21, 07:48 AM)سعود كتب :
PHP كود :
Public Class Form1
    Dim dbpath 
As String IO.Path.GetDirectoryName(Application.ExecutablePath)
 
   Dim str As String "provider=microsoft.ace.oledb.12.0;data source=" dbpath "\db.accdb"
 
   Dim con As New OleDb.OleDbConnection(str)
 
   Dim dt As New DataTable
    Dim da 
As New OleDb.OleDbDataAdapter("select * from tb"con)
 
   Dim cm As New OleDb.OleDbCommandBuilder(da)
 
   Private Sub gd()
 
       dgv.DataSource Nothing
        dgv
.Rows.Clear()
 
       dt.Clear()
 
       da.Fill(dt)
 
       dgv.DataSource dt
        dgv
.Columns(0).Visible False
        dgv
.Columns(1).Width 222
        dgv
.Columns(2).Width 222
        dgv
.Columns(1).HeaderText "الاسم"
 
       dgv.Columns(2).HeaderText "التاريخ"
 
   End Sub
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        gd
()
 
   End Sub
    Private Sub btnsave_Click
(sender As ObjectAs EventArgsHandles btnsave.Click
        If txtname
.Text.Trim "" Then Exit Sub
        Dim row 
As DataRow dt.NewRow
        row
(1) = txtname.Text
        row
(2) = txtdate.Value.ToShortDateString
        dt
.Rows.Add(row)
 
       da.Update(dt)
 
       gd()
 
   End Sub
End 
Class 

لا بد من كون تقويم نظام التشغيل وبرنامج قاعدة البيانات واحد حتى لا تحدث مشاكل.

مشكور اخي سعود فعلا كان تنسق التاريخ في الجهاز مختلف
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم اريد روابط متاجر الكترونية لمتاجر ملابس مع السورس للمتجر مرام العتيبي 0 113 08-01-22, 03:18 PM
آخر رد: مرام العتيبي
  [سؤال] كيف اربط تاريخ موجود فى قاعدة البيانات ب أداة month calendar genral 0 182 20-12-21, 05:10 PM
آخر رد: genral
  اريد عمل استعلام الكود يعمل على SQL server اريد يعمل على vb.net new_programer 17 754 17-12-21, 04:41 AM
آخر رد: new_programer
  جمع جداول في الاكسس نيمو 0 143 16-12-21, 05:58 PM
آخر رد: نيمو
  اريد المساعد ضروري abdalaziz224 2 321 12-12-21, 10:56 PM
آخر رد: سعود
  سؤال عن تاريخ اليوم seif mohamed 2 287 05-12-21, 05:39 AM
آخر رد: seif mohamed
  اريد تعديل الكود ليعمل على صف فى داتا جريد new_programer 14 806 30-11-21, 07:26 AM
آخر رد: E100
  اريد كود نفس هذا الكود للاكسس غدير الصليحي 4 432 28-11-21, 11:29 PM
آخر رد: غدير الصليحي
  اريد كود الكتابة في ملف txt في مكان محدد العواجي 1 532 28-11-21, 08:13 PM
آخر رد: سعود
  اريد كود فيجوال نت يقرأ ملف pdf فيه رسومات samira20 0 292 27-11-21, 10:08 AM
آخر رد: samira20

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


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