enlazar textbox

Pasaste el parámetro... me imagino que por querystring... pero no llamas a
la función Cargar... debes hacerlo en el load...

Sub Page_Load(Sender As Object, E As EventArgs)
Cargar(Request.QueryString("ID"))
TextBox1.text = DataReader.Item("titulo")
End Sub

Probablemente sea conveniente que preguntes primero si IsPostBack

Sashka
MS MVP Access

"Enrique Rodríguez" escribió en el
mensaje news:

No logro enlazar los textbox a mi consulta, ya pase el parametro ID de una
pagina a otra, pero al querer enlazar los textbox me dice que no se ha
declarado el nombre "DataReader"
Este es el codigo de mi pagina:

Sub Page_Load(Sender As Object, E As EventArgs)
TextBox1.text = DataReader.Item("titulo")
End Sub

Function Cargar(ByVal iD As Integer) As System.Data.IDataReader
Dim connectionString As String "Provider=Microsoft.Jet.OLEDB.4.0;
Ole DB Services=-4; Data Source=C:\Inetpub\wwwr"& _
"oot\ContactosASP\contactos.mdb"
Dim dbConnection As System.Data.IDbConnection = New
System.Data.OleDb.OleDbConnection(connectionString)

Dim queryString As String = "SELECT [contactos].* FROM [contactos]
WHERE ([contactos].[ID] = @ID)"
Dim dbCommand As System.Data.IDbCommand = New
System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_iD As System.Data.IDataParameter = New
System.Data.OleDb.OleDbParameter
dbParam_iD.ParameterName = "@ID"
dbParam_iD.Value = iD
dbParam_iD.DbType = System.Data.DbType.Int32
dbCommand.Parameters.Add(dbParam_iD)

dbConnection.Open
Dim dataReader As System.Data.IDataReader > dbCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

Return dataReader
End Function

Espero puedan ayudarme.

Saludos desde Mexico
Enrique Rodríguez

Hola Sashka, gracias por responder, lamentablemente ya hice lo que me
indicaste y sigue mandando el mismo error de "No se ha declarado el nombre
'dataReader'".
El codigo lo deje de la sig manera:

Sub Page_Load(Sender As Object, E As EventArgs)
If Not Page.IsPostBack Then
Cargar(Request.QueryString("ID"))
TextBox1.text = dataReader.item("titulo")
End If
End Sub

Function Cargar(ByVal iD As Integer) As System.Data.IDataReader
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;
Ole DB Services=-4; Data Source=C:\Inetpub\wwwr"& _
"oot\ContactosASP\contactos.mdb"
Dim dbConnection As System.Data.IDbConnection = New
System.Data.OleDb.OleDbConnection(connectionString)

Dim queryString As String = "SELECT [contactos].* FROM [contactos]
WHERE ([contactos].[ID] = @ID)"
Dim dbCommand As System.Data.IDbCommand = New
System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_iD As System.Data.IDataParameter = New
System.Data.OleDb.OleDbParameter
dbParam_iD.ParameterName = "@ID"
dbParam_iD.Value = iD
dbParam_iD.DbType = System.Data.DbType.Int32
dbCommand.Parameters.Add(dbParam_iD)

dbConnection.Open
Dim dataReader As System.Data.IDataReader dbCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

Return dataReader
End Function

"Sashka" escribió en el mensaje
news:uaoE$

Pasaste el parámetro... me imagino que por querystring... pero no llamas a
la función Cargar... debes hacerlo en el load...

Sub Page_Load(Sender As Object, E As EventArgs)
Cargar(Request.QueryString("ID"))
TextBox1.text = DataReader.Item("titulo")
End Sub

Probablemente sea conveniente que preguntes primero si IsPostBack

Sashka
MS MVP Access

"Enrique Rodríguez" escribió en el
mensaje news:
> No logro enlazar los textbox a mi consulta, ya pase el parametro ID de

una

> pagina a otra, pero al querer enlazar los textbox me dice que no se ha
> declarado el nombre "DataReader"
> Este es el codigo de mi pagina:
>
> Sub Page_Load(Sender As Object, E As EventArgs)
> TextBox1.text = DataReader.Item("titulo")
> End Sub
>
> Function Cargar(ByVal iD As Integer) As System.Data.IDataReader
> Dim connectionString As String > "Provider=Microsoft.Jet.OLEDB.4.0;
> Ole DB Services=-4; Data Source=C:\Inetpub\wwwr"& _
> "oot\ContactosASP\contactos.mdb"
> Dim dbConnection As System.Data.IDbConnection = New
> System.Data.OleDb.OleDbConnection(connectionString)
>
> Dim queryString As String = "SELECT [contactos].* FROM

[contactos]

