ADO.ADDNEW

Code:

---

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 :)

Try this ...

Code:

---

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

---

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.

Code:

---

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

---

That works for me except I also have the line

Code:

---

CheckUserRecord.LockType = adLockOptimistic

---

just after

Code:

---

CheckUserRecord.CursorType = adOpenKeyset

---

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