菜鸟问题送高分 在线等待

vbokonly 2005-06-15 09:36:47
利用 TEXT1 COMBO1 和ADODC1 查询数据库 部分代码如下

IF TEXT1.TEXT <>"" AND COMBO1.TEXT="姓名" then
adodc1.recordsource="select * from kehu where xingming ="text1.text"" '提示没有结束语句
END IF
请大家帮忙看一下是怎么回事, 语句那有问题
...全文
73 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
lindy730 2005-06-15
  • 打赏
  • 举报
回复
adodc1.recordsource="select * from kehu where xingming = '" & Trim(text1.Text) & "'"
zjlang 2005-06-15
  • 打赏
  • 举报
回复
adodc1.recordsource="select * from kehu where xingming =" & "'" & text1.text & "'"
vbokonly 2005-06-15
  • 打赏
  • 举报
回复
多谢大家
还有我想把查出的数据在DATAGRID1中显示 请问怎么写
一会加分
of123 2005-06-15
  • 打赏
  • 举报
回复
adodc1.recordsource="select * from kehu where xingming ='" & text1.text & "'"
a97191 2005-06-15
  • 打赏
  • 举报
回复
adodc1.recordsource="select * from kehu where xingming ='"& text1.text &"'"
adodc1.refresh
laviewpbt 2005-06-15
  • 打赏
  • 举报
回复
adodc1.recordsource="select * from kehu where xingming =text1.text"
text1.text本身就是字符串。
nixnybf69 2005-06-15
  • 打赏
  • 举报
回复
set datagrid1.datasource=adodc1

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