Блог

Это код. проблема заключается в перезаписи значений таблицы каждый раз, когда я запускаю код. Пожалуйста, дайте какое-нибудь решение

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox2.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
    MsgBox("Please fill the details")
Else
    Try

        Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|binhr.accdb;")
            conn.Open()

            Dim command As New OleDbCommand("insert into admin (uname,pwd) values (@uname, @pwd)", conn)

            With command.Parameters
                .AddWithValue("@uname", TextBox1.Text)
                .AddWithValue("@pwd", TextBox2.Text)

            End With

            command.ExecuteNonQuery()

            MessageBox.Show("Employee's Informations Successfuly Recorded!", "INFO", MessageBoxButtons.OK, MessageBoxIcon.Information)

            command.Dispose()
            conn.Close()

            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
        End Using
    Catch ex As Exception
        MessageBox.Show(ex.Message, "ERROR12", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End If