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