como lleno un textbox desde un dataset. vb 2008

[flashtkd]

Quisiera saber como lleno un textbox desde un dataset. vb 2008

Se agradece

Dim coneccion As OleDbConnection
Dim orden As OleDbDataAdapter
Dim tabla As DataSet

coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Stock\Stock\bin\Debug\mibase.mdb")

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

tabla = New DataSet()
orden.Fill(tabla, "mitabla")

' me muestra solo id
txttotal.Text = orden.Fill(tabla, "mitabla")


'txttotal.Text = tabla.Rows(0).Item(1).ToString

[serch_sgc]

Hola flashtkd
Regularmente así lleno los textbox

Dim adaptador As New SqlDataAdapter(tuconsulta, tuconexion)
Dim ds1 As New DataSet
adaptador.Fill(ds1, "tu_tabla")
Dim dt1 As DataTable
dt1 = ds1.Tables.Item("tu_tabla")
Dim dr1 As DataRow
For Each dr1 In dt1.Rows
Try
TextBox.Text = dr1.Item(indice_de_columna) este comienza desde 0
Catch ex As InvalidCastException
response.write(ex.message)
End Try

Espero te sea de utilidad
saludos

[serch_sgc]

entonces si no puedes visualizar el contenido de tu consulta puede estar mal al asignar el valor al textbox
txttotal.text = tabla.Rows(0).Item(0).ToString

[flashtkd]

Ya lo consegui

Código PHP:

          Dim coneccion As OleDbConnection
        Dim orden As OleDbDataAdapter
        Dim tabla As DataSet
 
        coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Stock\Stock\bin\Debug\mibase.mdb")
 
        orden = New OleDbDataAdapter("select cantidad from mitabla", coneccion)
 
        tabla = New DataSet()
        orden.Fill(tabla, "mitabla")
 
        txttotal.Text = tabla.Tables("mitabla").Rows(0).Item(0)
        //Donde dice Rows(0).Item(0), es donde señala la fila y la columna 
   

[hferreir]

Mis estimados para Visual Studio 2008 o mayores:

Dim sqlstr As String
Dim constr As String
Dim conusua As OleDb.OleDbConnection
Dim orden As OleDb.OleDbDataAdapter
Dim tabla As DataSet

sqlstr = "SELECT Login from usuarios where Login='miusuario'"
constr = "Provider=Microsoft.ACE.OLEDB.12.0;data source=c:\stock1\stock1.accdb"
Try
conusua = New OleDb.OleDbConnection(constr)
orden = New OleDb.OleDbDataAdapter(sqlstr, conusua)
tabla = New DataSet
orden.Fill(tabla, "usuarios")
TextBox1.Text = tabla.Tables("usuarios").Rows(0).Item(0)
Catch ex As Exception
MsgBox(ex.Message)
End Try