Imports System.Data.OleDb
Public Class FBase
Dim MiConexion As New OleDbConnection
Dim MiComando As New OleDbCommand
Dim MisDatos As New DataSet
Dim MiAdapter As OleDbDataAdapter
Dim RutaYNombreDB As String
Dim NombreTablaEnDB As String
'... ... ...
Private Sub ParametroConexion()
' Con Access
RutaYNombreDB = "D:\Tmp\MiDbAccess.accdb"
MiConexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & RutaYNombreDB & ";" ' Ejecutar en x64
NombreTablaEnDB = "Registro"
End Sub
'... ... ...
Private Sub CargarLaTablaConAdapter() ' con DataAdapter Este es mas simple porque la DataTabla es creada automaticamente
If MisDatos.Tables.Count > 0 Then ' Para muchas pruebas
MisDatos.Tables.Clear()
End If
ParametroConexion()
Dim UnaTabla As New DataTable
Dim Consulta As String
Consulta = "SELECT * FROM " & NombreTablaEnDB
Dim MiAdapter As OleDbDataAdapter = New OleDbDataAdapter(Consulta, MiConexion)
MiAdapter.Fill(UnaTabla)
UnaTabla.TableName = NombreTablaEnDB
MisDatos.Tables.Add(UnaTabla)
MiAdapter.Dispose()
MiConexion.Close()
MostrarDatos()
End Sub
'... ... ...
Crear cuenta
