SoloCodigo

Gracias a todos por la ayuda, y graciass a rmario voy a probarlo os tendré informados.

Hola chicos,

Nada he intentado, añadiendo el update como me dijo CYCLOP y tambien VRADOK , no hay forma que lo almacene, seguramente será algo que falta pero no lo veo, espero que podais ayudarme por favor. Es importante que pueda almacenar las fotografias.

¿ Creeis que debería pasarme a un DATA ?

Gracias por vuestro tiempo.

Trazos

 Hola chicos, nuevamente estoy aqui para preguntar algo, espero que podais ayudarme.

-Tengo un formulario en VB6.0 con un dat Adodc y con un CAMPO- Imagen-, cuando recorro el data funcionan todos los campos, pero al pinchar la IMAGEN (campo OLE ), para modificarla ejecuta el siguiente código:

Private Sub Fotografía_Click()
With CajaComún
        .DialogTitle = "Asociar fotografía"
        .Filter = "Mapas de bits (*.bmp, *.gif, *.jpg)|*.bmp;*.gif;*.jpg|Iconos (*.ico)|*.ico|Meta-archivos (*.wmf)|*.wmf"
        .Flags = cdlOFNFileMustExist
        .ShowOpen
        Fotografía.Picture = LoadPicture(.FileName)
End With
       
End Sub

Se abre el arbol, selecciono la imagen, me la presenta pero al pasar al siguiente registro, al mover el data la borra y cuando vuelvo no exite la misma, osea que no la graba.

¿ Que estoy haciendo mal ?, ¿ Me falta alguna instrucción?, ¿ Debo hacerlo con un DATA normal ?

Gracias por vuestra atención espero que podais ayudarme. Hasta siempre amigos.

 

:hola:Gracias por tu ayuda Brroz pero no consigo el formato horizontal en tiempo de ejecucion, le modifico en las propiedades ReportWith y me contesta que el ancho del informe es mayor que el ancho del papel.
No se por donde meter mano, sigo investigando, si se os ocurre algo dadme un toque,sera agradecido.
Graciassssssssssssss

Hola amigos,

- Utilizo transferdatabase para importar las tablas de Access pero cada vez que lee una tabla me pide la contraseña. Según la ayuda poniendo True tras la última coma, la guardaría después de la primera vez, pero no lo hace, me la vuelve a pedir.

DoCmd.TransferDatabase acImport, "Microsoft Access", _
a, acTable, miTabla.Name, _
miTabla.Name & "_COPIA",, True CREO QUE SE PONE AQUI PERO NO SE COMO

Alguien sabe donde está el error, es un poco latoso ir metiendo la clave para cada tabla. Gracias espero vuestra ayuda.

Hola gente, muchas gracias micc tu rutina me ha ido de maravilla, lee todas las tablas, la verdad es que no daba con la tecla de leerlas todas, solo leia una a una.

Bueno tengo otra pequeña pega , resulta que la base de datos tiene una clave y cada vez que lee una tabla me la pide. ¿ Tu no sabrias o algún amigo que nos este leyendo como introducir la clave en la siguiente línea para que solo la pida la primera vez? en la ayuda explica como hacerlo pero no me entero, os estaría agradecido es un poco latoso meter la clave para cada tabla.


DoCmd.TransferDatabase acImport, "Microsoft Access", _
a, acTable, miTabla.Name, _
miTabla.Name & "_COPIA",, CREO QUE SE PONE AQUI PERO NO SE COMO

Gracias espero vuestra ayuda

Hola amigos,Tengo una base de datos en Access y necesito importar las tablas de otra mas antigua. Necesito importar las tablas y que solo me pida la clave la primera vez, el resto de las tablas ya no me la pida, el código que utilizo es el siguiente pero siempre me la pide y tengo que poner una línea para cada tabla.

Dim a
a = Texto52

DoCmd.TransferDatabase acImport, "Microsoft Access", _
    a, acTable, "BAJAS", _
    "BAJAS_COPIA"
DoCmd.TransferDatabase acImport, "Microsoft Access", _
    a, acTable, "CIUDAD", _
    "CIUDAD_COPIA"

¿Podriais ayudarme para importe todas las tablas de una vez y que solo pida la contraseña una sola vez?

Gracias por vuestra ayuda, espero poder solucionarlo.

Gracias!!!! a todos por vuestra paciencia y ayuda. Desarrollando todo esto que me habeis aportado he onseguido aprender y además he ido utilizandolo para otras rutinas que no tenia salida.

He utilizado la ayuda de QliX=D! solo hay una pequeña variación en lugar de poner toda la línea en el código solo hay que poner una parte osea:

Private Sub DataEnvironment_Initialize()
      gsdatabase = "PUBLICACION.MDB"
      DataEnvironment1.PUBLICACION.ConnectionString = "Data Source = "+         App.Path + "\" + gsdatabase
End Sub
y esto en PROPIEDADES de la Conexión en ,ConnectionSource

Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False

lo pongo aqui por si alguien lo necesita a mi ha venido de perilla.
shaman61 gracias también a ti, he probado tu rutina y también funciona, la guardaré seguro que le daré aplicación. Gracias a todos por vuestra ayuda y especialmente a shaman61 y QliX=D!.

Valeeeeeeeeeee, pero la línea que me has dicho esta revisada y esta bien lo que no se es porque pone que EL PROVEEDOR ES DIFERENTE DEL QUE YA ESTA EN USO, ¿donde se le dice el proveedor que tiene que utilizar?

Además la aplicación que tu has mandado tambien da el error, a partir de que creas un informe y quieres ejecutarlo.

Por favor no perdais la paciencia, gracias

Hola garcias por vuestra paciencia, es que tenia un lio en la cabeza y no lo veia, ya lo tengo pero meda el siguente error


El proveedor sumistrado es diferente del que ya esta en uso

Estoy utilizando VB6 y la BD es de Acces 97, tiene algo que ver onel error?

Gracias por la paciencia demostrada. Espero vuestra ayuda.

Estimado amigo, ya lo hice lo puse en el Form Menu  en su Load  pero me dice que le falta un objeto,

gsdatabase = "C:\PUBLICACION.MDB"
DataReport.ConnectionSource = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + gsdatabase

y si le pongo el nombre del formulario


Menu.DataReport.ConnectionSource = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + "c:\Publicacion.mdb"

 me dice que no encuentra el método o miembro de datos.


Espero vuestra ayuda gracias.

Hola amigos,

Estoy terminando con los informes, y resulta que cuando la Base de datos la muevo ya no salen porque no la encuentra.

Como sabeis no hay problema si la colocamos en ConnectionSource de esta manera:

Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Publicacion.mdb

Pero si al instalar el programa la colocanen otro directorio ya no la encuentra.

¿ Como y donde puedo decirle yo a la ConecctionSource que esta la basa de datos cuando la necesita para hacer un informe?

¿ Tambien tengo problemas con los documentos horizontales no me salen, sabeis porque? ¿ Donde debo decirle que es apaisado?

Gracias, espero que podais ayudarme, necesito acabar esto.