BUENO PROGRAMADORES AYER PUBLIQUE ALGO QUE NO ME HA AYUDADO.. HOY HICE EL CODIG MAS CORTO Y SE LOS MUESTRO.. DE ESTA MANERA QUE ESTA A CONTINUACION YO GUARDO LOS REGISTROS Y LA FOTO. EN ESTE CAS SOLO MUESTRO COMO GUARDO LA FOTO QUE ES LO QUE ME INTERESA.
TODO ESTO ESTA E EL FORMULARIO AGREGAR..
Código:
Private Sub Agregar_Registro()
Dim rs As New ADODB.Recordset
Dim st As New ADODB.Stream
'cargamos la imagen...
st.Type = adTypeBinary
st.Open
st.LoadFromFile imgPic.Tag
rs.Open "SELECT * FROM registro", nc, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!Foto = st.Read
rs.Update
rs.Close
Set rs = Nothing
st.Close
Set st = Nothing
MsgBox "Se agrego un nuevo registro a la lista", vbInformation, "Guardado"
Unload Me
End Sub
LO QUE QUIERO ES QUE DESDE EL FORMUARIO QUE SE LLAMA PRINCIPAL AL DARLE DOBLE CLIC AL LISTVIEW SE ME CARGUEN LOS DATOS Y LA FOTO DE CADA PERSONA DETERMINADA A FORMULARIO EDIT. ESPERO AHORA SI ME ENTIENDAN Y ME PUEDAN AYUDAR