تقييم الموضوع :
  • 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 ك ب / التحميلات : 5)
الرد
تم الشكر بواسطة: غدير الصليحي
#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 

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

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



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


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