VB.Net conectado a access, textbox = campo

[flashtkd]

VB.Net conectado a access



Este es mi codigo

Imports System.Data.OleDb

Public Class Form1
Private objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;
User ID=Admin; Data Source=C:\basededatos.mdb")
Private objAdapter As New OleDbDataAdapter("SELECT * FROM tabla",
objConn)
Private objDataSet As New DataSet()

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
objConn.Open()
objAdapter.Fill(objDataSet)

Lo que me falta es cargar el texbox1 con el respectivo campo

texbox1: nombre
texbox2: edad
texbox3: correo

[robertgustavo]

los TextBox tienen la propiedad "Databindings" y podemos conectarlo a un dataset o a un bindingSource. siempre especificando el nombre del campo que mostrará.

'Creamos en BindingSource
Dim Bs As New BindingSource
dim ds as new dataset
try
dataAdapter.Fill(ds, "categorias")
Bs.DataSource = ds.Tables("categorias")
Me.GridCategorias.DataSource = Bs
Catch ex As Exception
msgbox(ex.toString())
End Try

'conectamos los Textbox
Private sub Conectar()
' "Text", no cambia., bs es el binding, y lo que sige es el nombre del campo
Me.Txtcodigo.DataBindings.Add("text", Bs, "cod_cat")
Me.TxtNombre.DataBindings.Add("text", Bs, "nom_cat")
end sub

[flashtkd]

Hola la idea es cargar los campos en los textbox1 y texbox2

esta bien asi ?

SqlConnection connection = new SqlConnection("Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;");
SqlCommand command = new SqlCommand("Select * from tabla");
command.Connection = connection;
command.CommandType = CommandType.Text;
connection.Open();
SqlDataReader reader = command.ExecuteReader();
if (reader!=null)
{
while (reader.Read())
{
txtnombre(0) = ""
txtedad(1) = ""
}
reader.Close();
}
connection.Close();

aun no me me carga los campos en vb.net

[robertgustavo]

el objeto datareader sino me equivoco es de solo lectura, solo se usa para visualizar informacion, aun con filtrado (Busqueda)

Txtcodigo.DataBindings.Add("text", Ds, "cod_cat")
TxtNombre.DataBindings.Add("text", Ds, "nom_cat")

esto es cuando usas un dataset