Vb6 - Gravar imagens no SQL
Por favor, alguem sabe como faco para gravar no sistema em vb6 uma imagem (picture) dentro de um campo no SQLSERVER do tipo IMAGE
Agradeço desde já...Obrigado
Estou fazendo do jeito abaixo , mas nao funciona
SQL = "select icone,botao from SenSistemas where CodSys ='" & sCodSys & "'"
rs.Open SQL, cnBanco, adOpenDynamic, adLockBatchOptimistic
If rs.EOF = False Then
If PicBotao.Picture = picLimpo.Picture Then
rs.Fields(sNomeCampo) = vbEmpty
Else
rs.Fields(sNomeCampo).AppendChunk bytData
If UCase(sNomeCampo) <> "FOTO" Then
Dim pTeste As New StdPicture
Set pTeste = PicBotao
' rs.Fields(sNomeCampo) = bytData
End If
End If
End If
rs.Update
rs.Close
Set rs = NothingDiscussão (0)
Carregando comentários...