Question

我的数据库中有一个logTable，用于someTable上的日志更改。

logTable有三列：

首先是商店列名称，其值已更改;
第二个旧价值;
第三是新价值。

第二列和第三列具有sql_variant数据类型。

在我的程序中，我从这个表中获取数据，oldValue和newValue是一个字节数组。

例如：

logTable中的行：


columnName(nvarchar(50)) oldValue(sql_variant)  newValue(sql_variant)

compName    name1       name2
address  "address1"  "address2"
zip      123         134
phone      123456789   987654321

但我在字节数组中得到oldValue和newValue值。

像：


address "byte array"   "byte array"
zip     "byte array"   "byte array"
phone   "byte array"   "byte array"

代替：


address  "address1" "address2"
zip     123         134
phone    123456789   987654321

我用这个代码从DB获取数据：


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open connStr
Set rsData = Server.CreateObject("ADODB.Recordset")
Set objComm = Server.CreateObject("ADODB.Command")
Set objComm.ActiveConnection= Conn
objComm.CommandText="usp_Log_GetOperationDetails"
objComm.CommandType = adCmdStoredProc 
objComm.Parameters.Append objComm.CreateParameter("@CompanyId",adInteger,adParamInput)
objComm.Parameters("@CompanyId")=Request("CompanyId")
objComm.Parameters.Append objComm.CreateParameter("@tableName",adVarChar,adParamInput, 50)
objComm.Parameters("@tableName")=Request("tableName")
rsData.CursorLocation = adUseClient
rsData.CursorType = adOpenStatic
Set rsData.Source = objComm
rsData.Open

If NOT rsData.EOF AND NOT rsData.BOF then
   Do While NOT rsData.EOF
    rsDataOldValue = rsData("OldValue")
    rsDatanewValue = rsData("NewValue")
        rsData.MoveNext
   Loop
End If

rsData.Close
Set rsData = Nothing
Conn.Close
Set Conn = Nothing
Set objComm = Nothing

如何将字节数组转换为正确的字符串值？

由于

Answer 1

您是否尝试过在SQL查询中进行投射？

SELECT CAST(oldvalue AS varchar(100)) from logTable

编辑：如果演员不会做好，那么你需要编写一个像这样的函数，一次一个地将字节转换成一个字符串（注意：我没有测试过这个，因为我目前不在Windows上）

function ByteArrayToString(theArray)
    dim i, str

    if vartype(theArray) < 8192 then
           exit function
    end if
    for i=lbound(theArray) to ubound(theArray) 
       str = str & asc(theArray(i))
    next
    ByteArrayToString = str
end function

要测试它，请尝试

MsgBox(ByteArrayToString(rsDataOldvalue))

将字节数组转换为vbscript中的字符串值

1 个答案: