can not lo gon

[misspn]

i am running an application that use vb in conjuction with sql
using the following code to log on will give me the following error:
runtime error 2147220999 (800401f9) method of object connection current project failed pointing to the following error:
rs.Open str_sel, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

i used the following code:

Option Compare Database
 
Private Sub ACCEPT_Click()
Dim ls_username, ls_username_1, ls_password, ls_password_1  As String
Dim str_sel As String
Dim rs As Recordset
Dim rs_count As Integer
ls_username = Me.User_name.Value
ls_password = Me.password.Value
 
 
 
str_sel = "SELECT * FROM USERS WHERE [USERNAME] = '" & ls_username & "';"
If IsNull(ls_username) Then
MsgBox "Please enter username", vbInformation, "Payroll Logon"
Else
Set rs = New ADODB.Recordset
rs.Open str_sel, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
rs_count = rs.RecordCount
If rs_count < 1 Then
MsgBox "Username Does not exist", vbCritical, "Payroll Logon"
Else
ls_password_1 = rs!password
If ls_password_1 <> ls_password Or IsNull(ls_password) Then
MsgBox "Please Enter Correct Password ", vbCritical, "Payroll Logon"
Else
gsusername = rs!Username
gsprofile = rs!Profile
gl_Full_name = rs!Full_name
DoCmd.Close
End If
End If
DoCmd.OpenForm "main", acNormal
End If
 
End Sub

[iburyak]

It looks like your ODBC drivers don't work.
To test it, try to create DSN to your server and at the end it has option to test connection. If it doesn't work you probably need to update\restore your ODBC drivers.
Usually helps to install latest MDAC from Microsoft.


Thank you.

[misspn]

It looks like your ODBC drivers don't work.
To test it, try to create DSN to your server and at the end it has option to test connection. If it doesn't work you probably need to update\restore your ODBC drivers.
Usually helps to install latest MDAC from Microsoft.


Thank you.

i have already tested and connection is successfull
im have also installed Mdac 2.8 but it doesnt work

[pr0grammer]

you need to connect to the database first before trying to get a result set into the recordset.

dim con as new adodb.connection
dim rs as adodb.recordset
.
.
.
' using a DSNless connection, connect to the database
con.open "Provider=SQLOLEDB.1;Password=p@55w0rd;Persist Security Info=True;User ID=UserName;Initial Catalog=DatabaseName;Data Source=ServerName"

'' given your previous assisgnment to str_sel, you can use....
rs = con.execute(str_sel)

although I have come to find out the adodb 2.8 class does not return a correct value in the recordcount method.

you may need to iterate through the recordset manually to get a correct count of records returned.

[misspn]

have tried the code but still no change
itsa still gives me the same error

[iburyak]

Did you check in project - references ADO?

Show your code now.

[Killer42]

The following was sent by msspn, apparently by hitting the Report button instead of Reply (hey people, ya gotta watch that)...

i have managed to solve the problem. i upgraded my operating system using Windows XP SP1
that was al i did