DataReader recuperar en un textbox1

[flashtkd]

Hola cual es la sintaxis que permite recuperar los datos en un texbox1

tabla: ALQUILERES
campos: nombre

textbox1 <-- nombre

Codigo:

Imports System.Data
Imports System.Xml
Imports System.Data.OleDb

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Conexion As OleDbConnection
Conexion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & AppDomain.CurrentDomain.BaseDirectory & "\mibase.mdb")
Dim MiTabla As DataTable
Dim MiColumna As DataColumn
Dim MiDataSet As New DataSet()
Dim Comando As New OleDbDataAdapter("SELECT * FROM ALQUILERES", Conexion)
Comando.Fill(MiDataSet, "ALQUILERES")

' Recuperar el campo en el TexBox1

Comando("Nombre") = TextBox1.Text

Comando = Nothing
End Sub
End Class

Tambien e usado esto:

TextBox1.Text = MiDataSet.Tables("nombre")

y esto

TextBox1.Text = MiDataSet.Tables.Rows.ToString();

tampoco me lo reconoce, k sera

Solo eso saludos y gracias

[RugalMKing]

No era necesario que iniciaras otro post...

Esto es todo lo que necesitas:

Código:

Imports System.Data
Imports System.Data.OleDb

Dentro del Evento Load de tu form...

Código:

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

SqlQuery="SELECT * FROM ALQUILERES"

Dim ObjLector As SqlDataReader
Dim ObjCmd As New SqlCommand(SqlQuery, Conexion)
Conexion.Open()
ObjLector = ObjCmd.ExecuteReader
   If ObjLector.HasRows Then
      Do While ObjLector.Read
         TextBox1.Text=ObjLector("Nombre").ToString()
      Loop
   End If
ObjLector.Close()
Conexion.Close()

Ahora bien, ignoro cómo es que quieras acomodar todos los registros en un solo textbox... si se trata de un registro en especifico, deberias ser más concreto en tu SELECT:

Código:

SqlQuery="SELECT * FROM ALQUILERES WHERE NOMBRE='ALGUN NOMBRE'"

Y bueno si insistes en acomodar todos los registros resultantes en un solo textbox, podrías hacerlo así:

Código:

If String.IsNullOrEmpty(TextBox1.Text)=False Then
   TextBox1.Text+= "," & ObjLector("Nombre").ToString()
Else
   TextBox1.Text+= ObjLector("Nombre").ToString()
End If

Espero te sirva. Saludos!