作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VBA ]将varchar数值'true'转换成资料型别为bi …
时间Sat Nov 17 16:57:05 2007
Function AccessValues(ParamArray Values() As Variant) As String
Dim Value As Variant, output As String
Dim vt As VbVarType
For Each Value In Values
If output <> "" Then output = output & ","
vt = VarType(Value)
If vt = vbBoolean Then
'布林值(是/否) 转换成 1 或 0
If Value Then Value = "1" Else Value = "0"
ElseIf vt = vbString Then
'字串将字串中的双引号转换成 2 个双引号，并於头尾加上双引号
'Access 是用双引号当字串识别符号，SQL Server 是单引号
Value = Chr(34) & Replace(Value, Chr(34), Chr(34) & Chr(34)) & _
Chr(34)
ElseIf vt = vbInteger Or vt = vbLong Or vt = vbSingle Or _
vt = vbDouble Or vt = vbCurrency Or vt = vbDecimal Then
'数字不需要任何处理
ElseIf vt = vbDate Then
'日期
Value = Chr(34) & Format(Value, "yyyy/mm/dd hh:mm:ss") & Chr(34)
ElseIf vt = vbNull Then
'Null 值
Value = "Null"
Else
Err.Raise 13
'型态不符
End If
output = output & Value
Next
AccessValues = output
End Function
'''
CurrentProject.Connection.Execute "insert into 订购检验一览表 " & _
"(检验日期,料号检验者,OK,NG) values (" & _
AccessValues(rst.Fields("检验日期").Value, rst.Fields("料号").Value, _
rst.Fields("检验者").Value, rst.Fields("OK").Value, _
rst.Fields("NG").Value) & ")"
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.100.4
1F：推 mindscold:感谢版大…但小女子真的不懂为何2张表的栏位型态一样 11/17 17:13
2F：→ mindscold:却还要多做一次型态转换的动作？ 11/17 17:14
3F：推 fumizuki:不是型态的问题 是sql命令要用1和0表示布林值 11/17 17:46
4F：推 fumizuki:vb会用True和False来表示布林值 11/17 17:47