您的位置：程序门 -> vb -> 基础类

大家帮忙看看读取数据库哪错了，急~!!

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

大家帮忙看看读取数据库哪错了，急~!![已结贴,结贴人:huoyanshan]

发表于：2007-01-14 21:46:04 楼主

谁来帮我看看下面的代码怎么总是提示错误呢？
目的:读取表mytable里的两个字段code和name，
窗体上有两个text文本框，在text1中输入code后单击command1后在text2中显示name。
dim con as new adodb.connection
dim rst as new adodb.recordset

private sub command1_click（)
con.connectionstring = "provider=sqloledb.1;persist security info=false;user id=sa;initial catalog=mydb;data source=. "
con.open
sql = "select code,name from mytable where name= ' " & text1.text & " ' "
rst.open sql, con, adopenstatic, adlockoptimistic
text2.text = rst.fields（ "name ").value

运行时总是弹出如下错误提示：bof或eof中有一个是真，或当前记录已被删除。
但我明明看着数据库里有这条记录就是查不出来，郁闷，各位帮帮忙。怎么回事呢？

发表于：2007-01-14 21:52:191楼得分:10

sql = "select [code],[name] from mytable where [name]= ' " & text1.text & " ' "
if rst.state=adstateopen then rst.close
rst.open sql, con, adopenstatic, adlockoptimistic
if rst.recordcount=0 then
text2.text= " "
else
text2.text = rst![name] & " "
end if
rst.close

发表于：2007-01-14 22:07:062楼得分:0

leftie（左手,为人民币服务）按你的方法结果是text2为空，也就是说记录数为零。
但明明数据库有记录，另外你的这句
text2.text = rst![name] & " "
其中的！代表什么意思，为什么后面还要并上一个空字符呢？

发表于：2007-01-14 22:09:283楼得分:0

加上：
set con = new adodb.connection
set rst = new adodb.recordset

发表于：2007-01-14 22:10:344楼得分:10

text2.text = rst![name] & " "
其中的！代表什么意思，为什么后面还要并上一个空字符呢？

是考虑 rst![name] 是null的情况

发表于：2007-01-14 22:34:375楼得分:0

虽然问题还没有解决，但同样感谢两位。
另外新发现个问题，我的mytable表是从excel导入到sql数据库里的，
我在excel中复制相应的code，贴到text1里就能查询出数据name，
但是你手工打上一样的code就查不出来了，晕死了。
我把复制的贴到记事本里看，两边也没有空格，就是贴完后光标回自动跑到下一行。
哪位明白是怎么回事哦，
分数不够可以再加，
头一次碰到这么郁闷的事。

发表于：2007-01-15 08:11:596楼得分:0

说明后面是回车

发表于：2007-01-17 11:41:497楼得分:0

null& " "
还是null哦

发表于：2007-01-17 12:08:438楼得分:0

用 trim（) 函数把 text1.text 去空格试试看。

sql = "select code,name from mytable where name= ' " & trim（text1.text) & " ' "

其他资讯