永发信息网

VB中,建了个ACCESS数据库,里面有6张表,现在我想把这6张表合并显示在控件MSHFlexGrid1,而且可以查询

答案:2  悬赏:20  手机版
解决时间 2021-03-15 08:50
合并显示在控件MSHFlexGrid1,我做到了,但是查询做不到,我在数据库里新建了一张“汇总表”,查询语句是Adodc1.RecordSource = "select * from 汇总表 where 文件号='" & Val(Text6.Text) & "'" 原因我也知道,合并显示的数据没有写入这个表。
现在两个问题:
1,是合并显示,直接查询好呢,还是合并然后写入新表,然后查询好,写入操作很费内存么?
2,合并写入怎么写代码,要详细的,合并显示,直接查询,怎么写代码?
求大神指点
最佳答案
合并后再查询就行了。合并简单 就用个UNIOn函数
(select * from 表1) Union (select * from 表2) Union .........
这才叫合并。要匹配字段那不叫合并,是叫匹配查询。用LEFT JION是把语句左边的表去匹配右边名称的表,RIGHT JION 相反,INNER JOIN是完全匹配,你是要做联合还是匹配呢。
在一个数据库范围内都可以进行N个表的操作。在N个数据库操作N个表就要先在SQL上建立好查询表,或者用VS部署好再操作。VB用数据环境可以实现,写入新表再操作办法不是很好,相当耗内存。
全部回答
用ado控件做个示范吧。在工程引用中找到microsoft ado data control 6.0。mshflexgrid这个控件要去下载,原装vb6.0没有,他有一个是过时的msflexgrid很老的技术,我建议你用datagrid都比msflexgrid好一点,要么就下载一个vsflexgrid8.0注册一下,他支持鼠标滚轮也很美观。 言归正传,直接拖放ado控件和表格控件到窗体上,表格控件的datasource属性(要支持ado的控件才有)设置成adodc1(ado默认名称),再拖放一个按钮command1举例,在按钮单击事件中写代码:(有一件事很重要,把vb工程保存到一个新建的文件夹里,把access数据库也放在里面,作为相对路径文件,就可以随便移动安装了) private sub 按钮名称_click() dim i as string '------------定义变量来存动态数据,节约内存 i = app.path & "\项目申报.mdb" '----------读取access文件的相对路径 adodc1.connectionstring="provider=microsoft.jet.oledb.4.0;data source = " & i '------------拼接字符串,给连接字符串赋值 adodc1.recordsource="select * from 农业局申报 where 文件号='"+控件名称+"'" '-------------创建数据源,查询记录集合 adodc1.refresh '-------------激活 end sub 这样就算是连接数据库,当然你的文件号查询可以做成下拉列表或者显示在有个表单里,点击连接查询,不一定要你去输入,这是做个简单的举例,希望对你有用。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
绿洲装饰这个地址在什么地方,我要处理点事
我在微信上被骗了2000不知道该怎么办
亿沐思保健养生馆在什么地方啊,我要过去处理
无发无天美发店地址好找么,我有些事要过去,
公司强行辞退我,且将辞退通知邮寄回我老家,该
小学选个重点学校,真的很重要吗
网购始于哪个国家
我和一女生关系挺好的,她是一个看上去很高冷
新沂市自行车运动协会地址有知道的么?有点事
龙口这审车找车虫的多钱
镇子小学校(西门)在什么地方啊,我要过去处理
倒车影像左右与实物相反怎么办
互联网行业适合做什么职位
华夏银行账还款日是4号,26号消费应该多会还
.然而中限交进,命中恐有克星,是什么意思
推荐资讯
在上海怎样找到外籍模特和演艺人员?
鹏域二手车在哪里啊,我有事要去这个地方
漯河市源汇区马路街社区卫生服务中心地址在什
租房公司老板跑了,怎么办
孩子初二,可以提前学化学了吗?
我想联系辽宁大学保险学专业的学生
2016年安徽省宿松县中考成绩具体排名
中海·金沙府停车场1号入口地址在哪,我要去
关于初中生违反学校纪律对其停课的相关规定是
初中生的第一节课怎么上最好?是活跃的课堂好,
中国移动相关人员进,用别人名字办的手机卡,
隧道直墙坦圆拱内轮廓什么意思啊
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?