[moh61]

الله يوفقك يا ابوعمر جزيت خيرا يارب في مرحلة الاجتهاد جزاك الله خير وبالتوفيق لك ايضا ......... كيف راح يكون حقل التاريخ اخر حقل تاريخ اليوم لكل حقل باضافة حقل اخير بقاعدة البيانات save ابي اسوي اخر حقل يكون فيه التاريخ تبع اليوم قصاد كل حقل والله يعطيك العافية مشكور جدا ابوعمر

[أبو عمر]

طيب تابع الصور






  data.zip (الحجم : 313.64 ك ب / التحميلات : 43)
وصلى الله وسلم على سيدنا محمد وعلى آله وصحبه أجمعين

[moh61]

الله يعطيك العافية ولك الف شكر بارك الله فيك ابو عمر

---

انا ابغاه تاريخ فقط من غير الساعة ......................... مع اني حاولت عدلت بالكود ونقصت عدد الاستفهامات الى ثلاثة فقط على اساس انو يحفظ لي تاريخ فقط
وسويتها ذي كذا بس م زبطت معي .,.؟,؟

[أبو عمر]

الله يعافيك
العفو ما سويت لك شيء يذكر
الاستفهامات تمثل عدد الحقول ومالها دخل بالتاريخ
لاجل كتابة التاريخ دوت الوقت

PHP كود :

TextBox1.Text= Date.Now.ToString("dd/MM/yyyy") 


زي كذا كيف يعني؟
بارك الله فيك اضفت حقل في الجدول عشان تحفظ فيه التواريخ؟
ممكن نشوف محاولاتك في التعديل؟
رح لقاعدة البيانات واضف حقل جديد سمه
Dates
وانسخ كامل كود الفورم من هنا

PHP كود :

Imports System.Data.OleDb

Public Class Form1
    Public Cn As New OleDbConnection("provider=microsoft.Ace.oledb.12.0;data source=  " & Application.StartupPath & "\database.accdb")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataGridView1.ColumnCount = 3
        DataGridView1.Columns(0).Name = "Code"
        DataGridView1.Columns(1).Name = "Sciences"
        DataGridView1.Columns(2).Name = "Mathematics"
        Dim row As String() = New String() {"1", "5", "10"}
        DataGridView1.Rows.Add(row)
        row = New String() {"3", "20", "30"}
        DataGridView1.Rows.Add(row)
        DataGridView2.ColumnCount = 3
        DataGridView2.Columns(0).Name = "Code"
        DataGridView2.Columns(1).Name = "Programming"
        DataGridView2.Columns(2).Name = "computerscience"
        DataGridView2.Rows.Add(row)
        row = New String() {"2", "40", "30"}
        DataGridView2.Rows.Add(row)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DatabaseDataSet.SAVE1' table. You can move, or remove it, as needed.
        Me.SAVE1TableAdapter.Fill(Me.DatabaseDataSet.SAVE1)
        'TODO: This line of code loads data into the 'DatabaseDataSet.Reports1' table. You can move, or remove it, as needed.
        Me.Reports1TableAdapter.Fill(Me.DatabaseDataSet.Reports1)
    End Sub
    Private Sub Reports1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.Reports1BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DatabaseDataSet)
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        SAVE1DataGridView.DataSource = Nothing
        SAVE1DataGridView.ColumnCount = 8
        SAVE1DataGridView.Columns(7).Name = "Date"
        For i As Integer = 0 To Reports1DataGridView.Rows.Count - 2
            SAVE1DataGridView.Rows.Add(Reports1DataGridView.Rows(i).Cells(0).Value, Reports1DataGridView.Rows(i).Cells(1).Value,
Reports1DataGridView.Rows(i).Cells(2).Value
)
            For u As Integer = 0 To DataGridView1.Rows.Count - 2
                If Reports1DataGridView.Rows(i).Cells(0).Value = DataGridView1.Rows(u).Cells(0).Value Then
                    SAVE1DataGridView.Rows(i).Cells(4).Value = (DataGridView1.Rows(u).Cells(1).Value)
                    SAVE1DataGridView.Rows(i).Cells(3).Value = (DataGridView1.Rows(u).Cells(2).Value)
                End If
            Next

            For G As Integer = 0 To DataGridView1.Rows.Count - 2
                If Reports1DataGridView.Rows(i).Cells(0).Value = DataGridView2.Rows(G).Cells(0).Value Then
                    SAVE1DataGridView.Rows(i).Cells(5).Value = (DataGridView2.Rows(G).Cells(2).Value)
                    SAVE1DataGridView.Rows(i).Cells(6).Value = (DataGridView2.Rows(G).Cells(1).Value)
                End If
                ' here new column for viewing date
                SAVE1DataGridView.Rows(i).Cells(7).Value = Date.Now.ToString("dd/MM/yyyy")

                ' for saving it you need create new field in Table

            Next

        Next

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        For i As Integer = 0 To SAVE1DataGridView.Rows.Count - 2
            Dim Cmd As New OleDbCommand("Insert into SAVE(code,name,class,Mathematics,Sciences,computerscience,Programming,dates)values(?,?,?,?,?,?,?,?)", Cn)
            If Cn.State Then Cn.Close()
            Cn.Open()

            Cmd.Parameters.AddWithValue("@code", SAVE1DataGridView.Rows(i).Cells(0).Value)
            Cmd.Parameters.AddWithValue("@name", SAVE1DataGridView.Rows(i).Cells(1).Value)
            Cmd.Parameters.AddWithValue("@class", SAVE1DataGridView.Rows(i).Cells(2).Value)
            Cmd.Parameters.AddWithValue("@Mathematics", Val(SAVE1DataGridView.Rows(i).Cells(3).Value))
            Cmd.Parameters.AddWithValue("@Sciences", Val(SAVE1DataGridView.Rows(i).Cells(4).Value))
            Cmd.Parameters.AddWithValue("@computerscience", Val(SAVE1DataGridView.Rows(i).Cells(5).Value))
            Cmd.Parameters.AddWithValue("@Programming", Val(SAVE1DataGridView.Rows(i).Cells(6).Value))
            ' here you should write values to new filed in Table
            Cmd.Parameters.AddWithValue("@Dates", Val(SAVE1DataGridView.Rows(i).Cells(7).Value))
            Cmd.ExecuteNonQuery()
        Next
    End Sub
