格式化字符函數

原始位置﹕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

阅读更多
上一篇Patterns in Python
下一篇安裝ubuntu
想对作者说点什么? 我来说一句

excle高手--進階函數

2018年05月25日 384KB 下载

VB 函數集大全---所有常函數集

2010年03月23日 69KB 下载

常用sql指令一般面试都可通过

2010年01月26日 885KB 下载

asp.net基本函數大全

2007年12月24日 5KB 下载

Javascript

2009年08月06日 48KB 下载

没有更多推荐了,返回首页

关闭
关闭