ADO.ADDNEW

[kovan]

Private Sub LogUser(UsrName As String)
SQL = "SELECT UserName FROM LoggedUsers WHERE UserName = " & "'" & UsrName & "'"
CheckUserRecord.Close
CheckUserRecord.Open SQL, MeterInfo
With CheckUserRecord
If .EOF Then
.AddNew
!UserName = UsrName
.Update
End If
.Close
End With
End Sub


gives me error
"object or provider is not capable of performing the operation"

damn ADO... dao was easier :)

[Stevie]

Try this ...


Private Sub LogUser(UsrName As String)

SQL = "SELECT UserName FROM LoggedUsers WHERE UserName = '" & UsrName & "'"

CheckUserRecord.Open SQL, MeterInfo

If CheckUserRecord.EOF Then

CheckUserRecord.Close

CheckUserRecord.CursorType = adOpenKeyset
CheckUserRecord.Open "LoggedUsers", MeterInfo, , , adCmdTable

CheckUserRecord.AddNew

CheckUserRecord!UserName = UsrName

CheckUserRecord.Update

End If

CheckUserRecord.Close

End Sub

[Bill Crawley]

Hi there,

Before opening the connection ensure you have set the ado locktype and cursortype properties, since by default the go to read only. You can also test using the 'supports' property to check if updating is allowed.

[kovan]

Private Sub LogUser(UsrName As String)
SQL = "SELECT UserName FROM LoggedUsers WHERE UserName = " & "'" & UsrName & "'"
CheckUserRecord.Close
CheckUserRecord.Open SQL, MeterInfo
With CheckUserRecord
If .EOF Then
.Close
.CursorType = adOpenKeyset
.Open "LoggedUsers", MeterInfo, , , adCmdTable
.AddNew
!UserName = UsrName
.Update
End If
.Close
End With
End Sub

[Stevie]

That works for me except I also have the line


CheckUserRecord.LockType = adLockOptimistic


just after


CheckUserRecord.CursorType = adOpenKeyset

[kovan]

i been waiting for a reply.. maybe 25 min
then am like "grr got to figure this out on my own"

i did
came back
and boom stevie said same thing as i did

thanks for all the help guyz