论坛: 编程破解 标题: VB技术问题,数学好的请来看看 复制本贴地址    
作者: fcyk [fcyk]    论坛用户   登录
我想用VB做一个3重查询:第一个控件是Combo,第二个是List,第三个也是List,在程序的编写上请问有什么诀窍吗?我的程序涉及到数据库的录入,举个例子:我在Combo中选择了专业,List1中会出现该专业的所有班级,选种了我要的班级后,在List2中可以出现我要的班级中的学生名单。
我用的Access数据库,知道的请帮忙。最好能附部分代码加以说明。

地主 发表时间: 04-08-05 08:57

回复: lqfrla [lqfrla]   论坛用户   登录
呵呵,不告诉你

B1层 发表时间: 04-08-05 15:43

回复: fcyk [fcyk]   论坛用户   登录
同志,我觉得你是来凑热闹的啊。没看到你能给个好的回复?

B2层 发表时间: 04-08-05 16:12

回复: windflower [windflower]   论坛用户   登录
这个很容易实现,但不知你的数据库结构如何,请把它说明在此。
表,字段,是如何组织的,这有关代码的实现。

B3层 发表时间: 04-08-05 19:56

回复: fcyk [fcyk]   论坛用户   登录
不好意思,我在办公室所以没法把抓图带上。只好写一下(房产系统)
我的字段是:1  户型--Combo
            2  地段--List1
            3  价格--List2
          (这三个是要实现3重查询的主要元素)
            4  户主
            5  联系电话
我希望是在Access数据库的情况下,先用DO Whlie not 实现在Combo的所有数据录入,及在Combo中可以选择所有户型,这时,在List1中要能够随着我选择Combo中数据的不同而显示不同的信息。当我选择List1中信息时,List2也要同上出现不同对应的信息。及每个户型要对应每个地段和它的价格。这样是否详细了啊??知道的请告诉我,我在公司急用。最好是能运行成功后再告诉我,我自己写的出现过“有行或段未定义”的提示。

B4层 发表时间: 04-08-06 08:25

回复: kert_t8 [kert_t8]   论坛用户   登录
没有编译器,但是写段代码可以表现一个意思

dim AdoC as new adodb.connection
dim AdoR as new adodb.recordset
adodc.connectionstring=""/////此处加入与数据库联接的连接字符串
adodc.open
set ador=adodc.execute("select 地价 from <表名> where 户型='"+<combo1.text>+"'")
while not ador.eof
  combo2.additem(ador.filed(0).value)
  ador.movenext
wend

以上程序需要在控件列表中添加adodc控件方可使用。同时,连接字符串也需要先将adodc控件连接设好,然后将该字符串拷贝到程序中。拷贝完后,就不需要在窗体中再存在该控件了,但不要将其从控件列表中删除。另外,由于我不太清楚list空间的用法,所以全部使用combo代替,表达个意思哈

另,注意combo控件的事件有click和change两种,两种区别很大,前者是当使用键盘在其中输入字符导致改变时被激发,而后者是用鼠标在列表框中单击选择文本导致改变时被激发,所以,上面的代码放在哪一个事件当中要根据你自己设置combo属性而定,combo可以给予许键盘输入又允许鼠标选择,也可以只允许键盘输入或者只允许鼠标选择

再次声明,以上代码未经过编译器编译,如果不能用,不要用臭鸡蛋砸我

B5层 发表时间: 04-08-06 09:47

回复: fcyk [fcyk]   论坛用户   登录
多谢,此方法运行失败,但是提醒了我,现已搞定,老板发奖金我请客。


B6层 发表时间: 04-08-06 11:14

回复: kenter1643 [kenter1643]   论坛用户   登录
我~~~~~~~~~~~~倒,这个我大一就已经做过了~~~~~~~响应combo事件然后查询seclet

B7层 发表时间: 04-08-06 17:30

回复: fcyk [fcyk]   论坛用户   登录
这个我也知道,但是3重查询在实现上有些问题,而且我是逐步查询同时要实现模糊查询,不信可以自己试试,不要在这里讲风凉话

B8层 发表时间: 04-08-07 09:55

回复: zl215 [zl215]   论坛用户   登录
不是只要在“文件”“打开”打开一个已经存在的数据库,在把他们连接起来吗?

B9层 发表时间: 04-08-07 15:02

回复: vc_java [vc_java]   论坛用户   登录
问题解决了。

B10层 发表时间: 04-08-11 22:41

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号