¡¡IMPORTANTE: Necesito Ayuda!!
Publicado por Mari Cruz (1 intervención) el 23/11/2006 09:34:50
[b]Hola a todos, os explico mi problema:
Tengo realizada una aplicación que genera unas estadísticas en html, cogiendo los datos de unas base de datos creada en access. Mi problema es que cada vez que ejecuto mi aplicación, para que no de error (cuando mi programa lea de las bases de datos de acces los campos que necesito) previamente a la ejecución necesito abrir las bases de datos desde el acces y dar los siguientes permisos:
=====================================================
* En Herramientas/opciones/ver: activar objetos ocultos y objetos de
sistemas
* En Herramientas/Seguridad/permiso de usuario y de grupo: seleccionar el
nombre de objeto MsysObjects y activar la opcion de leer datos
=====================================================
¿Sabeis que podría hacer para no tener que realizar esto con cada una de las bases de datos que quiero leer con mi programa?
OS PONGO JUSTO UNO DE LOS TROZOS DE MI PROGRAMA DONDE LEO DE UNA BASE DE DATOS Y LA DECLARACIÓN DE LAS VARIABLES DE ESE TROZO
********************************************************************************************************
Imports System.Data
Imports System.Data.OleDb
Imports CrystalDecisions
Imports System.IO
Imports Microsoft.VisualBasic
Public Class Form1
Private DS As System.Data.DataSet
Private tabla_DS As System.Data.DataTable
Private MyCommand As System.Data.OleDb.OleDbDataAdapter
Private orden As OleDbCommand
Private MyConnection As System.Data.OleDb.OleDbConnection
Dim nombre_tabla As String
...........
...........
...........
'Leo de una base de datos cuyo nombre esta guardado en nombre_tabla el campo CODPOS
MyCommand = New System.Data.OleDb.OleDbDataAdapter( _
"select Codpos from " & nombre_tabla, MyConnection)
DS = New System.Data.DataSet
Try
MyConnection.Open()
MyCommand.Fill(DS)
tabla_DS = DS.Tables.Item(0)
Catch ex As Exception
TextBox5.Text = TextBox5.Text & "-> Error:" & ex.Message & vbCrLf
Finally
MyConnection.Close()
........
........
........
End Class
******************************************************************************************************
Muchas gracias [/b]
Tengo realizada una aplicación que genera unas estadísticas en html, cogiendo los datos de unas base de datos creada en access. Mi problema es que cada vez que ejecuto mi aplicación, para que no de error (cuando mi programa lea de las bases de datos de acces los campos que necesito) previamente a la ejecución necesito abrir las bases de datos desde el acces y dar los siguientes permisos:
=====================================================
* En Herramientas/opciones/ver: activar objetos ocultos y objetos de
sistemas
* En Herramientas/Seguridad/permiso de usuario y de grupo: seleccionar el
nombre de objeto MsysObjects y activar la opcion de leer datos
=====================================================
¿Sabeis que podría hacer para no tener que realizar esto con cada una de las bases de datos que quiero leer con mi programa?
OS PONGO JUSTO UNO DE LOS TROZOS DE MI PROGRAMA DONDE LEO DE UNA BASE DE DATOS Y LA DECLARACIÓN DE LAS VARIABLES DE ESE TROZO
********************************************************************************************************
Imports System.Data
Imports System.Data.OleDb
Imports CrystalDecisions
Imports System.IO
Imports Microsoft.VisualBasic
Public Class Form1
Private DS As System.Data.DataSet
Private tabla_DS As System.Data.DataTable
Private MyCommand As System.Data.OleDb.OleDbDataAdapter
Private orden As OleDbCommand
Private MyConnection As System.Data.OleDb.OleDbConnection
Dim nombre_tabla As String
...........
...........
...........
'Leo de una base de datos cuyo nombre esta guardado en nombre_tabla el campo CODPOS
MyCommand = New System.Data.OleDb.OleDbDataAdapter( _
"select Codpos from " & nombre_tabla, MyConnection)
DS = New System.Data.DataSet
Try
MyConnection.Open()
MyCommand.Fill(DS)
tabla_DS = DS.Tables.Item(0)
Catch ex As Exception
TextBox5.Text = TextBox5.Text & "-> Error:" & ex.Message & vbCrLf
Finally
MyConnection.Close()
........
........
........
End Class
******************************************************************************************************
Muchas gracias [/b]
Valora esta pregunta


0