Ayuda con Datagrid please
Publicado por Luis Milanca (8 intervenciones) el 23/06/2006 20:11:11
hola a todos, soy nuevo en esto de asp.net y estoy intentando mostrar datos en un datagrid, estos datos se deben originar con un dato introducido en un textbox
este es mi codigo:
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.OleDb
Public Class califica
Inherits System.Web.UI.Page
Public conn As OleDbConnection = New OleDbConnection
Public adaptador As OleDbDataAdapter
Public datos As DataSet
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Public ruta As String
ruta = App_Path() & "califica.mdb"
On Error Resume Next
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
REM 'adaptador = New OleDbDataAdapter("SELECT * FROM califica ORDER BY nombre", conn)
adaptador = New OleDbDataAdapter("SELECT ASIGNATURA, NOTA1, NOTA2, NOTA3, NOTA4, NOTA5, NOTA6, NOTA7, NOTA8, NOTA9, NOTA10 FROM califica where nombre='" & Me.textbox2.Text, conn)
datos = New DataSet
conn.Open()
adaptador.Fill(datos, "califica") ME DA UN ERROR ACA
DataGrid1.DataSource = datos.Tables("califica")
DataBind()
conn.Close()
EL APP_PATH() ME ENTREGA LA RUTA DE DONDE SE EJECUTA LA APLICACION
Public Function App_Path() As String
Return System.AppDomain.CurrentDomain.BaseDirectory()
End Function
este es mi codigo:
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.OleDb
Public Class califica
Inherits System.Web.UI.Page
Public conn As OleDbConnection = New OleDbConnection
Public adaptador As OleDbDataAdapter
Public datos As DataSet
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Public ruta As String
ruta = App_Path() & "califica.mdb"
On Error Resume Next
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
REM 'adaptador = New OleDbDataAdapter("SELECT * FROM califica ORDER BY nombre", conn)
adaptador = New OleDbDataAdapter("SELECT ASIGNATURA, NOTA1, NOTA2, NOTA3, NOTA4, NOTA5, NOTA6, NOTA7, NOTA8, NOTA9, NOTA10 FROM califica where nombre='" & Me.textbox2.Text, conn)
datos = New DataSet
conn.Open()
adaptador.Fill(datos, "califica") ME DA UN ERROR ACA
DataGrid1.DataSource = datos.Tables("califica")
DataBind()
conn.Close()
EL APP_PATH() ME ENTREGA LA RUTA DE DONDE SE EJECUTA LA APLICACION
Public Function App_Path() As String
Return System.AppDomain.CurrentDomain.BaseDirectory()
End Function
Valora esta pregunta


0