Autor Tema: Base De Datos Access (Leído 2407 veces)

_irega_ · « **en:** Domingo 30 de Septiembre de 2007, 23:27 »

Buenas. He hecho mediante Access un archivo .mdb para utilizarlo como base de datos en mi programa. He realizado la conexion a la base de datos y me ha cojido correctamente todas las columnas de la base de datos. Luego he creado un DataSet con tipo el creado anteriormente en la conexion. El problema que tengo es que utilizo el metodo Count de la propiedad Rows del DataSet y no me reconoce ninguna fila, cuando mediante Access he introducido dos manualmente. Las columnas las lee perfectamente, ¿donde puede estar el problema? Un saludo!

Kev

Revisa si estas referenciando a la tabla correcta dentro del dataset

Salu2

_irega_

Al final lo he solucionado haciendo todas las conexiones a la BD por codigo, sin utilizar para nada la interfaz grafica del Visual Studio. Todo ese codigo lo he simplificado en una clase llamada BaseDatos que tiene el siguiente codigo de momento (faltaria añadir varios metodos seguramente para un funcionamiento completo)

Código: Text

Imports System.Data.OleDb
 
Public Class BaseDatos
    ' Tabla a la que asignaremos los datos de la tabla de la base de datos
    Private dt As DataTable
    ' El adaptador que nos permitira acceder a la base de datos, para leer los
    ' datos y actualizarlos.
    Private da As OleDbDataAdapter
    ' La cadena de conexión
    Private sCnn As String
    ' La cadena de selección
    Private sSel As String
    ' Para generar las instrucciones SQL
    Private cb As OleDbCommandBuilder
 
    Public Sub New()
        '
    End Sub
 
    Public Sub New(ByVal datosSource As String)
        ' Comprobamos si el archivo existe
        If System.IO.File.Exists(datosSource) = False Then
            Throw New Exception(&#34;La base de datos no existe&#34;)
        End If
 
        Me.sCnn = &#34;Provider=Microsoft.Jet.OLEDB.4.0; Data Source=&#34; & datosSource
        Me.sSel = &#34;SELECT * FROM Cuentas ORDER BY ID&#34;
        Me.PrepararBD(Me.da, Me.cb, Me.dt, Me.sCnn, Me.sSel)
    End Sub
 
    Public Sub CambiarTabla(ByVal tabla As String)
        Me.sSel = &#34;SELECT * FROM &#34; & tabla & &#34; ORDER BY ID&#34;
        Me.PrepararBD(Me.da, Me.cb, Me.dt, Me.sCnn, Me.sSel)
    End Sub
 
    Private Sub PrepararBD(ByRef dataAdapter As OleDbDataAdapter, _
                            ByRef cbuilder As OleDbCommandBuilder, _
                            ByRef dataTable As DataTable, ByVal sConnect As String, _
                            ByVal sSelect As String)
 
        ' Crear un nuevo objeto del tipo DataAdapter
        dataAdapter = New OleDbDataAdapter(sSelect, sConnect)
        ' Crear los comandos de insertar, actualizar y eliminar
        cbuilder = New OleDbCommandBuilder(dataAdapter)
        ' Como hay campos con caracteres especiales,
        ' al usarlos incluirlos entre corchetes.
        ' (para vocales acentuadas por ejemplo)
        cbuilder.QuotePrefix = &#34;[&#34;
        cbuilder.QuoteSuffix = &#34;]&#34;
        ' Asignar los comandos al DataAdapter
        ' (se supone que lo hace automáticamente, pero...)
        dataAdapter.UpdateCommand = cbuilder.GetUpdateCommand
        dataAdapter.InsertCommand = cbuilder.GetInsertCommand
        dataAdapter.DeleteCommand = cbuilder.GetDeleteCommand
        ' Esta base de datos usa el ID con valores autonumericos
        dataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
 
        dataTable = New DataTable
        ' Llenar la tabla con los datos indicados
        dataAdapter.Fill(dataTable)
    End Sub
 
    Public Function TablaActual() As String
        Return Me.dt.TableName.ToString
    End Function
 
    Public Function Total() As Integer
        Return Me.dt.Rows.Count
    End Function
 
    Public Function Consulta(ByVal fila As Integer, ByVal columna As String) As String
        Return Me.dt.Rows(fila - 1)(columna).ToString
    End Function
End Class
 

SoloCodigo

Autor Tema: Base De Datos Access (Leído 2407 veces)

_irega_

Base De Datos Access

Kev

Re: Base De Datos Access

_irega_

Re: Base De Datos Access