vba中用sql语句,怎么把查询的数值保留两位小数?
比如有个字段值是32.32，但是用select * from table取数时，单元格中的数变成了32.32502630。我从网上搜了，有的说用 convert(decimal(18,2),字段名），但是提示convert函数未定义，把onvert改成format又提示decimal函数未定义。如果vba不支持convert和decimal函数，那用什么函数呢？ 用 round(字段名,2) 和 *号效果一样。
请问在vba中用什么语句可以达到我上面的目的？是换个别的什么函数，还是需要引用什么库呢？
这样的话，还是用上面的例子，结果是32.32还是32.33呢？ 如果是32.33的话查询结果不就错了吗？
追答按四舍五入就该是32.33，只是显示而已，实际数据还是32.3250263，不影响其他操作的，查询也没有错。
试试这个追问
这个我试过了，还需要改善一下：
format(字段,'0.00')*1
如果不加引号结果是整数，如果不*1结果是文本格式
不过还是非常感谢！
select convert(numeric(18,2),字段名) as 字段名 from table本回答被网友采纳
vba中用sql语句,怎么把查询的数值保留两位小数?
简单的办法是设定单元格格式为数值，保留两位小数。
access VBA和SQL 保留小数问题
应该[金额]和[数量]的字段设计的时候都是整型的，所以在\/运行过程中自动将结果也转成了整型；如果需要小数位，那要么在设计表的时候就应该设置好小数位，或在运算前把这两个字段的数据类型转成含小数的数据类型如decimal或double等数据类型即可。
VBA如何使变量值为两位小数?
1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】2、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】3、会弹出模块编辑窗口 4、在代码编辑窗口输入以下图中代码：5、与指定编写的保留小数位数代码关联，且进入命名为【保留小数位数】6、点击【保留小数...
access VBA和SQL 保留小数问题
就是把&的前后都加一下空格。
excel vba常用代码--sql条件查询
在Excel VBA中，SQL条件查询是进行数据筛选的重要工具。以下是几种常见的查询方法：1. 等于或不等于查询：使用"="或">"运算符，例如，WHERE column = 'value' 或 WHERE column > 'another_value'，以筛选出符合条件的行。2. 列表查询：通过"In"或"Not In"关键字，如WHERE column IN ('value1...
VBA 连接数据库,查询中的变量如何赋值
Sheet.Cells.Clear '清空表中原有的数据 '连接状态是打开就不在进行Open操作 Conn.Open ConnStr Dim SQLStr As String '要执行的SQL语句 SQLStr = "select * from Shift_Code where Club='" + xiao + "'" '可以执行更复杂的SQL语句 Records.Open SQLStr, Conn, adOpenStatic, adLock...
用VBA实现用SQL语句查询EXCEL中的数据
因此，考虑使用VBA。VBA可将Excel视作数据库对象，建立连接，并执行SQL查询。通过编写简单的脚本，实现从Excel数据文件中执行SQL查询：选择查询文件 - 建立连接 - 编写查询语句 - 执行查询，将结果保存在新工作表中。下面是示例代码：有时，工具不必强大，能快速解决问题，提高效率的工具便是好工具。此外...
VBA数据库应用中SQL语句的表达方式
在数据库应用中，SQL语句是实现数据查询、更新、删除和插入的关键工具。VBA环境下的SQL语句表达方式，能够使用户根据需求高效地操作数据库。本教程将重点介绍SQL在VBA中的几种常见表达方式。首先，基本的SELECT查询表达式从“数据区域”中提取数据。此表达式可以包含多种操作：使用“*”代表所有字段，使用“...
sql 读到excel中小数点的问题
将接受数值单元格格式设置为 0.00??如果想在单元格中得到文本型数值并在VBA中直接设置可以 Sub aa()Cells(1, 1) = "'" & Application.Text(InputBox("输入"), "0.00??")End Sub
如何将SQL查询结果存储在VBA数组中
sql = "select * from [宏站]"rs.Open sql, cnn '复制字段名 For i = 1 To rs.Fields.Count Cells(1, i) = rs.Fields(i - 1).Name Next i [a1].CopyFromRecordset rs '把整个查寻的值复制到A1单元格 rs.Close cnn.Close End Sub ...
