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

(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