2.8w+
社区成员
- 主页
一个SQL语句取出来的数据类型的问题
写了一个sql语句从MSSQL数据库中取数据，期中FSS_Data_Num为numeric型，取出来的数据是什么类型？怎么转换成数字型？我用IsNumeric判断为不是数字型。SQL语句如下：
select sum(FSS_Data_Num) as sumFSS_Data_Num from FSS_Storage_In_Product inner join FSS_Storage_In on FSS_Storage_In_Product.FSS_In_Id=FSS_Storage_In.FSS_In_Id where FSS_Data_Id="&getFSS_Data_Id&"
select sum(FSS_Data_Num) as sumFSS_Data_Num from FSS_Storage_In_Product inner join FSS_Storage_In on FSS_Storage_In_Product.FSS_In_Id=FSS_Storage_In.FSS_In_Id where FSS_Data_Id="&getFSS_Data_Id&"
...全文
请发表友善的回复…
发表回复
fangzhou 2004-04-09
楼上的给这个函数干嘛？我估计是sum()这个东西出了问题，它计算出来的是什么类型的数据？那个数据怎么不能用Cdbl()来转换？
moeryang 2004-04-08
ado的帮助
Type 属性范例
该范例通过显示与雇员表所有 Field 对象的 Type 属性值对应的常量名说明 Type 属性。该过程运行时需要 FieldType 函数。
Public Sub TypeX()
Dim rstEmployees As ADODB.Recordset
Dim fldLoop As ADODB.Field
Dim strCnn As String
' 使用雇员表中的数据打开记录集。
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
Set rstEmployees = New ADODB.Recordset
rstEmployees.Open "employee", strCnn, , , adCmdTable
Debug.Print "Fields in Employee Table:" & vbCr
' 枚举雇员表的字段集合。
For Each fldLoop In rstEmployees.Fields
Debug.Print " Name: " & fldLoop.Name & vbCr & _
" Type: " & FieldType(fldLoop.Type) & vbCr
Next fldLoop
End Sub
Public Function FieldType(intType As Integer) As String
Select Case intType
Case adChar
FieldType = "adChar"
Case adVarChar
FieldType = "adVarChar"
Case adSmallInt
FieldType = "adSmallInt"
Case adUnsignedTinyInt
FieldType = "adUnsignedTinyInt"
Case adDBTimeStamp
FieldType = "adDBTimeStamp"
End Select
End Function
Type 属性范例
该范例通过显示与雇员表所有 Field 对象的 Type 属性值对应的常量名说明 Type 属性。该过程运行时需要 FieldType 函数。
Public Sub TypeX()
Dim rstEmployees As ADODB.Recordset
Dim fldLoop As ADODB.Field
Dim strCnn As String
' 使用雇员表中的数据打开记录集。
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
Set rstEmployees = New ADODB.Recordset
rstEmployees.Open "employee", strCnn, , , adCmdTable
Debug.Print "Fields in Employee Table:" & vbCr
' 枚举雇员表的字段集合。
For Each fldLoop In rstEmployees.Fields
Debug.Print " Name: " & fldLoop.Name & vbCr & _
" Type: " & FieldType(fldLoop.Type) & vbCr
Next fldLoop
End Sub
Public Function FieldType(intType As Integer) As String
Select Case intType
Case adChar
FieldType = "adChar"
Case adVarChar
FieldType = "adVarChar"
Case adSmallInt
FieldType = "adSmallInt"
Case adUnsignedTinyInt
FieldType = "adUnsignedTinyInt"
Case adDBTimeStamp
FieldType = "adDBTimeStamp"
End Select
End Function
fangzhou 2004-04-08
高手都到哪儿去了
fangzhou 2004-04-08
用cint，cdbl都会报错：
错误类型：
Microsoft VBScript 运行时错误 (0x800A005E)
/fss/storage/storage.asp, 第 85 行
错误类型：
Microsoft VBScript 运行时错误 (0x800A005E)
/fss/storage/storage.asp, 第 85 行
xhuad 2004-04-08
用cint()试一下
fangzhou 2004-04-08
补充一下，显示到页面上是：322，真是有点怪