Question

VB中查询数据库中的一行数据，求高手看看代码~

strsql = "select * from Customer where Customer.CmerID=" & Text1.Text
rs.Open strsql, conn, 1, 1
Text2.Text = rs("CmerName")
Text3.Text = rs("CmerSex")

我就是想让text显示数据库中一行里面的各项信息。。。
CmerID 是 INT型的哈~
报错：语法错误（操作符丢失）在查询表达式Customer.CmerID中。
错误行是第二行~

Answer 1

Set rs=New ADODB.RecrodSet
strsql = "select * from Customer where Customer.CmerID=" & val(Text1.Text)
rs.Open strsql,conn,adOpenStatic, adLockOptimistic
rs.MoveFirst
Text2.Text = rs.Fields("CmerName")
Text3.Text = rs.Fields("CmerSex")
rs.Close

追问

strsql = "select * from Customer where Customer.CmerID=" & val(Text1.Text)
改成这样是对了 也没有报错 但是TEXT2读不出数据。。

追答

你看看你输入的CmerID存不存在？或者你把工程文件整个打包发给我：wedown@163.com

追问

CmerID是存在的 我已经发给你了哈~ 我一直在线呢 现在

追答

已经跟你发过去了。

Answer 2

第一行最后要加 & ";"。sql语句格式要求

追问

不行哈 CMERID 是整形INT

追答

换成这种呢，就是Text1.Text两边各加一个'，然后以分号结尾

strsql = "select * from Customer where Customer.CmerID=" & "'" & Text1.Text & "';"

追问

缺少语句结束

追答

重试一下，把 & 号加上

Answer 3

Text2.Text = rs.fields("CmerName").value
Text3.Text = rs.fields("CmerSex").value

追问

不是后两句的问题哈 后两句去掉还是报错 是SQL的问题

追答

你text1里面输入的是什么？

追问

数字啊

追答

如果字段没有错 感觉你的sql文是没错的！~

Answer 4

strsql = "select * from Customer where Customer.CmerID='" & Text1.Text & "'"
rs.Open strsql, conn, 1, 1
Text2.Text = rs.fields("CmerName")
Text3.Text = rs.fields("CmerSex")

追问

不行哈 CMERID 是整形INT

追答

你就给这4行，看不出还有什么问题。