> WHERE ([contactos].[ID] = @ID)"
> Dim dbCommand As System.Data.IDbCommand = New
> System.Data.OleDb.OleDbCommand
> dbCommand.CommandText = queryString
> dbCommand.Connection = dbConnection
>
> Dim dbParam_iD As System.Data.IDataParameter = New
> System.Data.OleDb.OleDbParameter
> dbParam_iD.ParameterName = "@ID"
> dbParam_iD.Value = iD
> dbParam_iD.DbType = System.Data.DbType.Int32
> dbCommand.Parameters.Add(dbParam_iD)
>
> dbConnection.Open
> Dim dataReader As System.Data.IDataReader > > dbCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
>
> Return dataReader
> End Function
>
> Espero puedan ayudarme.
>
> Saludos desde Mexico
> Enrique Rodríguez
>
>
>

Ya... no me había fijado en los detalles... tan solo en que no llamabas a la
función...
Lo que pasa es que tu declaras dataReader dentro de la función Carga.. lo
que no lo hace visible desde ningún otro procedimiento además tu función
retorna un dataReader, por lo que debes igual la función a uno, por otro
lado un dataReader no está posicionado por defecto en la primera fila de
datos sino que tienes que "avanzar" mediante read...

Prueba así:

Dim dt As System.Data.IDataReader
If Not Page.IsPostBack Then
dt = Cargar(Request.QueryString("ID"))
If dt.Read Then
TextBox1.text = dt.Item(0)
End If
End If

Sashka
MS MVP Access


"Enrique Rodríguez" escribió en el
mensaje news:

Hola Sashka, gracias por responder, lamentablemente ya hice lo que me
indicaste y sigue mandando el mismo error de "No se ha declarado el nombre
'dataReader'".
El codigo lo deje de la sig manera:

Sub Page_Load(Sender As Object, E As EventArgs)
If Not Page.IsPostBack Then
Cargar(Request.QueryString("ID"))
TextBox1.text = dataReader.item("titulo")
End If
End Sub

Function Cargar(ByVal iD As Integer) As System.Data.IDataReader
Dim connectionString As String "Provider=Microsoft.Jet.OLEDB.4.0;
Ole DB Services=-4; Data Source=C:\Inetpub\wwwr"& _
"oot\ContactosASP\contactos.mdb"
Dim dbConnection As System.Data.IDbConnection = New
System.Data.OleDb.OleDbConnection(connectionString)

Dim queryString As String = "SELECT [contactos].* FROM [contactos]
WHERE ([contactos].[ID] = @ID)"
Dim dbCommand As System.Data.IDbCommand = New
System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_iD As System.Data.IDataParameter = New
System.Data.OleDb.OleDbParameter
dbParam_iD.ParameterName = "@ID"
dbParam_iD.Value = iD
dbParam_iD.DbType = System.Data.DbType.Int32
dbCommand.Parameters.Add(dbParam_iD)

dbConnection.Open
Dim dataReader As System.Data.IDataReader > dbCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

Return dataReader
End Function

"Sashka" escribió en el mensaje
news:uaoE$
> Pasaste el parámetro... me imagino que por querystring... pero no llamas

a

> la función Cargar... debes hacerlo en el load...
>
> Sub Page_Load(Sender As Object, E As EventArgs)
> Cargar(Request.QueryString("ID"))
> TextBox1.text = DataReader.Item("titulo")
> End Sub
>
> Probablemente sea conveniente que preguntes primero si IsPostBack
>
> Sashka
> MS MVP Access
>
> "Enrique Rodríguez" escribió en el
> mensaje news:
> > No logro enlazar los textbox a mi consulta, ya pase el parametro ID de
una
> > pagina a otra, pero al querer enlazar los textbox me dice que no se ha
> > declarado el nombre "DataReader"
> > Este es el codigo de mi pagina:
> >
> > Sub Page_Load(Sender As Object, E As EventArgs)
> > TextBox1.text = DataReader.Item("titulo")
> > End Sub
> >
> > Function Cargar(ByVal iD As Integer) As System.Data.IDataReader
> > Dim connectionString As String > > "Provider=Microsoft.Jet.OLEDB.4.0;
> > Ole DB Services=-4; Data Source=C:\Inetpub\wwwr"& _
> > "oot\ContactosASP\contactos.mdb"
> > Dim dbConnection As System.Data.IDbConnection = New
> > System.Data.OleDb.OleDbConnection(connectionString)
> >
> > Dim queryString As String = "SELECT [contactos].* FROM
[contactos]
> > WHERE ([contactos].[ID] = @ID)"
> > Dim dbCommand As System.Data.IDbCommand = New
> > System.Data.OleDb.OleDbCommand
> > dbCommand.CommandText = queryString
> > dbCommand.Connection = dbConnection
> >
> > Dim dbParam_iD As System.Data.IDataParameter = New
> > System.Data.OleDb.OleDbParameter
> > dbParam_iD.ParameterName = "@ID"
> > dbParam_iD.Value = iD
> > dbParam_iD.DbType = System.Data.DbType.Int32
> > dbCommand.Parameters.Add(dbParam_iD)
> >
> > dbConnection.Open
> > Dim dataReader As System.Data.IDataReader > > > dbCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
> >
> > Return dataReader
> > End Function
> >
> > Espero puedan ayudarme.
> >
> > Saludos desde Mexico
> > Enrique Rodríguez
> >
> >
> >
>
>
>

Funcionó de maravilla.

Mil Gracias Sashka

