myConnection.Open()
rtb_Address.Clear()
txt_Name.Clear()
Dim str As String
str = "SELECT * FROM table1 WHERE (cus_ID = '" & txt_ID.Text & "')"
Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
dr = cmd.ExecuteReader()
While dr.Read()
rtb_Address.Text = dr("cus_Addr").ToString
txt_Name.Text = dr("cus_Name").ToString
End While
myConnection.Close()
錯誤DR = cmd.ExecuteReader()數據類型不匹配
博士被聲明爲OleDbDataReader
「數據類型不匹配。」是一個包羅萬象的錯誤 - 讀SQL語法錯誤。可能cus_ID是數字,比較文本不是數字。一些後端容忍引用數字文本 - 如果你不只是不插入引號。 – rheitzman