SoloCodigo

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.

Hola soy yo nuevamente, gracias por tu atención, pero donde tengo que poner ese código,

¿ En propiedades? - No encuentra el fichero

¿En Private Sub DataEnvironment_Initialize() ? - Necesita un objeto

¿En Private Sub PUBLICACION_InfoMessage(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)?  - Necesita un objeto

lo he probado en todos los sitios, te agradecería que me lo aclararas. solo funciona esta línea pero cuando esta en propiedades ConnectionSource:

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

 

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 gracias por vuestra ayuda, he comprobdo las propiedades del Dataenviroment y existe connectionsource.

Esta línea:

private gsdatabaseName = "\PUBLICACION.MDB" no la admite da errores continuos dice que se esperaba FIN DE LA INSTRUCCION solo admite                private gsdatabaseName (PUBLICACION.MDB) pero da ATRIBUTO NO VÁLIDO EN PROCEDIMIENTO O FUNCION.

Eliminando la linea anterior y variando esta

connection1.ConnectionString  =
"Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + "C:\PUBLICACION.DB"
END SUB
 
Me pide nombre de DNS

Estoy un poco liado, serias tan amable de explicarmelo nuevamente simplificando los pasos, es que no arranco.
Gracias espero vuestra ayuda.

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.

Hola chicos, soy yo nuevamente me parece que estoy pesado pero esto no consigo que tire.

He corrido la rutina que me enviaste y efectivamente funciona, pero asi tambien funciona la mia, el problema surge cuando creamos un informe, tanto en tu rutina como en la mia, al abrirlo es cuando da el error:


El proveedor sumistrado es diferente del que ya esta en uso

y he buscado pero no encuentro donde se comprueba el Provider y DNS

a veces haciendo cambios y probando me sale una ventana preguntádome por el DataSource etc... lamento estar tan pesado con esto, pero es muy importante para mi e incluso creo que puede ayudar a mas gente, es un tema poco conocido y muy útil.

Gracias espero que podais ayudarme.

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, te lo he dicho en el correo anterior, ya lo he probado todo, el programa que me has mandado funciona, pero

Al crear un informe e intentar abrirlo me sigue saliendo el dichoso

El proveedor sumistrado es diferente del que ya esta en uso

le he puesto que me diga el Provider y me sale MSDASQL.1

¿ Serias tan amable de probar tu programa abriendo un informe (con datos) ? quizá así veas mejor lo que te digo, no se como decirle al programa que la connection es otra.

connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + app.path + nombredb

Sin datos funciona bien. Si es necesario te envio mi programa es poca cosa, si sirve para ayudarme y mejorar.

Gracias espero tu ayuda.

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!.