我用vb写了小软件,查询结果DataGrid1无显示,我初学者,帮我看看问题
图1,正常进入查询界面DataGrid1显示所有信息图2,输入查询内容,DataGrid1无返回结果图3查询按钮的代码...
图1 ,正常进入查询界面 DataGrid1显示所有信息
图2,输入查询内容,DataGrid1无返回结果
图3 查询按钮的代码 展开
图2,输入查询内容,DataGrid1无返回结果
图3 查询按钮的代码 展开
4个回答
展开全部
简单说一下:
1、你的数据库里用中文名称,这个不太好,虽然大部分没有问题,但有时会有问题出现...建议改为英文或首字拼单为好;
2、查询时应该要选择是否进行查询,如果没有输入的,不需要进行查询,登记日期前应该加一个钩选的选项,不钩选不进行查询,改为:
Dim s as string
s = "Select * form SIMcard where 1=1 "
if len(trim(text1))>0 then s = s & "and spname like '" & text1 &"' " ‘商户名称
if len(trim(text2))>0 then s = s & "and spid like '" & text2 &"' " ‘商户号
......
最后才是 Adodc1.RecordSource= s
然后Adodc1.Refresh
3、从你查询出错来看,应该是查询前数据库关闭或查询出错,DataGrid1没有绑定Adodc1数据,引起的没有结果,建议把程序附上,光看一部分不一定能判断出问题。
绑定数据源:
set datagrid1.datasource=adodc1
1、你的数据库里用中文名称,这个不太好,虽然大部分没有问题,但有时会有问题出现...建议改为英文或首字拼单为好;
2、查询时应该要选择是否进行查询,如果没有输入的,不需要进行查询,登记日期前应该加一个钩选的选项,不钩选不进行查询,改为:
Dim s as string
s = "Select * form SIMcard where 1=1 "
if len(trim(text1))>0 then s = s & "and spname like '" & text1 &"' " ‘商户名称
if len(trim(text2))>0 then s = s & "and spid like '" & text2 &"' " ‘商户号
......
最后才是 Adodc1.RecordSource= s
然后Adodc1.Refresh
3、从你查询出错来看,应该是查询前数据库关闭或查询出错,DataGrid1没有绑定Adodc1数据,引起的没有结果,建议把程序附上,光看一部分不一定能判断出问题。
绑定数据源:
set datagrid1.datasource=adodc1
追问
程序怎么上传上来呀,能留个联系方式,发你帮我看看吗?感谢
追答
没有看到啊,你发百度网盘啊,然后把共享的地址发给我就行了,我帮你看下。
AiPPT
2024-09-19 广告
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
展开全部
你先把on error resume next 去掉,看报不报错,报什么错。
我觉得可能是中文字段的问题,把查询字符串 中的字段都用[ ] 括起来;
另一个原因可能是在日期上,可能要改#为单引号
我觉得可能是中文字段的问题,把查询字符串 中的字段都用[ ] 括起来;
另一个原因可能是在日期上,可能要改#为单引号
追问
您说的方法都试了一下,不行,我把日期去掉了也不行
追答
datagrid1 绑定了数据源没
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
那说明,找不到这样的记录???
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询