enlazar textbox

30/06/2004 - 00:26 por Enrique Rodríguez | Informe spam
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
 

Leer las respuestas

#1 Sashka
30/06/2004 - 00:55 | Informe spam
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



Preguntas similares