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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] ابغي اغير من الاكسس الى الفيجول بيزك أبوعبدالعزيز 2 70 27-03-24, 09:56 PM
آخر رد: أبوعبدالعزيز
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 432 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 360 08-11-23, 08:16 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 909 11-10-23, 10:35 PM
آخر رد: aljzazy
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 1 348 01-09-23, 07:13 AM
آخر رد: Asem2

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


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