1
« 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