Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/04/2013, 05:04
husuva
 
Fecha de Ingreso: agosto-2002
Ubicación: Australia
Mensajes: 38
Antigüedad: 21 años, 9 meses
Puntos: 0
Conectar a access usando visual Basic Net

Amigos por favor necesita su ayuda desesperadamente....tengo este programita de visual Basic que esta conectado a una base de datos de access. La conexion funciona bien pero la base de datos de access en realidad son tablas linkeadas a oracle 10G. Cuando ejecuto el programa se habre una ventana en la que me solicita el nombre de usuario y contrasena, lo ingreso y la query funciona bien. Pero hay muchas tablas y solicita el user y password a cada momento. Me gustaria incluir el user name y password en la misma consulta del visual pero no encuentro forma de hacerlo. No se si es porque el usuario y contrasena esta en la coneccion a Oracle y no en el access??? please a ver si me ayudan en esto??

Public Class frmPrincipal
Dim basedatos As String = ""
Dim dtMaintenance As New DataTable
Dim dtTaskList As New DataTable
Dim dtPRTDocument As New Data.DataTable

Private Sub frmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CargarBaseDatos()
End Sub

Private Sub btnReporte_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReporte.Click
Dim sentencia As String
If basedatos Is Nothing Or basedatos.Equals("") Then
MessageBox.Show("Debe seleccionar una base de datos.", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtFunctionalLocation.Focus()
Else
Dim cadena As String
Dim dt As Data.DataTable
Dim da As OleDb.OleDbDataAdapter
Dim indicador As Integer
Dim conexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & basedatos
sentencia = "Select FLNO, FLDESC,FLSORT,OBJTYP,CATPROF,EDC,SUPFL,UNITFL,ABC, CAT,MAKE,MODEL,MANSERNO,CONSTTYP,ROOM,MAINTPLANT,P LANPLANT,WRKCTRPLANT,LOC,PLANTSEC,MAINWRKCTR,PLANG RP,COSTCTR,CHANGEDATE,DLFL,EQINST,EXDATA,INAC,INST ANCE,MDATA,SYSSTAT,USERSTAT,DATESTAMP from PM_SDW_USER_FLHDR "