日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

在VB程序中格式化SQL字符串

在VB程序中格式化SQL字符串

更新時間:2022-05-03 文章作者:未知 信息來源:網絡 閱讀次數:

在寫SQL語句時,需要對不同類型的數據分別加上#號,""號等來表示,用以下函數,就可以實現操作的簡化.不管是什么類型,只需用這個Q函數轉化一下,不需動手加格式化符號,就OK了.實在是方便.本人一直在用它,實在是方便.

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

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 欧美1区二区三区公司 | 国产日韩欧美亚洲精品95 | 福利啪啪 | 羞羞网站免费 | 夜夜天天干 | 五月网婷婷 | 久久青青91费线频观青 | 日狠狠| 激情综合网色播五月 | 99久久精品免费看国产 | 日韩欧美在线视频一区二区 | 成人高清视频免费观看 | 午夜在线观看免费观看大全 | 国产精品网址 | 欧美日本激情 | 免费视频吃奶玩乳不遮挡 | 成人免费网站久久久 | 夜夜bb| 欧美性猛交xxxx | 亚洲网址在线 | 免费播放巨茎人妖不卡片 | 成人亚洲网站www在线观看 | 国产一区二区三区四区在线观看 | 日本久久久久 | 99视频精品全部国产盗摄视频 | 一级毛片人与动免费观看 | 国产年轻大学生情侣在线 | 天天干天天玩 | 中文字幕免费观看视频 | 欧美激情不卡 | 韩国一级毛片 | 在线欧美国产 | 青草网 | 极品国产高颜值露脸在线 | 亚洲美女久久 | 国产精品免费久久 | 国产精品日韩欧美亚洲另类 | 成人午夜精品久久久久久久小说 | 欧美日韩成人午夜免费 | 福利视频国产 | 中文字幕久久综合伊人 |