Data type mismatch

I have an error Data type mismatch in criteria expression when I run the application. Below are my codes.

Quote:

---

Private Shared mdbPath As String = Application.StartupPath & "\Scholarship.mdb"

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath
Dim strSQL As String
Dim rdrEdu As OleDbDataReader
Dim cn As New OleDbConnection(strConn)

cn.Open()
strSQL = "SELECT SSN, Status, HghSchoolGPA, ACT, SAT," & _
"TotalCredits, GPALstSemester, GPACumulative, Rank " & _
"FROM Education WHERE Education.SSN=" & "'" & intSSN & "'"

Dim cmdSQL As New OleDbCommand(strSQL, cn)

Try
rdrEdu = cmdSQL.ExecuteReader
Catch dbException As System.Data.OleDb.OleDbException
MessageBox.Show(dbException.Message)
End Try

---

Please help.

Many thanks in advance.

Chong

If Education.SSN is a numeric filed then omit 's from Education.SSN=" & "'" & intSSN & "'" and let it be :
Education.SSN=" & intSSN

Thanks for trying to help me.

Yes, the Education.SSN is a number. I did remove the quote around intSSN and here's the error I get:

No value given for one or more required parameters.

Thanks!

Chong

check to see if you have spelled all the fields correctly. For example HghSchoolGPA seems to be HighSchoolGPA.

Thanks! Yes, I did misspelled a word. However, because I have changed my SQL query to contain two tables, can I do the following:

Quote:

---

Dim strHolder as String

strHolder = "SSN: " & CInt(rdr("Education.SSN")) & " " & rdr("Personal.FstName") & " " & rdr("Personal.MdlName") & " " & rdr("Personal.LstName") & vbCrLf & _
rdr("Personal.Address") & " " & rdr("Personal.StoutCity") & " " & rdr("Personal.StoutState") & " " & rdr("Personal.StoutZip") & vbCrLf & _
"Phone: " & rdr("Personal.StoutPhone") & vbCrLf & _
"Class Standing: " & rdr("Education.Status")

---

to get the contents out of the tables?

Thanks

I guess you can do it.
There is only one point in your code, that i think its not neccessary, and that is:
CInt(rdr("Education.SSN"))

simply use rdr("Education.SSN") and if you want to change type then it should be CStr(rdr("Education.SSN")) as that filed is a number.

I get the following error:

No data exists for the row/column.

Thanks!

Chong

The error says all. Check your SQL statement and see if you are returning proper fields.

How would I check to see if I'm returning any value?

Chong

Send parts of your code.

I have simplified my code to this:

Quote:

---

Private Shared mdbPath As String = Application.StartupPath & "\Scholarship.mdb"

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath
Dim strSQL As String
Dim rdr As OleDbDataReader
Dim cn As New OleDbConnection(strConn)

cn.Open()
strSQL = "SELECT Education.SSN, Education.Status FROM Education WHERE Education.SSN=" & intSSN
Dim cmdSQL As New OleDbCommand(strSQL, cn)
Try
rdr = cmdSQL.ExecuteReader
Catch dbException As System.Data.OleDb.OleDbException
MessageBox.Show(dbException.Message)
End Try

Try
schlrHolder = rdr("SSN")
Catch dbException As Exception
MessageBox.Show(dbException.Message)
End Try
rdr.Close()

---

By I still received the same error, "No data exists for the row/column."

Does this simplifed code throw error? If not send the orginal.

Yes, this simplied version throw an error too. And the error as the same which is "No data exists for the row/column."

Thanks for helping. I'm greatly appreciated!

Chong

Its because you have not called the rdr.Read Method before trying to read the data. Remember to close the datareader when done with it.