你的查询语句试着改一下看看。
先生成查询语句的字符串,存放在一个变量里。
输出这个变量,看看是不是你想要的,看看有没有问题。然后再运行它。
例如,你的改成
s="select * from 生产管理 where aa =" & text1(0).text
if msgbox("看看下面语句对不对?" & vbcrlf s,vbyesno+vbquestion)=vbno then end sub
Adodcl. RecordSource=s
在文本框输入abc,你将看到语句
select * from 生产管理 where aa=abc
但,你希望应该是
select * from 生产管理 where aa = ‘abc’
因为你的aa字段,从你的上下文看,他很可能是字符类型的字段。
同理,你底下用给各个字段赋值的时候,也应该考虑字段的类型匹配问题。
因为不知道你的数据库结构,猜测性的说这么一点,供你参考。
如果说错了,不要见怪。
先生成查询语句的字符串,存放在一个变量里。
输出这个变量,看看是不是你想要的,看看有没有问题。然后再运行它。
例如,你的改成
s="select * from 生产管理 where aa =" & text1(0).text
if msgbox("看看下面语句对不对?" & vbcrlf s,vbyesno+vbquestion)=vbno then end sub
Adodcl. RecordSource=s
在文本框输入abc,你将看到语句
select * from 生产管理 where aa=abc
但,你希望应该是
select * from 生产管理 where aa = ‘abc’
因为你的aa字段,从你的上下文看,他很可能是字符类型的字段。
同理,你底下用给各个字段赋值的时候,也应该考虑字段的类型匹配问题。
因为不知道你的数据库结构,猜测性的说这么一点,供你参考。
如果说错了,不要见怪。