"run-time error '13'. Type mismatch"

Question

1.00/5 (1 vote)

See more:

Ii've got a funtion UserLoginTime as below. The structure of my userlog table datatype varchar(50) for Username field and datatype datetime for Logintime field. Problem is the following line of code gives me an error at runtime "run-time error '13'. Type mismatch, " Any help where the problem could be. Am not very savvy in vb.

VB

Function UserLoginTime(Username As String, LoginTime As Date) As Integer
If Rs.State = adStateOpen Then Rs.Close
    sql = " Select * From Userlog"
   Rs.Open sql, RSconn
    With Rs
        .AddNew
        !Username = Username
        !LoginTime = LoginTime
        .Update
   End With
   UserLoginTime = Rs(0).Value

Posted 12-Apr-13 7:09am

Aleu Philip

Updated 12-Apr-13 7:13am

CHill60

v2

Add a Solution

Comments

CHill60 12-Apr-13 13:13pm

When you step through the code with the debugger which line is it precisely that is giving you the error?

Aleu Philip 12-Apr-13 13:15pm

line 11 userLogintime = Rs(0).Value gives the error

CHill60 12-Apr-13 13:20pm

Ok .. you've used Select * From Userlog. Try explicitly naming the columns you want returned instead of using "*" - obviously with the LoginTime as the first column :-)

Aleu Philip 12-Apr-13 13:26pm

worked like a baby! thanks man.

Sergey Alexandrovich Kryukov 12-Apr-13 13:30pm

I hope you understand why did I delete your "answer" which you even accepted formally. Why?
—SA

Aleu Philip 12-Apr-13 13:32pm

I dont..would be pleased to

well i do..am not the author..thanks man.

Sergey Alexandrovich Kryukov 12-Apr-13 15:34pm

Sorry for possible miscommunication…

[no name] 12-Apr-13 13:28pm

You are trying to return a datetime from your function as an integer.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2013-04-12T11:10:00

You can't insert into Recordset until, you add new record!!!

See this: http://msdn.microsoft.com/en-us/library/windows/desktop/ms680885%28v=vs.85%29.aspx[^]

VB

rstEmployees.AddNew
rstEmployees!firstname = strFirstName
rstEmployees!LastName = strLastName
rstEmployees.Update

But remember, you need to open Recordset[^] with adLockOptimistic LockType[^].