各位老师请帮助看看下面的代码如何修改一下:
表: tblWACO里面的字段为short Text格式,现在想修改为Number格式,请问下面的代码如何调整,谢谢
Function allln(CO As String, 子项 As String, Actuator_date As Date, TEXT_No As String) As String
Dim rs As New ADODB.Recordset '定义一个ado数据集
Dim ssql As String
Dim i As Long
Dim str As String
ssql = "SELECT co,ln,子项,Actuator_date,TEXT_No FROM tblWACO "
ssql = ssql & "WHERE co='" & CO & "' and 子项='" & 子项 & "'and Actuator_date=#" & Actuator_date & "# and TEXT_No='" & TEXT_No & "' "
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '打开一个数据集
For i = 1 To rs.RecordCount
str = str & rs!LN.Value & "," '循环拼接字符串
rs.MoveNext
Next
allln = Left(str, Len(str) - 1) '去掉尾部逗号后作为函数的返回值
rs.Close
Set rs = Nothing
End Function 作者: yanwei82123300 时间: 2018-11-9 14:02
表: tblWACO里面的TEXT_No字段为short Text格式作者: roych 时间: 2018-11-9 17:53
实话说，没看懂你的表达。
1、表tblWACO的字段TEXT_No是文本还是数值？如果当前是数值，where部分，把对应的单引号去掉，参数改为对应的数值格式即可（整型建议用long，小数建议用double）。
2、如果需要将tblWACO的字段TEXT_No由文本改为数值，请在设计视图下修改。用代码的话，实现的难度比较大。alter似乎没法直接修改字段类型，只能先删除已有的字段，再新增字段，这样会丢失数据。 作者: yanwei82123300 时间: 2018-11-9 18:31
表: tblWACO里面的TEXT_No字段为文本格式,roych 老师谢谢您的帮助作者: Henry D. Sy 时间: 2018-11-11 20:22
什么意思？作者: yanwei82123300 时间: 2018-11-12 12:42
Henry D. Sy老师谢谢已经解决,就是文本类型的,改变为数值型,在VBA里面如何修改的问题