>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.close >>
>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 >Endif >>Espero que te ajude ...