当前位置:首页 » 编程语言 » accessvbasql

accessvbasql

发布时间: 2022-07-30 22:07:15

❶ 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
语句的拼接。
设计报表时,要定义好报表的数据源,在定义报表的数据源时,你在里面多加你要查询的过滤条件就可以了。
显示过程:要打开这个报表前,给数据源加上你选择的参数就可以了。

热点内容
如何用安卓编译项目 发布:2025-01-24 08:30:46 浏览:863
计算机同时输出和存储设备的区别 发布:2025-01-24 08:29:21 浏览:581
食物语上传 发布:2025-01-24 07:58:44 浏览:754
编程相关书籍 发布:2025-01-24 07:55:45 浏览:430
英雄联盟手游需要哪些配置 发布:2025-01-24 07:42:03 浏览:985
regex可以静态编译吗 发布:2025-01-24 07:40:32 浏览:79
怎么编译rec 发布:2025-01-24 07:39:04 浏览:56
卡片没加密 发布:2025-01-24 07:33:56 浏览:381
linux备份mysql 发布:2025-01-24 07:26:54 浏览:391
苹果手机忘记id密码怎么刷机 发布:2025-01-24 07:26:47 浏览:695