¿Cómo crear una base de datos que pueda ser ingresada?

Las imágenes se pueden poner en la base de datos. Tome ACCESO como ejemplo. Debe utilizar tipos de datos OLE.

Luego, la imagen se convierte en datos binarios largos y se almacena. Al leer, se puede generar la imagen oculta del sistema.

El corte se muestra luego en el control de imagen.

Mi respuesta es definitivamente correcta porque lo he hecho. Si aún no lo entiendes, puedes venir a mi espacio.

Deja un mensaje y deja tus datos de contacto y te daré el código. Yo uso VB, uso VB para colocar imágenes.

Ponlo en ACCESS y luego léelo. En realidad, es un pequeño programa muy simple.

No tengo nada que hacer recientemente, así que será mejor que lo publique.

Marcar cc() como bytes

Atenuar i

Dim t

Subcomando privado 1_Click()

CommonDialog1.filter = "imagen jpg (*.BMP)|*.BMP"

CommonDialog1. MostrarOpen

Si CommonDialog1. Nombre del archivo lt gt" "luego

Imagen 1. imagen = cargar imagen (diálogo común 1. nombre de archivo)

strname = CommonDialog1. Nombre de archivo

Abrir cadena de archivo binario como #1

LOF(1) - 1)

T = cc(LOF(1)-1) 'Al leer binario, si se trata de una operación de archivo, implica la cuestión de cuántos bytes obtener del archivo, por lo que se debe especificar el tamaño de la matriz de bytes.

Obtener #1,, CC

Cerrar

Otro

MsgBox "No hay imagen seleccionada"

Finaliza if...

Conector final

Subcomando privado 2_Click()

Adodc1. Actualizar

Adodc1. Recordset.AddNew

Adodc1. Recordset.Fields("id") = i

Adodc1. recordset.field("qq") = cc

i = i 1

Adodc1. recordset.update

Adodc1. Actualizar

Conector final

Subcomando privado 3_Click()

Adodc1. Actualizar

Atenuar P() como bytes

Adodc1.recordsource = "Seleccione QQ de la tabla 1 donde id='" Texto1. Text amp"

p = adodc 1 . recordset . campos(" QQ ")'Al asignar un conjunto de datos binarios a una matriz binaria, no es necesario especificar el tamaño de la matriz, porque están todos asignados.

Abrir la ruta de la aplicación con la ruta "\oo.bmp" para el binario Como #1

P

Cerrar

Conector final

Subcomando privado 4_Click()

Abrir la ruta de la aplicación con la ruta "\oo.bmp" para el binario Como #1

Poner #1, CC.

Cerrar

Conector final

Subform_Load() privado

i = 1

Conector final

Yo controlo el mundo

Márcame como la mejor respuesta

.