No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
|
[code]Dim cmd As OleDbCommand = New OleDbCommand("SELECT username,password FROM tblUsers where username=? and password=?", conn) Dim usernameParam As New OleDbParameter("@username", Me.txtUsername.Text) Dim passwordParam As New OleDbParameter("@password", Me.txtPass.Text) cmd.Parameters.Add(usernameParam) cmd.Parameters.Add(passwordParam) Try connectDatabase() Dim read As OleDbDataReader = cmd.ExecuteReader() If read.HasRows Then read.Read() If txtUsername.Text = read.Item("username").ToString And txtPass.Text = read.Item("password").ToString Then … 
|
|
|
myqry = "UPDATE tblReceive SET " myqry = myqry + " ProductName = '" & txtProd.Text & "'," myqry = myqry + "' Quantity= " & txtQuan.Text & "'," myqry = myqry + " Quantity Unit= '" & ComboBox3.SelectedItem & "'," myqry = myqry + " Category = '" & … 
|