Dear Admin,
Dear Admin,
i copied ur code for adding record in database. i've a strange situation, the code works fine, and i've no eny errors but as i run my app and add new record. i've no any error but for checking my record i open my table, i dont see my record. where i can b wrong? heres my code
- Private Sub NewPasswordTextBox_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewPasswordTextBox.Enter
- OleDbConnection1.Open()
- cb = New OleDbCommand("select * from Administrator", OleDbConnection1)
- dr = cb.ExecuteReader()
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- If OldPasswordTextBox.Text.Equals(NewPasswordTextBox.Text) Then
- If OldPassword.Text.Equals("Old Password") Then
- While dr.Read
- If Username2TextBox.Text.Equals(dr("UserName").ToString) Then
- Dim dt As DataTable = ds.Tables("Administrator")
- dt.Rows(0)("Password") = NewPasswordTextBox.Text
- End If
- End While
- ElseIf OldPassword.Text.Equals("Password") Then
- Dim dt As DataTable = ds.Tables("Administrator")
- Dim dr = dt.NewRow
- Dim bm = Me.BindingContext(dt)
- dr.Item("UserName") = Username2TextBox.Text
- dr.Item("Password") = NewPasswordTextBox.Text
- OleDbDataAdapter1.Fill(ds, "Administrator")
- dt = ds.Tables("Administrator")
- dt.Rows.Add(dr)
- dt.AcceptChanges()
- OleDbDataAdapter1.Update(dt)
- End If
- End If
- OleDbConnection1.Close()
- End Sub
- <vb>