23-06-13, 01:44 AM
السلام عليكم ورحمة الله وبركاته
بشكل سريع...
PHP كود :
Public Class Form1
Public cnn As New OleDb.OleDbConnection("Provider=Microsoft.Ace.Oledb.12.0; Data Source=" & Application.StartupPath & "\Directoryphone.accdb")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.RefreshData()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Val(Me.TextBox1.Text) = 0 Then
Dim sql As String
sql = " INSERT INTO [Names] ( [Name], [Number], [Address] ) " & _
" VALUES ( @Name, @Number, @Address ) "
Dim cmd As New OleDb.OleDbCommand(sql, cnn)
cmd.Parameters.AddWithValue("@Name ", Me.TextBox2.Text)
cmd.Parameters.AddWithValue("@Number ", Me.TextBox3.Text)
cmd.Parameters.AddWithValue("@Address ", Me.TextBox4.Text)
cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()
Else
Dim sql As String
sql = " UPDATE [Names] " & _
" " & _
" SET [Name] = @Name, " & _
" [Number] = @Number, " & _
" [Address] = @Address " & _
" " & _
" WHERE [sr] = @sr "
Dim cmd As New OleDb.OleDbCommand(sql, cnn)
cmd.Parameters.AddWithValue("@Name ", Me.TextBox2.Text)
cmd.Parameters.AddWithValue("@Number ", Me.TextBox3.Text)
cmd.Parameters.AddWithValue("@Address ", Me.TextBox4.Text)
cmd.Parameters.AddWithValue("@sr ", Me.TextBox1.Text)
cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()
End If
RefreshData()
End Sub
Private Sub RefreshData()
Dim sql As String
sql = " SELECT * " & _
" FROM [Names] " & _
" ORDER BY [sr] "
Dim da As New OleDb.OleDbDataAdapter(sql, cnn)
Dim dt As New DataTable
da.Fill(dt)
Me.DataGridView1.DataSource = dt
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
End Class
السلام عليكم ورحمة الله وبركاته