Local lcSql Local strStream As ADODB.Stream lcSql = "select IMAGEM from TABELA" oRs.open(lcSql,oConn) If !Empty(oRs.Fields("IMAGEM").Value) oRs.Fields("filialLogo").Value = Null oRs.Update() Endif sFileName = "c:\minha_imagem.jpg" oPict = LoadPicture(sFileName) strStream = Createobject("ADODB.Stream") strStream.Type = 1 && adTypeBinary strStream.Open strStream.LoadFromFile(sFileName) oRs.Fields("filialLogo").Value = strStream.Read oRs.Update() strStream.Close oRs.closePara ler a Imagem do SQL-SERVER
Local lcSql Local strStream As ADODB.Stream lcSql = "select IMAGEM from TABELA" oRs.open(lcSql,oConn) If Type("oRs.Fields('IMAGEM').Value") <> "U" strStream = Createobject("ADODB.Stream") strStream.Type = 1 && adTypeBinary strStream.Open strStream.Write(oRs.Fields("IMAGEM").Value) If File("temp\Temp.jpg") Delete File "temp\Temp.jpg" Endif strStream.SaveToFile("temp\Temp.jpg",1) oRs.Close strStream.Cancel strStream.Close EndifEspero que te ajude ...