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