se me cambia de nombre la base de datos

[guillebomtrasmiti]

Hola estimados y super amigos del foro, un cliente me llama diciendo que le sucede que al usar el boton de imprimir informe se le cambia la base de datos de nombre, el caso es que he ido a verlo y es cierto, se pone como DB1.mdb...el caso es que a mi no me pasa y el procedimiento es este...alguién le ha sucedido?¿?


'imprime informe
Private Sub UltraButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UltraButton2.Click
Try
copiaintrointro2()

Dim oAccess As Access.Application

'Start a new instance of Access for Automation:
' oAccess = New Access.ApplicationClass()
oAccess = New Access.Application

'Open a database in exclusive mode:
oAccess.OpenCurrentDatabase(filepath:="C:\Ges\Gppe sion.mdb", Exclusive:=False)

'Preview a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dntas_ta", _
View:=Access.AcView.acViewPreview)
'Print a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dntas_ta", _
View:=Access.AcView.acViewNormal)
oAccess.CloseCurrentDatabase()

Catch
MessageBox.Show("Tiene problemas con su visor de documentos en Windows reinstale su paquete office 2003")
End Try
End Sub

[AnibalDiaz]

¿Y que es lo que hace copiaintrointro2()?

Iniciado por guillebomtrasmiti

Hola estimados y super amigos del foro, un cliente me llama diciendo que le sucede que al usar el boton de imprimir informe se le cambia la base de datos de nombre, el caso es que he ido a verlo y es cierto, se pone como DB1.mdb...el caso es que a mi no me pasa y el procedimiento es este...alguién le ha sucedido?¿?


'imprime informe
Private Sub UltraButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UltraButton2.Click
Try
copiaintrointro2()

Dim oAccess As Access.Application

'Start a new instance of Access for Automation:
' oAccess = New Access.ApplicationClass()
oAccess = New Access.Application

'Open a database in exclusive mode:
oAccess.OpenCurrentDatabase(filepath:="C:\Ges\Gppe sion.mdb", Exclusive:=False)

'Preview a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dntas_ta", _
View:=Access.AcView.acViewPreview)
'Print a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dntas_ta", _
View:=Access.AcView.acViewNormal)
oAccess.CloseCurrentDatabase()

Catch
MessageBox.Show("Tiene problemas con su visor de documentos en Windows reinstale su paquete office 2003")
End Try
End Sub

[guillebomtrasmiti]

abre un informe de access

[guillebomtrasmiti]

quiere decir abre el informe que lo abro con la impresora por defecto del pc, que es un visor PDF, cuando cierro el visor la aplicación me deja de funcionar y es por que la base de datos deja de llamarse por su nombre y pone db1.mdb

[Aquaventus]

Hola guille, lo que te comenta AnibalDiaz es que pegues tu codigo que esta en copiaintrointro2() para poder ver alli, que probablemente estes cambiando intencionalmente el nombre... Saludos!..

[guillebomtrasmiti]

jopeeee super aquaaaa siempre tienes que traducirme lo que me dicen...que torpe soy...jajajajaja voyyy a por ello...

'insertar todos los registros de introducciondeventasahora a introducciondeventasahora2 según las fechas seleccionadas para poder imprimir el informe
Public Sub copiaintrointro2()
Try
borrarcontenidointro2()
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet


'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
comados.CommandText = "INSERT INTO IntroduccionDeVentasAhora2 SELECT * FROM [IntroduccionDeVentasAhora] WHERE Fecha BETWEEN @FI AND @FF Order by Fecha"
comados.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
comados.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))

conexion.Open()

Dim Lecto1 = comados.ExecuteNonQuery
conexion.Close()
Catch

End Try

End Sub

[guillebomtrasmiti]

y borracontenido

'borra el contenido para introducciondeventasahora2 y asi poder cargar luego lo que se va a imprimir
Public Sub borrarcontenidointro2()
Try
Dim ada As New OleDbDataAdapter
Dim datasetcopia As New DataSet

Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
comados.CommandText = "DELETE * from IntroduccionDeVentasAhora2"

conexion.Open()
Dim Lecto1 = comados.ExecuteNonQuery
conexion.Close()
Catch
End Try
End Sub

[Aquaventus]

No veo nada a simple vista algo que pueda cambiar el nombre de tu BD... , pero ahi alguna parte de tu codigo que use este nombre "DB1" ??

[guillebomtrasmiti]

en principio he descubierto que en el administrador de tareas de windows en procesoso se me queda abierto MSACCESS.EXE y no se cierra al terminar la operación....no se por qué

[guillebomtrasmiti]

es curioso pero eso es el problema..no se cierra la base de datos...queda abierta y access automaticamente renombra por otra para poder cerrarla y seguir trabajando...por que se me queda abierta?

[guillebomtrasmiti]

por cierto aqua...en referencia al otro post que me arreglaste aquí no me funciona con esto

oAccess.OpenCurrentDatabase(filepath:="c:\GestPos\ GestPos\Base1.mdb", Exclusive:=False)

no es como el conection string...el filepath no se como ponerlo para que busque la base de datos en la misma carpeta que está el ejecutable?

[Aquaventus]

