access 问题_百度知道
access 问题
说我select错误.做了个窗体,有姓名,日期,请各位大侠指点.并让下面text得到sum..注:我在click里写text.value=select******,日期输入框,一个按钮,希望点击按钮查询select sum(金额) from 表 where 日期 betwen 日期1 and 日期2 groupby 姓名,不胜感激.
点确定总是弹出对话框,靠,还好输入a变量,但对话框的名字是下拉框的value&a不是已经有值了吗?怎么还叫我输的?输了以后再查就对了.list有值了.; & a大侠还在吗?我这样输了以后Dim a As Stringa = Combo1.ValueList52.RowSource = &select 金额 from 业绩 where 姓名=&quot
我有更好的答案
RowSource ＝“select...我不知道文本框有没有执行SQL的功能没有但是我知道下拉列表框是有这个功能的下拉列表框的.RowSource 属性可以这样; WHERE [ItemNumber] &gt.Open stSql, con，那么你的错误也许就在于你没有加引号; 0 AND [SwitchboardID]=& & Me![SwitchboardID]
stSql = stSql & &)
rs..”你说的text如果也有这个功能，或者日期1和日期2的格式错误，没有加##，其实我一直都用最笨的方法使用数据库访问技术比如Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As IntegerSet con = Application.CurrentProject.Connection
stSql = &SELECT * FROM [Switchboard Items]&
stSql = stSql & & ORDER BY [ItemNumber];&
Set rs = CreateObject(&ADODB.Recordset&quot
采纳率：41%
为您推荐：
其他类似问题
您可能关注的内容
access的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。豆丁微信公众号
君，已阅读到文档的结尾了呢~~
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
ACCESS 数据输入查询计算连接
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='http://www.docin.com/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口关于ACCESS窗体设计问题，制作问题列表框！_百度知道
关于ACCESS窗体设计问题，制作问题列表框！
想制作一个窗体，分成两部分，左右分开，左边是问题的分类（列表框），右边是问题的详细信息和解决方法，当我点击列表框的上的行的时候，右边的会对应更新问题详细信息，我想知道怎样做，谢谢
我有更好的答案
Left = 567 &#39.Height = 3402 '设置列表框高度
.BoundColumn = 1 ''&
End Sub请上机试试上列解决方案.Top = 5673;关键字剔除重复值设置上边距
.ColumnCount = 2
&#39，请看下一步;设置左边距 单位为缇 1CM=567缇设置列表框list2关键属性
With Me，第二列宽度为4，从问题信息表中查询出“问题分类”这里使用DISTINCT
'&quot.Left = 2318其行来源为一段的SQL代码：如果你晓得如何人工设置上述关键属性.4厘米
End Sub注;设置列表框绑定第一列
.ColumnHeads = True '设置列表框列显示标题
&#39，但是为了便于理解下面采用中文）该表取名“问题信息”共有3个字段名分别为“分类”.6厘米：表名和字段名一般应使用英文.Width = 1701 &#39.RowSource = &quot。现在给你答复这里根据你的要求，列举一个实际解决方案加以说明;SELECT DISTINCT 分类 AS 问题分类 FROM 问题信息 ORDER BY 分类&quot.Value & &设置列表框宽度设置列表框list2显示两列
.ColumnWidths = &quot，以便List1显示问题分类
&#39，以方便你理解我是如何实现你的要求的，看看效果吧：List1和List2 。在添加列表框控件时系统会自动为其添加列表框标签，请手动将它们删除掉。这两个列表框的各种属性可以手工设置，但是讲解起来过于繁复.List2 & Me;下一代码行设置列表框行来源，则可免去上述窗体打开事件过程为列表框LIST1添加已更新事件过程（此段代码为戏肉）实现“当我点击列表框的上的行的时候，右边的会对应更新问题详细信息”Private Sub List1_AfterUpdate()
&#39。第一步 首先建立一张ACCESS表（注，从问题信息表根据List1每次选定的“分类”
'查询出相关的“问题详情”和“解决方法”
Me.List2.RowSource = &SELECT 问题详情,解决方法 FROM 问题信息 WHERE 分类=&#39，故放弃手工设置改用编程方法设置、“问题详情”和“解决方法”并输入下列模拟数据：分类
解决方法人事
人事问题1之解决方法人事
人事问题2之解决方法人事
人事问题3之解决方法生产
生产问题1之解决方法生产
生产问题2之解决方法技术
技术问题1之解决方法技术
技术问题2之解决方法技术
技术问题3之解决方法营销
营销问题1之解决方法营销
营销问题2之解决方法技术
技术问题4之解决方法财务
财务问题1之解决方法公关
公关问题1只解决方法第二步 新建一个ACCESS窗体，调整大小约14CM见方，然后添加两个列表框控件，一个用来在左边显示分类，另一个用来在右边显示问题详情和解决办法，假设它们的名称分别为;
'下一代码行设置列表框LIST2行来源，让List2显示问题详情和解决方法
'其行来源为一段SQL代码.Top = 567
&#39.64.4 cm& '设置列表框第一列宽度为3。第三步 为刚新建的窗体添加打开事件过程（用编程方法设置各控件的关键初始属性）Private Sub Form_Open(Cancel As Integer)
'设置列表框LIST1关键属性
With Me.List1
.Width = 4536
.Height = 3402
.ColumnHeads = True
，今晚或明晚我现在没空，请允许我晚些时候给你一个详细而满意的答复.List1
来自：求助得到的回答
采纳率：92%
Valuesqlrst1 = &select 解决方法 from 问题表 where 问题分类 = 'Set rst1 = db.L问题分类.T解决方法，其它什么都不用做。然后窗体代码如下即可实现你的要求：Private Sub Form_Open(Cancel As Integer)Dim sql As Stringsql = &select 问题分类 from 问题表&Me;&quot.L问题分类; & qst & &&#39.OpenRecordset(sqlrst1)ans = rst1(0)Me.RowSource = sqlEnd SubPrivate Sub L问题分类_AfterUpdate()Dim db As DatabaseDim rst1 As RecordsetDim sqlrst1 As StringDim qst, ans As StringSet db = CurrentDbqst = Me;&quot，一个叫L问题分类，一个叫T解决方法、1个文本框窗体中新建1个列表框
设窗体窗体（ct），数据源为jscl表，建两个组合框：组合框1:名称为clmc (其值是jscl表中的clmc） 可用行来源：SELECT [clmc].[jscl] FROM [jscl]组合框2:名称为ctcz (其值是jscl表中的clcz) 可用行来源：SELECT distinct clcz.jscl FROM jscl WHERE (([jscl]![clmc]=[Forms]![ct]![ctmc]))
其实很简单.主要步骤如下：1、建立（或已存在）一个关于问题分类的表（[问题分类表]），格式应该是：ID（自动编号），问题分类（文本）2、建立（或已存在）一个关于问题和详细信息的基础表，格式应该是：ID（自动编号）、分类ID（数字→长整型 对应[问题分类表].[ID]）
、问题明细（文本）、解决方法（文本）……（还需要什么自己增加）3、建立那个你想要的窗体界面，其中创建一个列表框（List分类），在右侧创建一个文本框（Text内容）；4、在 List分类 的属性表的“数据”选项卡中，“行来源类型”属性，默认为“表/查询”（保持不变）；找到“行来源”属性，点击右侧的下拉菜单，选择“问题分类表”，之后，切换到属性表的“格式”选项卡中，在“列数”属性中，写入 “2”，表示〔ID〕和〔问题分类〕都使用；在“列宽”属性中，写入“0,3”，意思是〔iD〕列不显示。只显示〔问题分类〕；5、切换到属性表的“事件”选项卡中，在“更新后”属性中，选择“事件过程”并点击 右侧的生成器（…）按钮，切换到VBA编辑器中,将下列代表粘到事件中:
Me.Text内容 = DLookup(&问题明细&, &问题明细表&, &分类ID=& & Me.List分类)6、切换到 窗体视图 看效果.(要在2个表中输入一切资料)
库，得到连接对象conn2、用下面的select语句打开表，将数据读入RecordSetset rs=conn.execute(&select * from 表名&)3、用循环将数据读入二维数组arrrow=0while not rs.eofarr[row,0]=rs[&id&]arr[row,1]=rs[&year&]arr[row,2]=rs[&mon&]arr[row,3]=rs[&1&]arr[row,4]=rs[&2&].........row=row+1wend
其他2条回答
为您推荐：
其他类似问题
您可能关注的内容
列表框的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb在access数据库中如何创建新表_百度知道
vb在access数据库中如何创建新表
新表的结构是已知表的结构 比如数据库中有一个表Table1 我想新建一个表table2 table2的结构和table1的结构相同！
我有更好的答案
'引用对象库“Microsoft ActiveX Data Objects 2.8 Library”'引用对象库“Microsoft ADO Ext 2.8. For DDL Security”，简称为ADOX
path1 = Dir(App.Path & &\dat.mdb&)
'检测文件是否存在
If path1 = && Then
Text1.Text = &数据库dat.mdb不存在，请先建立数据库~！&
Dim cat As New ADOX.Catalog
'不用cat用另外一个名字也可以
Dim pstr As String
Dim tb1 As New Table
pstr = &Provider=Microsoft.Jet.OLEDB.4.0;&
'不能把这里的4.0改为3.51
pstr = pstr & &Data Source=& & App.Path & &\dat.mdb&
pstr = pstr & &;Jet OLEDB:Database Password=123&
cat.ActiveConnection = pstr
tb1.Name = &学生信息&
'表的名称
tb1.Columns.Append &姓名&, adVarWChar, 20
'表的第一个字段
tb1.Columns.Append &年龄&, adInteger
'表的第二个字段
tb1.Columns.Append &性别&, adVarWChar, 2
'表的第三个字段
tb1.Columns.Append &出生年月&, adDate
'表的第四个字段
cat.Tables.Append tb1
'建立数据表
电子产品技术支持
cn.OLEDB;Data Source=数据库名.mdb&
cn.OLEDB;select * into table2 from table1 where false&quot.0.Open &Provider=Microsoft.Execute &quot，那么就Private Sub Command1_Click()
Dim cn As New ADODB;select * into table2 from table1&quot.4Private Sub Command1_Click()
Dim cn As New ADODB;Data Source=数据库名.mdb&quot.Connection
cn.Execute &quot.4.J
cn.0.Jet.Connection
cn.CloseEnd Sub 如果在复制表结构的同时也复制数据.Open &Provider=Microsoft
本回答被提问者采纳
为您推荐：
其他类似问题
您可能关注的内容
access数据库的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。.AccessControlException: access denied (&quot ...
monitor检查是否有access denied错误出现，没有xc0000022&（Access Denied找到Access Denied的错误，怀疑三方杀毒软件 ...
失败（Access denied for）连接数据库失败，数据库 中已经添加白名单。
排查思路：
Access denied/t_demo，用户名：fn_test， 异常消息：Access ...
TABLES&: Access denied;: Access denied; you need (at least: Access denied for user &xxx ...
Access denied by authorizer's&Access denied by&Access denied by authorizer ...
_prefix ) die('Access denied;phpMyAdmin&的IP，Access denied是未经授权访问时的提示信息：
?$ip_prefix ...
STS调用报错：Access denied by: Access denied by authorizer ...
，Access denied 是未经授权访问时的提示信息：
?$ip)) != $ip_prefix ) die('Access denied');
2.账号与口令安全策略
设置强度 ...
: AccessDeniedErrorMessage: Access denied by authorizer / Access-Control-Request-Method or Access-Control-Requet ...
http_access deny all留下80和443端口，然后增加一行：access_log /var/log/squid/access.log用来记录访问情况 ...
Access deny for accessing have[xxx] access to resource
DenyAccessException:You do not have[xxx] access ...
_ACCESS_DENIED
DRDS 后端 RDS/MySQL-4105][ERR_ATOM_ACCESS_DENIED] DB_SLOW
TDDL-4105 ERR_ATOM_ACCESS ...
): Access denied for ...
(28000): Access denied for user ...
, 1, 1 , 10) & 100) Access Denied;} else P} ...
这些方法会报 access denied 异常。
访问本地文件的 ...
] 1227 - Access denied; you need ...
你可能感兴趣