accessvbasql
❶ access vba 文本框 sql语句
1)如果查询结果只有一条记录,可以将文本框的控件来源属性设为域合计函数,如:
=dlookup("字段1","表1","ID=1")
或
=dsum("字段1","表1","ID>1")
之类的
2)如果查询结果多于一条记录,建议换成列表框或组合框控件,设置其行来源属性。
❷ Access VBA中如何使用 SQL 语句。
提问里是一段打开ADO记录集对象的代码,并不完整且含有错误。下面提供一个完整一点的代码供参考:
PrivateSubCommand111_Click()
DimsqlAsString
'声明ADO记录集对象
DimrsAsADODB.Recordset
Setrs=NewADODB.Recordset'实例化记录集对象
'拼写SQL语句并赋值到变量
sql="SELECTDGZY.usenameFROMDGZYWHERE(((DGZY.usename)Like'张三'));"
'打开记录集
rs.Opensql,CurrentProject.Connection,adOpenKeyset,adLockOptimistic
'利用记录集对象进行所需的有关操作,代码略
EndSub
❸ access怎么显示VBA的SQL查询结果
主要是SQL
语句的拼接。
设计报表时,要定义好报表的数据源,在定义报表的数据源时,你在里面多加你要查询的过滤条件就可以了。
显示过程:要打开这个报表前,给数据源加上你选择的参数就可以了。
❹ ACCESS中VBA调用SQL语句的问题
ID不要打上单引号:
rsql = "UPDATE 员工表 set 备注 ='" & 员工备注.Value & "' WHERE ID =" & 员工选择框.ListIndex
如果还是不行,就再加上VAL转化一下试试:
rsql = "UPDATE 员工表 set 备注 ='" & 员工备注.Value & "' WHERE ID =" & Val(员工选择框.ListIndex)
❺ 如何在access的VBA中,执行查询类的sql命令
在组合框的change事件里写类似如下代码:
以下代码的意思是:combo是显示供应商的一个组合框,通过选择供应商,在Text4里面显示该供应商的总订单数。
PrivateSubCombo0_Change()
Dim供应商ID
供应商ID=Combo0.Value
DimsqlAsString,rsAsRecordset
sql="selectcount(*)ascntfrom[采购订单]where[供应商ID]="&供应商ID'查询的SQL语句。
Setrs=CurrentDb.OpenRecordset(sql)
Text4.SetFocus
Text4.Text=rs.Fields(0)
EndSub
❻ 如何将VBA中的SQL查询结果显示出来在ACCESS中
前提:DOCMD
对象的OPENQUERY方法仅可用于
Microsoft
Access
数据库环境
(.mdb)。
语法:expression.OpenQuery(QueryName,
View,
DataMode)
OPENQUERY方法用于打开一个预置的查询,而不能打开一个SQL查询语句,故此你上面的用法被系统提示错误。
正确的用法是先将SQL语句:“select
*
from
学生成绩表
where
分数>90”预存为一个ACCESS查询,例如将其命名为:高分成绩查询表
然后在某个命令按钮添加下列过程。例如:
Private
Sub
Command1_Click:
Docmd.Openquery
"高分成绩查询表"
End
Sub
注:DOCMD
对象的OPENQUERY方法
的用法可以是多种多样的,上面仅列出其中一个例子。
❼ access2013 VBA中怎样运行sql语句
sql在vba里的运用比较专业需要认真的学习研究一下,给你详细一点的资料和一个实例
你自己学着模拟练习一下
一、简单的查询
1、建立查询
数据选项卡—现有连接—浏览更多或者按快捷键Alt+D+D+D
选择要查询的Excel文件和文件中的的工作表,就可以将相应工作表的数据取过来。表现形式可以是表,也可以是数据透视表等。
2、SQL查询语句
如果是挑选部分列数据,就需要用SQL语句(取所有数据也可以用SQL语句)。
建立查询时,选择工作表后不要点击“确定”按钮,而是先点击“属性”按钮,弹出窗口中选择“定义”选项卡,在命令文本框中输入SQL查询语句(原来的工作表名称,表示所有数据,可以认为是取所有数据的SQL的一种特殊写法):
Select字段列表from[工作表名$]
--其中字段列表就是需要选择的字段,数据源用工作表名称加“$“再用中括号括起来,例如:
selectprov_name,city_name,xs_mc,xs_codefrom[Sheet1$]
select*from[Sheet1$]--取所有数据
偶然发现,字段名不能用no,估计是保留字,如需要,用中括号括起来,例如:
select[no],prov_name,city_name,xs_mc,xs_codefrom[Sheet1$]
字段名中含有特殊字符的也要用中括号括起来,如/?空格等
Excel查询没有伪表概念,对于表达式的计算直接用select既可,例如
Select23+45--返回68
Selectdate()--返回当前日期
3、修改查询语句
方法:点击右键—弹出菜单—表格—编辑查询
通过修改SQL语句可以变更所取的数据,也可以将建立查询时的简单SQL语句改成复杂的SQL语句。
字段名更换:如果想换个字段名,用“as新字段名”既可,例如:
selectprov_nameas省,city_nameas城市,xs_mcas县市,xs_codeas编码from[Sheet1$]
非正常表格:数据区域(含字段名)不在第一行
需要在工作表名称后面指定数据范围,例如:
selectprov_name,city_name,xs_mc,xs_codefrom[Sheet1$B2:G2000]
或者,将数据块定义为一个名称,假设定义为mydata,SQL语句如下:
selectprov_name,city_name,xs_mc,xs_codefrommydata
注意:使用名称时没有$符号,也没有方括号了。
数据更新:数据源发生变化,需要更新数据,方法:点击右键—弹出菜单—刷新
意外:如果打开Excel文件后弹出不是选择工作表的窗口而是一个“数据连接属性”窗口,可以关闭这个窗口,然后将Excel应用极小化再极大化方式消除,或者在弹出选择文件的窗口时,退回上一级文件夹,删除那个Queries文件夹,就行了。
二、复杂的查询
1、多表联合
相同结构的多个表合并到一起,用union连接SQL语句,例如:
Select*from[财务部$]unionallSelect*from[市场部$]
Union是去重复的,即相同的记录保留一个(类似distinct),Unionall则是直接相加两个结果,不去重复。
增加一个部门字段可以将查询结果中的区分开来,以便知道数据来自哪个表。Union的三个一致,即:字段的数量、类型和顺序。例如:
Select“财务部”as部门,*from[财务部$]unionallSelect“市场部”as部门,*from[市场部$]
多表联合查询
Select*from[部门$]bm,[员工$]ygwherebm.部门编码=yg.部门编码跨工作簿查询果数据不仅来自不同的工作表,还来自不同的文件,一样可以用union联合,例如:
Select“分公司1”as公司,“财务部”as部门,*from[F:SQL之Excel应用分公司1.xlsx].[财务部$]unionall
Select“分公司1”as公司,“市场部”as部门,*from[F:SQL之Excel应用分公司1.xlsx].[市场部$]unionall
Select“分公司2”as公司,“财务部”as部门,*from[F:SQL之Excel应用分公司2.xlsx].[财务部$]unionall
Select“分公司2”as公司,“市场部”as部门,*from[F:SQL之Excel应用分公司2.xlsx].[市场部$]
因为SQL中已经指定了文件名和表名,所以建立连接时连接谁并不重要,这种情况下,建立连接的时候就连接自己,然后再改写SQL语句。
SubUsingSQL()
DimSqlAsString
DimjAsInteger
DimrAsInteger
DimCnnAsADODB.Connection
DimrsAsADODB.Recordset
WithSheet1
.Cells.Clear
SetCnn=NewADODB.Connection
WithCnn
.Provider="Microsoft.ACE.OLEDB.12.0"
.ConnectionString="ExtendedProperties=Excel12.0;"_
&"DataSource="&ThisWorkbook.Path&"数据.xlsx"
.Open
EndWith
Setrs=NewADODB.Recordset
Sql="Select*From[Sheet1$]"
rs.OpenSql,Cnn,adOpenKeyset,adLockOptimistic
Forj=0Tors.Fields.Count-1
.Cells(1,j+1)=rs.Fields(j).Name
Next
r=.Cells(.Rows.Count,1).End(xlUp).Row
.Range("A"&r+1).CopyFromRecordsetrs
EndWith
rs.Close
Cnn.Close
Setrs=Nothing
SetCnn=Nothing
EndSub
❽ access怎么显示VBA的SQL查询结果
主要是SQL
语句的拼接。
设计报表时,要定义好报表的数据源,在定义报表的数据源时,你在里面多加你要查询的过滤条件就可以了。
显示过程:要打开这个报表前,给数据源加上你选择的参数就可以了。