¿Cómo leer datos dentro o desde la base de datos?
Utilice ADODB. Transmita archivos de imagen guardados/leídos a la base de datos.
Consulte la biblioteca Microsoft ActiveX DataObjects 2.5 y superior.
Guardar el archivo en la base de datos.
SubsaveFile()
Atenuar Stm como nuevo ADODB. Transmite
DimCnn como nuevo en ADODB. Relación
Atenuar rs como nuevo ADODB. Recordset
Atenuar strCnn como String
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0PersistSecurityInfo=False DataSource="amp_
App. Caminos y caminos. " \DB1.mdb "
Cnn. Abra strCnn
Lea el archivo en la memoria (modo binario)
Utilice Stm
. Tipo = adTypeBinary
. Abrir
. Aplicación LoadFromFile. Ruta "\Image1.bmp "
Termina con...
Con rs
. Abra "SELECCIONAR * DE TABLA1", Cnn, 1, 3
. Añadir nuevo contenido
. Campos("IMAGEN") = Stm. Leer
. Actualización
Termina en
rs. Cerrar
Stm. Cerrar
Establecer rs=Ninguno
Establecer Cnn=Ninguno
Establecer Stm=Ninguno
Finalizar montaje
Leer archivo de imagen de la base de datos
SubReadFile()
Dim Stm como nuevo ADODB. Transmite
DimCnn como nuevo en ADODB. Relación
Atenuar rs como nuevo ADODB. Recordset
Atenuar strCnn como String
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0PersistSecurityInfo=False DataSource="amp_
App. Caminos y caminos. " \DB1.mdb "
Cnn. Abra strCnn
rs. Abra "Seleccione imagen de la tabla 1 donde ID = 18", Cnn, adOpenKeyset, adLockReadOnly
Guardar en archivo
Usar Stm
. Modo = adModeReadWrite
. Tipo = adTypeBinary
. Abrir
. Escribe rs("imagen")
. Aplicación SaveToFile. Ruta "\Image2.bmp "
Termina con...
Mostrar imagen
Imagen 1. Imagen = LoadPicture(App.Path "\Image2.bmp ")
rs. Cerrar
Stm. Cerrar
Establecer rs=Ninguno
Establecer Cnn=Ninguno
Establecer Stm=Ninguno
Finalizar montaje