[غدير الصليحي]

كيف احفظ تاريخ بدون الوقت من ادة DateTimePicker في فجول الى الاكسس اريدها بتنسيق  يوم شهر سنة

[عبد العزيز البسكري]

Format(DateTimePicker1.Value, "yyyy-MM-dd")

[غدير الصليحي]

(22-11-21, 10:52 PM)عبد العزيز البسكري كتب :

Format(DateTimePicker1.Value, "yyyy-MM-dd")

29/06/1894
يحفظ بطريقه هذه
لا ياخذ التاريخ الحقيقي الذي اريدة

[سعود]

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 Object, e As EventArgs) Handles MyBase.Load
        gd()
    End Sub
    Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles 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 


---

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

[غدير الصليحي]

(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 Object, e As EventArgs) Handles MyBase.Load
        gd()
    End Sub
    Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles 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 


---

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

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