• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

EneMy

Pegando o valor original da coluna varbinary do mssql

1 mensagem neste tópico

Ola pessoal, eu estou criando um programa, mais ele tem que pegar o valor original do MSSQL da uma coluna varbinary, tive muitos problemas ate que cheguei nesse codigo e obtive outro problema que não estou conseguindo resolver =/

Olhem:

Dim dbConn As ADODB.Connection
Dim RS As ADODB.Recordset
Dim cmd As ADODB.Command
Dim st As ADODB.Stream
Public szConn As String
Dim GuildMarkData() As Byte

Function Carregar_Logo_DB()
Dim Logo() As Byte
Set cmd = New Command
Set dbConn = New ADODB.Connection
dbConn.ConnectionString = szConn
dbConn.Open
szSQL = "Select G_Mark from Guild"
Set RS = New ADODB.Recordset
RS.Open szSQL, dbConn
'DataType = adVarBinary
Logo = RS.Fields("G_Mark").Value
Call MakeGuildMarkMatrix(Logo)
End Function

Public Sub MakeGuildMarkMatrix(ByRef MarkData() As Byte)
Dim MarkMatrix(7, 7) As Byte
Dim i As Byte
Dim j As Byte
Dim z As Byte
Dim tmpHash As String
tmpHash = ""
If UBound(MarkData) <> 31 Then
Exit Sub
End If
For i = 0 To UBound(MarkData)
tmpHash = IIf(Len(Hex(MarkData(i))) = 1, "0" & Hex(MarkData(i)), Hex(MarkData(i)))
'MsgBox tmpHash
Next
For i = 1 To Len(tmpHash) Step 8
For j = 0 To 7
MarkMatrix(z, j) = "&H" & CByte(Mid(tmpHash, j + i, 1))
Next
z = z + 1
Next
MsgBox MakeGuildMatrix
End Sub

O erro acontece nessa parte do codigo:

MarkMatrix(z, j) = "&H" & CByte(Mid(tmpHash, j + i, 1))

Alguem pode me ajudar ?

obs: desculpe se eu postei antes da minha ultima pergunta tiver sido respondida, e porque eu desisti dela  :biggrin:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora