VB2008 code:
Private Sub btnNewUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewUser.Click
Dim NewUser = Me.UsersTableAdapter.NewUserString(txtUsername.Text, txtPassword.Text)
UsersTableAdapter.Fill(Me.dsUsers.Users)
txtUsername.Clear()
txtPassword.Clear()
MsgBox("username and password accepted, now please log in")
End Sub
SQL INSERT statement
INSERT INTO Users
(Username, [Password])
VALUES (?, ?)

New Topic/Question
Reply




MultiQuote




|