"Sashka" escribió en el mensaje
news:%23UON%

Ya... no me había fijado en los detalles... tan solo en que no llamabas a

la

función...
Lo que pasa es que tu declaras dataReader dentro de la función Carga.. lo
que no lo hace visible desde ningún otro procedimiento además tu

función

retorna un dataReader, por lo que debes igual la función a uno, por otro
lado un dataReader no está posicionado por defecto en la primera fila de
datos sino que tienes que "avanzar" mediante read...

Prueba así:

Dim dt As System.Data.IDataReader
If Not Page.IsPostBack Then
dt = Cargar(Request.QueryString("ID"))
If dt.Read Then
TextBox1.text = dt.Item(0)
End If
End If

Sashka
MS MVP Access


"Enrique Rodríguez" escribió en el
mensaje news:
> Hola Sashka, gracias por responder, lamentablemente ya hice lo que me
> indicaste y sigue mandando el mismo error de "No se ha declarado el

nombre

> 'dataReader'".
> El codigo lo deje de la sig manera:
>
> Sub Page_Load(Sender As Object, E As EventArgs)
> If Not Page.IsPostBack Then
> Cargar(Request.QueryString("ID"))
> TextBox1.text = dataReader.item("titulo")
> End If
> End Sub
>
> Function Cargar(ByVal iD As Integer) As System.Data.IDataReader
> Dim connectionString As String > "Provider=Microsoft.Jet.OLEDB.4.0;
> Ole DB Services=-4; Data Source=C:\Inetpub\wwwr"& _
> "oot\ContactosASP\contactos.mdb"
> Dim dbConnection As System.Data.IDbConnection = New
> System.Data.OleDb.OleDbConnection(connectionString)
>
> Dim queryString As String = "SELECT [contactos].* FROM

[contactos]

> WHERE ([contactos].[ID] = @ID)"
> Dim dbCommand As System.Data.IDbCommand = New
> System.Data.OleDb.OleDbCommand
> dbCommand.CommandText = queryString
> dbCommand.Connection = dbConnection
>
> Dim dbParam_iD As System.Data.IDataParameter = New
> System.Data.OleDb.OleDbParameter
> dbParam_iD.ParameterName = "@ID"
> dbParam_iD.Value = iD
> dbParam_iD.DbType = System.Data.DbType.Int32
> dbCommand.Parameters.Add(dbParam_iD)
>
> dbConnection.Open
> Dim dataReader As System.Data.IDataReader > > dbCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
>
> Return dataReader
> End Function
>
> "Sashka" escribió en el mensaje
> news:uaoE$
> > Pasaste el parámetro... me imagino que por querystring... pero no

llamas

a
> > la función Cargar... debes hacerlo en el load...
> >
> > Sub Page_Load(Sender As Object, E As EventArgs)
> > Cargar(Request.QueryString("ID"))
> > TextBox1.text = DataReader.Item("titulo")
> > End Sub
> >
> > Probablemente sea conveniente que preguntes primero si IsPostBack
> >
> > Sashka
> > MS MVP Access
> >
> > "Enrique Rodríguez" escribió en

el

> > mensaje news:
> > > No logro enlazar los textbox a mi consulta, ya pase el parametro ID

de

> una
> > > pagina a otra, pero al querer enlazar los textbox me dice que no se

ha

> > > declarado el nombre "DataReader"
> > > Este es el codigo de mi pagina:
> > >
> > > Sub Page_Load(Sender As Object, E As EventArgs)
> > > TextBox1.text = DataReader.Item("titulo")
> > > End Sub
> > >
> > > Function Cargar(ByVal iD As Integer) As System.Data.IDataReader
> > > Dim connectionString As String > > > "Provider=Microsoft.Jet.OLEDB.4.0;
> > > Ole DB Services=-4; Data Source=C:\Inetpub\wwwr"& _
> > > "oot\ContactosASP\contactos.mdb"
> > > Dim dbConnection As System.Data.IDbConnection = New
> > > System.Data.OleDb.OleDbConnection(connectionString)
> > >
> > > Dim queryString As String = "SELECT [contactos].* FROM
> [contactos]
> > > WHERE ([contactos].[ID] = @ID)"
> > > Dim dbCommand As System.Data.IDbCommand = New
> > > System.Data.OleDb.OleDbCommand
> > > dbCommand.CommandText = queryString
> > > dbCommand.Connection = dbConnection
> > >
> > > Dim dbParam_iD As System.Data.IDataParameter = New
> > > System.Data.OleDb.OleDbParameter
> > > dbParam_iD.ParameterName = "@ID"
> > > dbParam_iD.Value = iD
> > > dbParam_iD.DbType = System.Data.DbType.Int32
> > > dbCommand.Parameters.Add(dbParam_iD)
> > >
> > > dbConnection.Open
> > > Dim dataReader As System.Data.IDataReader > > > > dbCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
> > >
> > > Return dataReader
> > > End Function
> > >
> > > Espero puedan ayudarme.
> > >
> > > Saludos desde Mexico
> > > Enrique Rodríguez
> > >
> > >
> > >
> >
> >
> >
>
>
>