• Viernes 8 de Noviembre de 2024, 11:09

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - flashtkd

Páginas: [1]
1
VB .NET / mostrar datos vb.net con access
« en: Jueves 21 de Agosto de 2008, 22:42 »
hola estoy haciendo en vb.net con access una aplicacion win32, que al precionar el boton cargue los campos en los textox

base datos: mibase
tabla: mitabla
campos: clave, nombre y edad

El codigo:

Imports System.Data.OleDb
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' creando objetos connecction, dataadapter y dataset

        Dim coneccion As OleDbConnection

        Dim orden As OleDbDataAdapter

        Dim tabla As DataSet

        ' enlazando coneccion a la base de datos

        coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & AppDomain.CurrentDomain.BaseDirectory & "mibase.mdb")

        ' respetar el espacion en blanco en DATA SOURCE

        ' cargando el adapter con la instruccion sql

        orden = New OleDbDataAdapter("select * from mitabla", coneccion)

        ' cargando el dataset

        tabla = New DataSet()

        orden.Fill(tabla, "mitabla")

        ' carga los datos en los texbox: el texclave, textnombre y el textedad me da error    
 
      txtclave.Text = orden.Rows(0).Item(1).ToString
      txtnombre.Text = orden.Rows(0).Item(2).ToString
      txtedad.Text = orden.Rows(0).Item(3).ToString        
    End Sub
   
End Class

imagenes
http ://i34.tinypic.com/awsvhg.png

imagen 2
http ://i35.tinypic.com/2s6k3gi.png

Páginas: [1]