End Class 


واحذف جميع كود الفورم واعمل لصق
شغل المشروع وشوف
بالتوفيق

[moh61]

سويت لصق واضفت حقل جديد بمسمى DATE بقاعدة البيانات عندي بس ظهرت لي رسالة خطا مع انو الكود صحيح و الجدول والحق موجود بقاعدة البيانات اليك المثال مرفق شاهد الملف الملف المرفق

[أبو عمر]

بسألك عندما سميت الحقل date
في الاكسس ما جتك رسالة تفيدك ان هذا الاسم محجوز؟
في الكود كتبت لك Dates
على كل حال هذا المثال مرفق والله يوفقك

  Data.zip (الحجم : 313.72 ك ب / التحميلات : 34)

[moh61]

اها ايوا صح كلامك والله لانو انا عندي بمشروع خاص اخر دخلت اسم الحقل "Percent" وظهرت لي نفس المشكلة واحترت في الامر كل الكود صحيح بس يوم عدلتها المشروع نفذ على العموم الله يجزاك كل خير يا ابوعمر وربي يوفقك ان شاء الله

---

بس في مشكلتين :
الاولى : حفظ التواريخ خاطئ شاهد الصورة
الثانية : انا ما ابي اضيف حقل التواريخ من داخل البرنامج ابغاه يكون ظاهر زيو زي باقي الحقول الاخرى الحين عند النقر ب نقل بيانات بعدين يظهر معك حقل التواريخ
انا ابغاه ثابت لاني مستقبلات راح اعدل على اساس اني ابحث بتواريخ معينة عن طريق هذا الحقل والله يوفقك شوف الصور

[أبو عمر]

مرحبا
إلى هنا سيدي الفاضل أترك القيادة لك !!!
بالتوفيق.

[moh61]

مشكور تمت القيادة بنجاح ابوعمر سويت كل التعديلات لحالي بس باقي مشكلة التاريخ 1990 اتاكد من القيمة الافتراضية من قاعدة البيانات ونوع الحقل بالبرنامج و تاريخ الحاسب بالاخر مافي غير انو يحفظ تواريخ قديمة انا حابب اعرف المشكلة فقط شاهد الصور .

[أبو عمر]

(14-10-15, 09:03 AM)moh61 كتب : مشكور تمت القيادة بنجاح ابوعمر سويت كل التعديلات لحالي بس باقي مشكلة التاريخ 1990 اتاكد من القيمة الافتراضية من قاعدة البيانات ونوع الحقل بالبرنامج و تاريخ الحاسب بالاخر مافي غير انو يحفظ تواريخ قديمة انا حابب اعرف المشكلة فقط شاهد الصور .

من دواعي سروري أن أراك تقود أفكارك بنفسك وتنجز الحل بأناملك
المشكلة تكمن في كود حفظ الباراميترر الاخير dates
موضوع Value
شيلها فقط وأكرر ادرس الكود جيدا من اي أحد يقدم إليك يد العون
وتعلم جيداً ان لا تقول لمن ساعدك ذات يوم اخطأت أو مساعدتك خاطئة
فمن البديهي أن تكون المخطيء !!!
شاهد

عواقب النسخ واللصق غير مرضية ي المستقبل دون فهمت للكود المنسوخ او التعديل الجاهز !!!
تمنيت انك تتفادي غلطتي أنا عندما وضعت لك في الكود Value
بالتوفيق