Visual Basic - ¡¡IMPORTANTE: Necesito Ayuda!!

Life is soft - evento anual de software empresarial
 
Vista:

¡¡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]
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:¡¡IMPORTANTE: Necesito Ayuda!!

Publicado por Leopoldo Antonio (3 intervenciones) el 23/11/2006 15:41:57
pregunta en el foro de visual basic .Net
este de de visual basic no mas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar