Visual Basic - ayudaaa

Life is soft - evento anual de software empresarial
   
Vista:

ayudaaa

Publicado por Enrique (1 intervención) el 30/06/2009 14:29:06
Hola, me estuve guiando de acuerdo a todo lo que han colocado en este foro acercade como insertar eliminar y cambiar imagenes desde VB a mysql, gracias a sus aporte logre ingresar una imagen y vizualizarla. Estoy intentando cambiarla pero no lo he logrado, es decir que desde de mi aplicacion tenga una imagen y quiera cambiarla por otra. Estoy utilizando el siguiente codigo. El cual no me arroja ningun error pero no me hace el cambio!
Espero me puedan ayudar.
Gracias.

Set conn = New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim mystream As ADODB.Stream
Set mystream = New ADODB.Stream
mystream.Type = adTypeBinary
mystream.Open
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=enlace; UID=root; PWD=1234; OPTION= & 1 + 2 + 8 + 32 + 2048 + 16384"
conn.Open
rs.Open "SELECT * FROM imagen WHERE 1=0", conn, adOpenStatic, adLockOptimistic
mystream.LoadFromFile "c:updateimage.gif"
mystream.Close
rs.AddNew
mystream.Open
CommonDialog1.ShowOpen
mystream.LoadFromFile CommonDialog1.FileName
rs.Fields("foto") = mystream.Read
'rs.Update
mystream.Close

MsgBox "La Imagen ha sido cambiada satisfactoriamente", vbOKOnly + vbInformation, "Informacion"
' mystream.Close

conn.Close
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayudaaa

Publicado por jaime guerrero (361 intervenciones) el 30/06/2009 17:56:59
comenta rs.AddNew
descomenta 'rs.Update

a parte, poner la ruta completa
"c:updateimage.gif"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar