log in system with visual basic and access

Question

1.00/5 (1 vote)

See more:

hello i would like to ask.
can anyone correct this code for me??

VB

cm.CommandText = "SELECT * FROM Table1 WHERE uname='" & TextBox1.Text & "' AND pword='" & TextBox2.Text & "';"
        cm.Connection = cn
        adap.SelectCommand = cm
        Dim ds As New DataSet
        adap.Fill(ds, "0")
        Dim count = DataSet.Tables(0).Rows.Count
        If count > 0 Then
            MsgBox("Login Successfull", MsgBoxStyle.Information, "Login Passed")
        Else
            MsgBox("Invalid Account", MsgBoxStyle.Critical, "Login Failed")
            TextBox1.Clear()
            TextBox2.Clear()
        End If

i found that
Dim count = DataSet.Tables(0).Rows.Count
got error on 'tables(0)'
cause i m not using sql.. :(
help me pls..
thx

Posted 8-Apr-13 18:01pm

arnoldxx

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

User 5887254 · Accepted Answer · 2013-04-12T04:04:00

Solution 1

arnoldxx, looks like just a minor adjustment will get your code to work. DataSet is a Type and therefore not the actual target you are filling with the adapter.

VB

Dim count = DataSet.Tables(0).Rows.Count

Should be...

VB

Dim count = ds.Tables(0).Rows.Count

Posted 12-Apr-13 4:04am

User 5887254