DAO problem...

[MidgetsBro]

I posted this in General VB, but I'll post it here too.

I am having problems with DAO. I have this same code in a different project, and it works fine, but I am trying to use the same code in a different program to open a table and get info out of it.
OK this code works fine, to get an item out of the table:

Set db = OpenDatabase("C:\Windows\Desktop\inventory.mdb")
strSQL = "SELECT * FROM Current WHERE ID = " & txtID.Text 
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
If rs.RecordCount > 0 Then
    'Text1.Text = rs!ItemNo & "" 'substitute real field names
    buff = rs!Price '& ""
    lstReceipt.AddItem buff
    txtID.Text = ""
Else
    MsgBox "No Match found for that ID.", vbCritical
End If
rs.Close
db.Close

But then I use this code to get info out of a different database and table:

Private Sub cmdLogin_Click()
Uname = txtUsername.Text
Pword = txtPassword.Text
Set db = OpenDatabase("C:\Windows\Desktop\users.mdb")
MsgBox "got here"
strSQL = "SELECT * FROM usertable WHERE Username = " & Uname
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
If rs.RecordCount = 0 Then MsgBox "No user by the name " & Uname & ". Please check the name you entered.", vbInformation: Exit Sub
TestPass = rs!Password
If TestPass = Pword Then MsgBox "Correct password!"
rs.Close
db.Close
End Sub

and I get an error with the dbOpenDynaset variable. It says somthing about Too few parameters, expected 1. So I change dbOpenDynaset to a 1, and it gets an error opening the table. This is frustrating! Just incase you are wondering, I HAVE added a reference to the ADO library, just like in the other project, and I have declared all my variables... I just don't want to post all the code.

Please don't mention ADO, cause I have had so many f**king problem with ADO, it's not even funny.

Thanks in advance
-Joey

[Beacon]

Hold up you referenced ADO but your using DAO code??

I wont mention ado!! Yet anyway!

[Beacon]

ANyways try this sunshine!

Private Sub cmdLogin_Click()
Uname = txtUsername.Text
Pword = txtPassword.Text
Set db = OpenDatabase("C:\Windows\Desktop\users.mdb")
MsgBox "got here"
strSQL = "Select * FROM usertable Where usertable.[Username] =""" & Uname & """;"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
If rs.RecordCount = 0 Then MsgBox "No user by the name " & Uname & ". Please check the name you entered.", vbInformation: Exit Sub
TestPass = rs!Password
If TestPass = Pword Then MsgBox "Correct password!"
rs.Close
db.Close
End Sub

[MidgetsBro]

OOPS! I meant DAO... I hate databases, and I don't really want to learn them, but I have to if I want a decent job with VB or programming in general. I'll try that and see if it works.

Thanks Beacon

[MidgetsBro]

Thanks Beacon. That worked exactly like I wanted it to. You are da man.

[Beacon]

Hey whats wrong with db's? Easy to use, efficient etc etc.

No probs joey anytime!
Have fun!!
later
b