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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تاريخ صلاحية المنتج mohamedassim 2 128 10-08-22, 02:18 PM
آخر رد: mohamedassim
  كود البحث عن اكبر تاريخ في قاعدة بيانات اكسس hatem555 3 211 25-07-22, 12:11 PM
آخر رد: سعود
  [VB.NET] رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم jam3h 5 890 06-07-22, 12:02 AM
آخر رد: jam3h
  كود اضافة اسبوع على تاريخ معين Lathe1 5 536 18-06-22, 10:59 AM
آخر رد: Lathe1
  [VB.NET] اريد كود يحسب من 1 الى 100 في تاكستبوكس bilgacim 4 340 14-06-22, 07:32 PM
آخر رد: أبو خالد الشكري
  اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى حماده ممدوح البحيرى 9 637 16-05-22, 12:56 PM
آخر رد: سعود
  المساعدة في بناء جملة استعلام لمعرفة رصيد الموظف في تاريخ معين strongriseman 7 652 09-05-22, 02:00 AM
آخر رد: ابو انس
  اريد صنع برنامج قراّن كريم sascoxat 10 1,276 04-04-22, 03:00 AM
آخر رد: sascoxat
  [VB.NET] اريد مساعدة في كود التحقق من البيانات في قاعدة اكسس Safwan_Daw 2 847 22-03-22, 12:39 AM
آخر رد: Safwan_Daw
  السلام عليكم عندي ثلاث Button اريد عند اخفاء ال Button2 يتم ترحيل Button1 معButton3 ahmedhhh2 4 690 05-03-22, 01:18 PM
آخر رد: ahmedhhh2

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


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