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 = Nothing
Seguinte. Eu não, mas acho que TODOS os desenvolvedores estão no mato sem cachorro no que se refere a esse problemão, que é a atualização do site lá no browser do seu usuário/visitante. Seja no acesso pelo computador e, pior ainda, pelo celular.
Quando altero o arquivo stylo.css ou alguma imagem o browser, principlmente o Google Chrome NÃO ATUALIZA. No computador, só atualiza se eu teclar CTRL+F5, mas se pensarmos no visitante não dá né? "Nivelando por baixo", imagine aquele visitante do seu site que não entende bulufas... Vou ter que colocar no site um aviso pra todo mundo apertar CTRL+F5 para atualizar a página? Quando? Sempre? Um INFERNO.
E quanto ao acesso do visitante pelo celular? Pior ainda.
Então estou à procura de uma solução transparente ao usuário. No que se refere às imagens, encontrei soluções razoáveis, mas quanto ao arquivo CSS, nada encontrei.
Se alguém souber de alguma "mágica" que resolva esse problema, compartilhe. TODOS os demais desenvolvedores agradecem.
Obrigado
Eu estou tentando instalar o sgbd navicat para acessar meu banco de dados, porém sem sucesso.
Pergunta: Para usar o sgbd navicat é necessário instalar o mysqlserver ou o navicat já traz no pacote dele ao instalar?
Aguardo.
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 = Nothing
Compartilhar este post
Link para o post
Compartilhar em outros sites