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
imagen 2
al precionar el boton, deberia de cargar los datos como este ejemplo
Codigo Fuente:
http://rapidshare.com/files/139093300/Prueba.rar
me han dicho que utilize la siguiente sintaxis
txtclave.DataBindings.Add("Text", dtEmpleados, "clave")
pero aun no me funciona
Se agredece !!