Como te dije en el post anterior tu archivo se llama Base1.mdb ó ppestion.mdb?

[guillebomtrasmiti]

vale olvida lo de la última pregunta, se arregla así,

oAccess.OpenCurrentDatabase(filepath:=CurDir() & "\Base1.mdb", Exclusive:=False)

[guillebomtrasmiti]

se llama ppestion.mdb, es por que hago pruebas en el otro perdona

[Aquaventus]

ok, pero intentas buscar una propiedad en el oAccess como un .Close()? algo que cierre el proceso?

[HaverRamirez]

Puedes tratar con el Using,

[guillebomtrasmiti]

aqua no me va el messeger...no se que le pasa

[guillebomtrasmiti]

busque oAccess.close y nothing...puesto que sale el problema en muchos foros pere ninguno da con la solución...

[guillebomtrasmiti]

listo, lo pongo para el que lo pueda necesitar;

Try
copiaintrointro2()

Dim oAccess As Access.Application
'Start a new instance of Access for Automation:
oAccess = New Access.Application
'Open a database in exclusive mode:
oAccess.OpenCurrentDatabase(filepath:=CurDir() & "\Base1.mdb", Exclusive:=False)
'Preview a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dreamt_Venta s_Zeta", _
View:=Access.AcView.acViewPreview)
'Print a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dreamt_Venta s_Zeta", _
View:=Access.AcView.acViewNormal)
oAccess.CloseCurrentDatabase()
oAccess.DoCmd.Close()
Catch ex As Exception
MessageBox.Show("Se ha producido una excepción: " + ex.Message)
End Try

[guillebomtrasmiti]

oAccess.DoCmd.close()

[Aquaventus]

guille, fijate aqui :

Código vb.net:

oAccess.DoCmd.OpenReport(ReportName:="Dntas_ta", _
View:=Access.AcView.acViewPreview)
'Print a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dntas_ta", _
View:=Access.AcView.acViewNormal)
 

talvez esos Open te este generando el problema... y creando el otro proceso...

[Aquaventus]

jajaja respondimos a la misma vez, justo tenia visto cerca el error... xD. Bien alli guille!! Saludos!.

[guillebomtrasmiti]

ni caso, a veces lo cierra y a veces no...no vale

[guillebomtrasmiti]

eso que me comentas de los dos open, lo vi, pero quito uno u otro y no funciona, necesita los dos

[Aquaventus]

Has intentado esto ?

Código vb.net:

oAccess.DoCmd.OpenReport(ReportName:="Dntas_ta", _
View:=Access.AcView.acViewPreview)
oAccess.DoCmd.close()
'Print a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dntas_ta", _
View:=Access.AcView.acViewNormal)
oAccess.DoCmd.close()
oAccess.CloseCurrentDatabase()
 

[guillebomtrasmiti]

he visto esta pagina que lo comenta pero no la entiendo?¡
http://support.microsoft.com/kb/317113

[guillebomtrasmiti]

si lo he probado, y nada he leído esto pero no se adaptarlo a mi código;

Dim sDBPassword as String
Dim oDBEngine As DAO.DBEngine
Dim oDB As DAO.Database

sDBPassword = "Mypassword" 'database password
oDBEngine = oAccess.DBEngine
oDB = oDBEngine.OpenDatabase(Name:=sDBPath, _
Options:=False, _
ReadOnly:=False, _
Connect:=";PWD=" & sDBPassword)
oAccess.OpenCurrentDatabase(filepath:=sDBPath, _
Exclusive:=False)
oDB.Close()
System.Runtime.InteropServices.Marshal.ReleaseComO bject(oDB)
oDB = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComO bject(oDBEngine)
oDBEngine = Nothing


oDB.Close no cierra realmente la base de datos en Access, sino que tan sólo cierra la conexión DAO a la base de datos, realizada por medio del objeto DBEngine. Esta conexión deja de ser necesaria en cuanto se utiliza el método OpenCurrentDatabase. Observe el código que libera los objetos oDB y oDBEngine. Estos objetos deberán utilizarse para que Access pueda cerrarse correctamente una vez se haya completado el código.

Para obtener más información, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:

[HaverRamirez]

MMM, estas programando en vb .net?

[guillebomtrasmiti]

POR FINNNNNNNNNNNNNNNNNNNNNNNN AHÍ VA ARREGLADÍSISISISISMO


Dim oAccess As Access.Application
'Start a new instance of Access for Automation:
oAccess = New Access.Application
'Open a database in exclusive mode:
oAccess.OpenCurrentDatabase(filepath:=CurDir() & "\Gestion.mdb", Exclusive:=False)

'Preview a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dreamt_Ticke ts_Informe", _
View:=Access.AcView.acViewPreview)
'Print a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dreamt_Ticke ts_Informe", _
View:=Access.AcView.acViewNormal)
oAccess.CloseCurrentDatabase()
oAccess.DoCmd.Close()
oAccess.Quit()
oAccess = Nothing

[guillebomtrasmiti]

SUPER AQUAAAAAA LO ARREGLÉ gracias a todos sois unos tios cojonudosssss....pero super aqua un poquito más...no os enfadeisss