[microsoft][odbc Microsoft Access Driver]

[longdong 0]

salam pada semua...harap dapat bantu saya...

tiap kali saya cuba search data,akan keluar msg mcm ni...

Run-time error'-2147217913 (80040e07)';

[Microsoft][ODBC Microsft Access Driver]Data type mismatch in criteria expression.

Apa maksudnya?

ini coding yang saya buat untuk search...

--------------------------------------

Private Sub cmdsearch_Click()

no = Val(InputBox("Enter your i/c"))

find

End Sub

Function find()

Dim rs1 As Recordset

Dim str1 As String

status = 1

Set rs1 = New Recordset

str1 = "SELECT * From mytable Where ID=" & no & ""

rs1.Open str1, cn, adOpenForwardOnly, adLockReadOnly

If Not rs1.EOF Then

stat = 1

txtno.Text = rs1("ID")

txtname.Text = rs1("NAME")

txtic.Text = rs1("IC")

txtaddress.Text = rs1("ADDRESS")

If rs1("RICE") = 1 Then

Check1.Value = 1

Else

Check1.Value = 0

End If

If rs1("MEAT") = 1 Then

Check2.Value = 1

Else

Check2.Value = 0

End If

If rs1("PAPAYA") = 1 Then

Check3.Value = 1

Else

Check3.Value = 0

End If

Else

MsgBox "No Info", vbInformation

End If

End Function

untuk pengetahuan semua,saya guna connection odbc driver untuk connect ke database access..

dia akan detect "rs1.Open str1, cn, adOpenForwardOnly, adLockReadOnly" sebagai salah tapi saya tak dapat kesan apa yang salah tu...harap kalau ada sapa2 yg tahu..dapat bantu saya......

terima kasih...

[Rads78 0]

str1 = "SELECT * From mytable Where ID=" & no & ""

cuba tukar kepada

str1 = "SELECT * From mytable Where ID='" & no & "'"

ngko declare field ID tuh sebagai apa? Varchar ker int? Kalau char / string jgn lupa letak pembuka dan penutup qoute.. kalau int takyah

Wassalam

Edit: aku rasa yang kat atas tuh tak clear

str1 = "SELECT * From mytable Where ID='" & no & "'"

= str1 = "SELECT * From mytable Where ID= single qoute + double qoute + ampersand + no + ampersand + double qoute + single qoute + double qoute

Harap yg nih lebih clear

Edited November 9, 2004 by Rads78

[longdong 0]

ok..tq Rads78

Selamat hari raya....