关闭

格式化字符函數

703人阅读 评论(0) 收藏 举报

原始位置﹕http://dev.csdn.net/author/fanpingli/1742be883708457999b0ad569b82c878.html

Function Q(ByVal SqlVariable As Variant) As String
'-----------------------------------------
'        Notes: Useful in creating properly formatted SQL statements
'        Usage: sql="select * from table where name= " & Q(vntName)
'        ??版本格式化适用于Access的?量,若支持其它?据?或?需要?其?行修改
'-----------------------------------------

On Error GoTo ErrTrap
Q = SqlVariable
'format the string
    Select Case VarType(SqlVariable)
        Case vbNull, vbEmpty
                Q = "NULL"
                Case vbString
                Q = "'" & Replace(SqlVariable, "'", "''") & "'"
                'date variable
        Case vbDate
            'format and enclose in pounds signs for Access
            Q = "'" & Format$(SqlVariable, "general date") & "'"
            'otherwise treat as numeric
        Case Else
            On Error Resume Next
            Q = CStr(SqlVariable)
            If Err.Number <> 0 Then Q = SqlVariable
    End Select
    Exit Function

ErrTrap:
 On Error GoTo 0
End Function

0
0

猜你在找
【直播】机器学习&数据挖掘7周实训--韦玮
【套餐】系统集成项目管理工程师顺利通关--徐朋
【直播】3小时掌握Docker最佳实战-徐西宁
【套餐】机器学习系列套餐(算法+实战)--唐宇迪
【直播】计算机视觉原理及实战--屈教授
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之矩阵--黄博士
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之凸优化--马博士
【套餐】Javascript 设计模式实战--曾亮
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:43197次
    • 积分:700
    • 等级:
    • 排名:千里之外
    • 原创:24篇
    • 转载:25篇
    • 译文:0篇
    • 评论:1条
    文章分类
    最新评论