如何在ACCESS 的SQL语句中实现“向上取整”？


席主
如何在ACCESS 的SQL语句中实现“向上取整”？
坤义周
ceiling
是这个吗
席主
回答我的？
坤义周
嗯
晕
ACCESS好像没有这个函数
子王木阿
这是工作表函数
席主
是的
坤义周
用iif判断吧
子王木阿
有正负数么
还是都是正数？
如果都是正数，可以这样
坤义周

真会取巧
子王木阿
取相反数用int，再弄回来
席主
现在面对的只有正数
阿木王子，我看不到图，麻烦发个文字
坤义周
-int(-字段)
步漫中林
有wordexcel基础培训教程视频吗 
席主
多谢阿木和坤哥，我试试
席主
刚刚的方法可以用的，谢谢坤哥和阿木
鸟菜
?雨辰 先得在ACCESS创建数据表，其字段名和字段标题可在建立数据表时确定，然后导入外部EXCEL表数据，可在导入程序中对EXCEL表进行规范化操作，然后让其进入ACCESS中的数据表
给你一段ACCESS中操作EXCEL的示例代码参考
'导入藏品文件数据
Private Sub Command9_Click()
On Error GoTo Err_Command9_Click
    Dim xlApp As New Excel.Application  '申明Excel应用程序
    Dim xlBook As Excel.Workbook        '申明Excel工作簿对象
    Dim Rows0 As Long
    Dim strTemp As String

    If (Len(Nz(Me.filepath)) = 0) Then
        MsgBox "请选择或输入正确的藏品数据文件名！", 16, "操作错误"
        Exit Sub
    End If
    If (Not FileExists(Me.filepath)) Then
        MsgBox "请选择正确的藏品数据文件名！", 16, "操作错误"
        Exit Sub
    End If

    strTemp = CurrentProject.Path & "\temp.xls"
    FileCopy Me.filepath, strTemp               '生成临时文件

    DoCmd.Hourglass True                        '设置鼠标指针为沙漏形状
    Set xlBook = xlApp.Workbooks.Open(strTemp)  '指定要操作的Excel文件
    xlApp.Visible = False                       '设置EXCEL为不可见

    xlBook.Sheets(1).Range("A1").Select                     '选择激活第一工作表第一单元格
    Rows0 = xlApp.ActiveCell.CurrentRegion.Rows.Count - 1   '当前应用活动单元格所在区域总行数
    'xlBook.Sheets(1).Rows(Rows0 & ":" & Rows0).Delete   '删除最后一行
    'xlBook.Sheets(1).Rows("1:1").Delete                 '删除第一行
    'xlBook.Save     '保存数据

    xlApp.Quit              '退出EXCEL
    DoCmd.Hourglass False   '恢复鼠标指针
    Set xlApp = Nothing     '清除内存变量
    Set xlBook = Nothing

    'DoCmd.TransferSpreadsheet acImport, 8, "藏品信息", strTemp, True
    DoCmd.TransferSpreadsheet acImport, 8, "藏品信息", strTemp, True, "A2:AG" & Rows0
    MsgBox "藏品数据导入完毕！", vbOKOnly + vbInformation, "操作提示"

    Me.Combo21 = ""
    Call Command23_Click
    Exit Sub

Exit_Command9_Click:
    If Not xlApp Is Nothing Then xlApp.Quit '退出EXCEL
    DoCmd.Hourglass False   '恢复鼠标指针
    Set xlApp = Nothing     '清除内存变量
    Set xlBook = Nothing
    Exit Sub

Err_Command9_Click:
    MsgBox Err.Description
    Resume Exit_Command9_Click

End Sub
水若善上
相关问题
【Access denied for user 'root'@'localhost' (using】
【sql怎么提取字符串里面的小写字母,直接写在select语句里面】
【Access开发基本上完成了，已投入用了，就是一共享就慢，只能一个人用，又作了个单机版的，录入】
【update Talk set Name='it\'s my book!' where ID=3】
------分隔线----------------------------
赞.助.商.链.接
热点内容
赞.助.商.链.接
推荐内容