[asemshahen5]

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       insert_new_row(Me.TextBox1.Text, Me.TextBox2.Text)
   End Sub
   Public Sub insert_new_row(ByVal id As Int32, ByVal datebirth As Date)
       Dim Cmd As New OleDbCommand
       With Cmd
           Cmd.Connection = Conne
           Cmd.CommandType = CommandType.Text

           Cmd.CommandText = "insert into table1 ( field_id , field_birth ) values ( @field_id , @field_birth )"
           Cmd.Parameters.Clear()
           Cmd.Parameters.AddWithValue("@field_id", OleDbType.Integer).Value = id
           Cmd.Parameters.AddWithValue("@field_birth", OleDbType.Date).Value = CDate(datebirth)
        End With
       Try
           If Conne.State = 1 Then Conne.Close()
           Conne.Open()

           Cmd.ExecuteNonQuery()
           Conne.Close()
       Catch ex As Exception
           Conne_2020.Close()
           MsgBox(Err.Description, MsgBoxStyle.Information)
       Finally
       End Try
   End Sub