[ahmedalans]

مثال بسيط وفيه كيفية اضافة وحذف السجلات من والى قاعدة البيانات 
وكذلك عرض السجلات بواسطة اداة الرض datagridview1
زلكن يتبقى لي مشكلة وهي عندما نقوم باضافة سجل الى قاعدة البيانات وحفظه 
سيتم الحفظ بنجاح ولكن عند كل عملية حفظ للسجل سيحتفظ  حقل التاريخ بنجاح ولكن انه يقوم بعكس الايام مع الشهور فمثلا 
قمنا بحفظ  سجل بتاريخ يوم 5 من الشهر الرابع ستكون صيغة التريخ بلشكل التالي
                              
                                                       2017\04\05  
ولكن نلاحظ انه تم حفظه في قاعدة البيانات مع العكس بين الايام والشور وسيكون في قاعدة البيانات بالشكل التالي
                           
                                                       2017\05\04
ارجو من الذي عنده الحل ان يعمل خير ويدلنا بالحل المناسب 

وشكرا   

[khodor1985]

السلام عليكم أخي العزيز ورحمة الله وبركاته
هذا يتعلق بتنسيق التاريخ في نظام التشغيل

[ahmedalans]

(07-05-17, 03:52 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
هذا يتعلق بتنسيق التاريخ في نظام التشغيل

اخي ارجو منك التوضيح قليلا
 التسيق عندي في الجهاز 
dd/MM/yyyy

[khodor1985]

   

[ahmedalans]

شكرا لكم اخوتي 
المشكلة عندي تظهر وذلك عندما يكون تاريخ تاريخ اليوم فقط اقل من 12 
مثال لو كان تاريخ اليوم اقل من 12 

08/05/2017

                                         ستحتفظ بهذا الشكل  

05/08/2017

ولو كان تاريخ اليوم اكثر من 12 

مثال                                                                                                         [b]18/05/2017[/b]

[b]                        ستحتفظ بهذا الشكل  [/b]

[b]                                                   [/b]

[b][b]                                                                                                                   [b]18/05/2017[/b][/b][/b]
[b][b][b]المشكلة فقط [/b][/b][/b][b][b][b] عندما يكون تاريخ اليوم اقل من 12 [/b][/b][/b]
[b][b][b]ارجو افادتي بالحل [/b][/b][/b]
[b][b][b] ولكم الاجر ان شاءالله[/b][/b][/b]

[mansoor]

PHP كود :

Imports System.Data.OleDb
Public Class Form1
    Dim ConStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\New Idea\Desktop\I-Mobile\WindowsApplication3\db.accdb"
    Private Conn As New OleDbConnection(ConStr)
    Dim sqls As String
    Dim rdr As OleDbDataReader
    Dim Cmd As OleDbCommand
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Using da As New OleDbDataAdapter("SELECT * FROM [emp]", Conn)
            Using dt As New DataTable
                da.Fill(dt)
                Me.DataGridView1.DataSource = dt
            End Using
        End Using
    
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim d As Date = Date.Now
        sqls = "Insert Into emp(num,name,phone,datefs)values(?, ?, ?, ?) "
        Cmd = New OleDbCommand(sqls, Conn)
        Cmd.Parameters.AddWithValue("@num", TextBox1.Text)
        Cmd.Parameters.AddWithValue("@name", TextBox2.Text)
        Cmd.Parameters.AddWithValue("@phone", TextBox3.Text)
        Cmd.Parameters.AddWithValue("@datefs", d.Date)

        Conn.Open()
        If Cmd.ExecuteNonQuery = 1 Then
            MsgBox("نجاح")
            Using da As New OleDbDataAdapter("SELECT * FROM [emp]", Conn)
                Using dt As New DataTable
                    da.Fill(dt)
                    Me.DataGridView1.DataSource = dt
                End Using
            End Using
        Else
            MsgBox("فشل")
        End If
        Conn.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim n As Integer = DataGridView1.CurrentRow.Cells(0).Value
        sqls = "DELETE FROM emp where num like " & n & ""
        Cmd = New OleDbCommand(sqls, Conn)
        Conn.Open()
        If Cmd.ExecuteNonQuery = 1 Then
            MsgBox("نجاح")
            Using da As New OleDbDataAdapter("SELECT * FROM [emp]", Conn)
                Using dt As New DataTable
                    da.Fill(dt)
                    Me.DataGridView1.DataSource = dt
                End Using
            End Using
        Else
            MsgBox("فشل")
        End If
        Conn.Close()
    End Sub

    Private Sub TextBox3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown, TextBox2.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim d As Date = Date.Now
            sqls = "Insert Into emp(num,name,phone,datefs)values(?, ?, ?, ?) "
            Cmd = New OleDbCommand(sqls, Conn)
            Cmd.Parameters.AddWithValue("@num", TextBox1.Text)
            Cmd.Parameters.AddWithValue("@name", TextBox2.Text)
            Cmd.Parameters.AddWithValue("@phone", TextBox3.Text)
            Cmd.Parameters.AddWithValue("@datefs", d.Date)

            Conn.Open()
            If Cmd.ExecuteNonQuery = 1 Then
                MsgBox("نجاح")
                Using da As New OleDbDataAdapter("SELECT * FROM [emp]", Conn)
                    Using dt As New DataTable
                        da.Fill(dt)
                        Me.DataGridView1.DataSource = dt
                    End Using
                End Using
            Else
                MsgBox("فشل")
            End If
            Conn.Close()
        End If
    End Sub

End Class 


[ahmedalans]

(08-05-17, 09:46 PM)mansoor كتب :

PHP كود :

Imports System.Data.OleDb
Public Class Form1
    Dim ConStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\New Idea\Desktop\I-Mobile\WindowsApplication3\db.accdb"
    Private Conn As New OleDbConnection(ConStr)
    Dim sqls As String
    Dim rdr As OleDbDataReader
    Dim Cmd As OleDbCommand
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Using da As New OleDbDataAdapter("SELECT * FROM [emp]", Conn)
            Using dt As New DataTable
                da.Fill(dt)
                Me.DataGridView1.DataSource = dt
            End Using
        End Using
    
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim d As Date = Date.Now
        sqls = "Insert Into emp(num,name,phone,datefs)values(?, ?, ?, ?) "
        Cmd = New OleDbCommand(sqls, Conn)
        Cmd.Parameters.AddWithValue("@num", TextBox1.Text)
        Cmd.Parameters.AddWithValue("@name", TextBox2.Text)
        Cmd.Parameters.AddWithValue("@phone", TextBox3.Text)
        Cmd.Parameters.AddWithValue("@datefs", d.Date)

        Conn.Open()
        If Cmd.ExecuteNonQuery = 1 Then
            MsgBox("نجاح")
            Using da As New OleDbDataAdapter("SELECT * FROM [emp]", Conn)
                Using dt As New DataTable
                    da.Fill(dt)
                    Me.DataGridView1.DataSource = dt
                End Using
            End Using
        Else
            MsgBox("فشل")
        End If
        Conn.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim n As Integer = DataGridView1.CurrentRow.Cells(0).Value
        sqls = "DELETE FROM emp where num like " & n & ""
        Cmd = New OleDbCommand(sqls, Conn)
        Conn.Open()
        If Cmd.ExecuteNonQuery = 1 Then
            MsgBox("نجاح")
            Using da As New OleDbDataAdapter("SELECT * FROM [emp]", Conn)
                Using dt As New DataTable
                    da.Fill(dt)
                    Me.DataGridView1.DataSource = dt
                End Using
            End Using
        Else
            MsgBox("فشل")
        End If
        Conn.Close()
    End Sub

    Private Sub TextBox3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown, TextBox2.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim d As Date = Date.Now
            sqls = "Insert Into emp(num,name,phone,datefs)values(?, ?, ?, ?) "
            Cmd = New OleDbCommand(sqls, Conn)
            Cmd.Parameters.AddWithValue("@num", TextBox1.Text)
            Cmd.Parameters.AddWithValue("@name", TextBox2.Text)
            Cmd.Parameters.AddWithValue("@phone", TextBox3.Text)
            Cmd.Parameters.AddWithValue("@datefs", d.Date)

            Conn.Open()
            If Cmd.ExecuteNonQuery = 1 Then
                MsgBox("نجاح")
                Using da As New OleDbDataAdapter("SELECT * FROM [emp]", Conn)
                    Using dt As New DataTable
                        da.Fill(dt)
                        Me.DataGridView1.DataSource = dt
                    End Using
                End Using
            Else
                MsgBox("فشل")
            End If
            Conn.Close()
        End If
    End Sub

End Class 


شكرا الف شكر