I can help - delete the code below and start again, paying attention to things like SQL injection.
Also please don't use access! On Tue, Apr 5, 2011 at 9:11 PM, Adarsh Shiragannavar <[email protected]>wrote: > the following is the code for login using database... but this takes > only the first value (ID=1 in ms access) > can u plz help me?? > > > Public Class LoginForm1 > > Dim inc As Integer > Dim MaxRows As Integer > Dim con As New OleDb.OleDbConnection > Dim ds As New DataSet > Dim da As OleDb.OleDbDataAdapter > Dim sql As String > > Private Property cmd As Object > > Private Sub OK_Click(ByVal sender As System.Object, ByVal e As > System.EventArgs) Handles OK.Click > con.ConnectionString = "PROVIDER=Microsoft.JET.OLEDB.4.0;Data > Source = D:\Userpassword.mdb" > con.Open() > Dim sql As String > > Dim dr As OleDb.OleDbDataReader > sql = ("SELECT UserName,Password from userpass Where > [UserName]='" & Trim(UsernameTextBox.Text) & "'And [Password]='" & > Trim(PasswordTextBox.Text) & "'") > cmd = New OleDb.OleDbCommand(sql, con) > dr = cmd.Executereader() > > If (dr.HasRows) = False Then Exit Sub > > > While (dr.read()) > If (UsernameTextBox.Text) = dr(0).ToString() And > (PasswordTextBox.Text) = dr(1).ToString() Then > > MsgBox("Thank You... You are logged in as " + > UsernameTextBox.Text) > Else > MsgBox("Please Enter your details correctly") > UsernameTextBox.Text = "" > PasswordTextBox.Text = "" > End If > End While > > dr.close() > cmd = Nothing > con.close() > End Sub > > Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As > System.EventArgs) Handles Cancel.Click > Me.Close() > End Sub > > End Class > > -- > You received this message because you are subscribed to the Google > Groups "DotNetDevelopment, VB.NET, C# .NET, ADO.NET, ASP.NET, XML, XML > Web Services,.NET Remoting" group. > To post to this group, send email to [email protected] > To unsubscribe from this group, send email to > [email protected] > For more options, visit this group at > http://groups.google.com/group/dotnetdevelopment?hl=en?hl=en > or visit the group website at http://megasolutions.net > -- You received this message because you are subscribed to the Google Groups "DotNetDevelopment, VB.NET, C# .NET, ADO.NET, ASP.NET, XML, XML Web Services,.NET Remoting" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/dotnetdevelopment?hl=en?hl=en or visit the group website at http://megasolutions.net
