none
conexion con acces RRS feed

  • Pregunta

  • Buenas noches desde Colombia. 

    Es que tengo una base de datos en access y quiero que al dar click en un boton de PROCESAR  lea un datos escrito en un label y como resultado me bote la fila de registros ingresados anteriormente. 

    eje. 

    ingreso 2.  me arroje la informacion de la fila 2

    GRACIAS . REQUIERO DE ESTA INFORMACION LO MAS PRONTO

    viernes, 13 de noviembre de 2015 4:11

Respuestas

  • Cuando dices que si ingresas 2 te devuelva la fila 2... ¿con que tipo de ordenación?

    Bueno, para abrir una base de datos Access haces algo como

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Carpeta\Datos.mdb;")

    cn.Open()

    Tendrás que sustituir la carpeta y el nombre de tu base de datos.

    Luego tienes que devolver la información de la fila N. Supongo que te refieres a algún campo concreto. Algo como:

    Dim Cmd As New OleDbCommand("SELECT Campo FROM Tabla Order By CampoDeOrdenación", cn)
    Dim Rdr As OleDbDataReader = Cmd.ExecuteReader
    If (Rdr.Read) Then

    End If

    Private Function DevuelveValorFila (NumeroDeFila As Integer) As String

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Carpeta\Datos.mdb;")

    DevuelveValorFila  = ""

    cn.Open()

    oDataAdapter.Fill(oDataSet, "NombreDeLaTabla")

    oConexion.Close()

    ' una vez desconectados, recorrer la tabla del dataset

    Dim oTabla As DataTable

    oTabla = oDataSet.Tables("NombreDeLaTabla")

    Dim Fila As Integer = 0

    Dim oFila As DataRow

    For Each oFila In oTabla.Rows

    Fila += 1

    If Fila = NumeroDeFila Then  ' Has llegado a la fila buscada

    Return oFila.Item("Campo_a_devolver")

    End If

    Next

    End Function


    Saludos, Javier J

    viernes, 13 de noviembre de 2015 8:06