border

Miembros:
Mensajes:
Temas:
Online:

Ultimo Miembro:

 
 

  #1 (permalink)  
Antiguo 23-11-2006, 07:39:46
Un Nuevo Amigo
 
Registrado: oct 2006
Posts: 10
mari_cruz Valoración +2
Predeterminado IMPORTANTE: Necesito AYUDAAA¡¡¡¡

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
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Tu opinion es la más importante. imported_chiaravel Que incluirias en VB-MUNDO 24 28-03-2008 14:44:47
Ayudaaa.. Quiero Que Mi Programa Se Conecte A Internet :( joaoterran Visual Basic 6.00 1 22-08-2005 23:29:57
PREGUNTA IMPORTANTE PARA LOS MODERADORES Juan Francisco Visual Basic 6.00 2 23-03-2005 20:20:44
Cambiar tamaño de un Reporte, ayudaaa ricardoma Crystal Reports 7 17-09-2004 00:00:00
Error de Automatizacion ayudaaa VictorLeo Visual Basic 6.00 1 17-09-2004 00:00:00


La franja horaria es GMT. Ahora son las 08:45:03.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
A vBSkinworks Design

Alojado en el servicio Premium de Masquewebs | Diseño mejorado por MasqueWebs

right