Error 3421: "Data Type Conversion Error.

[gilsygirl]

Hi Guys

Season greetings to everyone.

Does anyone have an idea to this error message.

Thanks
gilsygirl

[debasisdas]

that simply means the target variable and the content does not match.

[gilsygirl]

that simply means the target variable and the content does not match.

Hi thanks for the reply. how do i treat a text variable define as string. cos that is all i have done. but the error keeps coming from my sql statement.
Is there any other suggestion u have.

thanks

[debasisdas]

Hi thanks for the reply. how do i treat a text variable define as string. cos that is all i have done. but the error keeps coming from my sql statement.
Is there any other suggestion u have.

thanks

Kindly post what exactly youare trying to do and also the SQL statment that you are trying to execute.

[Killer42]

Ignore me. I'm just registering an interest in this thread so I can tell when new messages are posted.

[gilsygirl]

Kindly post what exactly youare trying to do and also the SQL statment that you are trying to execute.

Thanks for the reply

I am trying to extra a record from a database using a combination of 3 of the fields in the database as a key. So i am querying them in an Sqlstmt variable use as the recordset. the fields in the database are define as text and in the vb form the variable agruments are define as string.

So when i enter the variables on the form a second form should load displaying a record base on the variables passed provided it is in the database.

this my code

Public Function initdb()
On Error GoTo error
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("c:\resultchecker.mdb")
Set rs = db.OpenRecordset("candres", dbOpenTable, dbReadOnly)
Set rs1 = db.OpenRecordset("subject", dbOpenTable, dbReadOnly)
 
Exit Function
End Function
 
Sub cmdCheck_click()
 
Dim Exam_Sr As String
Dim Exam_Yr As String
Dim Cand_No As String
Dim CentNo As String
 
If rs.RecordCount = 0 Then Exit Sub
   rs.MoveFirst
For i = 1 To rs.RecordCount ' Read all the records from database
 
sqlStmt = "select * From candres where ExamSeries='" & Exam_Sr & "'and ExamYear='" & Exam_Yr & "'and CentNo='" & Cand_No & "'"
    rs.OpenRecordset sqlStmt, db
 
If Not (rs.EOF) Then
       frmCandResult.Show vbModal, Me
    Else
        MsgBox "sorry not a perfect match"
    End If
 
CentNo = rs("CentNo")
Cand_No = rs("IndexNo")
Sex = rs("Sex")   
 
 frmListing.Cent_No.Caption = rs("CentNo")
   frmListing.Cand_No.Caption = rs("IndexNo")
   frmListing.Cnd_Name.Caption = rs("CandName")
 
    frmListing.Show vbModal, Me
       rs.MoveNext
       Next i
End Sub

[debasisdas]

1. Which line of code is creating the error ?
2. Why using a function with out any out type and nothing to return ?
3. Why opening the same recordset twice from two different sources ?
4. You have never called the function in the click event.
5. Try to use ADO code , that is much more flexible.

[Killer42]

My guess is that the CentNo field is numeric. If you have a close look at line 22 of the code, you'll see that it is being compared to variable Cand_No, delimited by quotes. This may be the source of the problem.

[gilsygirl]

1. Which line of code is creating the error ?
2. Why using a function with out any out type and nothing to return ?
3. Why opening the same recordset twice from two different sources ?
4. You have never called the function in the click event.
5. Try to use ADO code , that is much more flexible.

Thanks for the reply. I have been able to solve the query. I was passing the values to a different form then the required form. The new query is in the SQL statement. It is only picking the first record in the database.

Now I want to know which function you are referring to and where I am opening the recordset twice.
Thanks for the help, really appreciated.
gilsygirl newbie

[gilsygirl]

My guess is that the CentNo field is numeric. If you have a close look at line 22 of the code, you'll see that it is being compared to variable Cand_No, delimited by quotes. This may be the source of the problem.

Thanks for the reply. I have been able to solve the query. My latest problem is the SQL statement. It is only picking the first record from the database.

This is the code:

If rs.RecordCount = 0 Then Exit Sub
rs.MoveFirst
For i = 1 To rs.RecordCount ' Read all the records from database
 
  sqlStmt = "select * From candres where ExamSeries='" & Exam_Sr & "'and ExamYear='" & Exam_Yr & "'and CentNo='" & Cand_No & "'"
  rs.OpenRecordset , sqlStmt
 
  If Not (rs.EOF) Then
    Call dispres
    ' frmListing.Show vbModal, Me
  Else
     MsgBox "sorry not a perfect match"
  End If
 

What is wrong with this code?

Thanks for help it's really appreciated.
gilsygirl newbie