Office中国论坛/Access中国论坛

标题: 准备做个窗体，用它来查询数据库中的每个表[求助] [打印本页]

作者: pyk 时间: 2003-4-3 03:05
标题: 准备做个窗体，用它来查询数据库中的每个表[求助]
做时遇到困难，希望朋友们能一点一点的来帮我好吗？

窗体页眉里有个组合框，它的内容就是数据库中所有表的文件名。
窗体的主体里有几个文本框，用它们来显示每个表的数据。

第1个困难：文本框，用属性-数据-控件来源-再选择一个表中某个字段作为数据的来源，这个我知道做，如果用VB代码怎样表示呢？

作者: Roadbeg 时间: 2003-4-3 16:17
在 vba 中这样设置控件来源:
控件.ControlSource=字段名(或表达式)

作者: pyk 时间: 2003-4-3 19:11

如果我想让《人事管理》窗体中的《名称》字段的数据来源（属性-数据-控件来源-再选择一个表中某个字段作为数据的来源）来自一个表《员工信息》中的一个字段《姓名》怎样写代码呢？怒我无知……谢谢！

作者: pyk 时间: 2003-4-3 19:27
第1困难知道怎样做了，谢谢Roadbeg！

作者: pyk 时间: 2003-4-3 19:49
遇到第2个难题：什么方法可最简单的获得某个表中所有字段的“名称”（写代码。或在窗体上再加一些什么控件，再结合写代码都行，越简单越好！）

就是我在组合框中选择1个表，希望能得到这个表中所有字段的名字，再供它用（如把得到的字段名，分别放在上面的文本框作为数据的来源）
谢谢！

作者: pyk 时间: 2003-4-3 22:15
第3个：（“表名”为变量）

Private Sub 窗体页眉_Click()
表名 = Me.Combo14
Me.RecordSource = "Select * from 表名"
End Sub
不知
Me.RecordSource = "Select * from 表名"
（怎样改写）

作者: pyk 时间: 2003-4-4 02:02
有个窗体叫：全面管理窗体
窗体主体里有几个文本框：如第1个文本框为〈名称〉
有3个表，但结构都一样（要3个表，不合在一起！）。
现在想问的是：能不能让窗体中的名称文本框显示3个表中的姓名数据。
就像这样：Me.RecordSource = "Select * from 第1个表＋第2个表＋第3个表"

部分代码：
Private Sub 窗体页眉_Click()
Me.RecordSource = "Select * from 第1个表"
FORMs!全面管理窗体!名称.ControlSource = "姓名"
End Sub

谢谢！

作者: pyk 时间: 2003-4-4 02:57
李寻欢请看：
Combo28的行来源类型设为《字段列表》
那么Combo28的《行来源》（不是在属性中设置）而用代码怎样写？

作者: Roadbeg 时间: 2003-4-4 03:22
看你说得很乱,个问题一个问题的回答:
1.如何猎取指定表的所有字段名:
可以使用 fields 集合,具体例子请看
http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&ID=7271

作者: Roadbeg 时间: 2003-4-4 03:24
第二个问题,表名为变量.
dim strTdf as string
strTdf="表1"
xxx.recordsource="select * from " & strTdf

作者: Roadbeg 时间: 2003-4-4 03:31
第三个问题,联合查询:

设表1,表2,表3,皆有字段 a,b,c 则:
select a,b,c from 表1 union select a,b,c from 表2 union select a,b,c 表3

也就是把三个查询的结果集合在一起,需要注意的是,三个查询的结果集结构必须一样.
且,在默认情况下,三个表中的重复记录将被剔除,重复记录只保留一个.

作者: Roadbeg 时间: 2003-4-4 03:33
第四个问题.字段列表:

设有组合框 cboA
则
cboA.rowsourcetype="字段列表"
cboA.rowsource="select a,b,c from 表1"

如此,级合框 cboA 的下拉列表中将出现 a,b,c 三个 item (即 rowsource 的字段列表)

作者: pyk 时间: 2003-4-7 01:53
第5个问题：
通过组合框选择一个表的文件名后，窗体中的几个文本框就分别显示来自表的数据，有办法让文件框的大小自动适应里面的文字吗（因为数据是来自不同表的，经常变化），也就是说让文本框显示不完文字的时候就自动变大，里面的文字少的话，就自动缩小！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)