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