how to update binary field types in ADO

Hi,

Having some difficulties updating binary fields. This bit of code
seems to work fine in VB6, but when I make the minor changes necessary
for it to run in VBscript the Update never happens.

In fact the assigment to fld.Value doesn't appear to happen since
msgbox fld.Value(0) after the assignment does nothing. Is this
something that is beyong the capabilities of VBscript?

Thank You!


Dim arrBin(7) As Byte
Dim b As Integer
Dim strBin As String
strBin = "bintest"

For b = 1 To 7
arrBin(b - 1) = Asc(Mid(strBin, b, 1))
Next

While Not oRs.EOF
For Each fld In oRs.Fields
lngtype = fld.Type
Select Case lngtype
Case adBinary, adVarBinary, adLongVarBinary
fld.Value = arrBin
oRs.Update
End Select
Next
oRs.MoveNext
Wend
.

Relevant Pages

  • Re: how to update binary field types in ADO
    ... something that is beyong the capabilities of VBscript? ... Dim arrBinAs Byte ... Dim strBin As String ... Select Case lngtype ...
    (microsoft.public.scripting.vbscript)
  • Re: Another Access Scripting Question
    ... A wrinkle I often use when writing anything but the simplest VBScript is ... Dim App 'As Access.Application ... The database I built with all the queries works, ...
    (microsoft.public.access.modulesdaovba)
  • Re: Need WMI script
    ... How to handle the errors in vbscript. ... Dim strDomainName, strNodeText, strXmlBuilder ... However, if you use the cscript host, ... you can use a command similar to below at a command prompt: ...
    (microsoft.public.windows.server.scripting)
  • Re: Need WMI script
    ... Error handling in VBScript is obviously not as good as in .NET. ... normal error handling with "On Error GoTo 0". ... Dim adoCommand, adoConnection, strBase, strFilter, strAttributes, xmlDoc, ... you can use a command similar to below at a command ...
    (microsoft.public.windows.server.scripting)
  • Re: Another Access Scripting Question
    ... A wrinkle I often use when writing anything but the simplest VBScript is ... Dim App 'As Access.Application ... The problem SQL I am having is with an update query which is removing spaces ... The database I built with all the queries works, ...
    (microsoft.public.access.modulesdaovba)