hola tengo un problema con vb.net necesito acupar un
proyecto Aplicacion Web ASP.NET y tengo este codigo pero
no se como ocuparlo, es decir, en que parte del proyecto
lo pongo para que funcione por favor ayudenme se los
agradecee mucho gracias.
EL CODIGO ES:
<%@ PAGE LANGUAGE=VB%>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<FORM RUNAT=SERVER>
CLAVE<ASP:TEXTBOX ID=CLAVE SIZE=3 RUNAT=SERVER/>
NOMBRE<ASP:TEXTBOX ID=NOMBRE SIZE RUNAT=SERVER/>
EDAD<ASP:TEXTBOX IDíAD SIZE=3 RUNAT=SERVER/>
<ASP:BUTTON ONCLICK=INSERTAR TEXT=INSERTAR
RUNAT=SERVER /><BR>
<ASP:DATAGRID ID=TABLAGRID RUNAT=SERVER
Width@0
BackColor=#ccccff
BorderColor=black
ShowFooter=false
CellPadding=3
CellSpacing=0
Font-Name=Verdana
Font-Size=8pt
HeaderStyle-BackColor=#aaaadd
EnableViewState=false/>
</FORM>
<script runat=server>
' creando y cargando coneccion, adpater, dataset como
variables globales
DIM coneccion AS OLEDBCONNECTION
DIM canal AS OLEDBDATAADAPTER
DIM tabla AS DATASET
SUB Page_Load(Sender As Object, E As EventArgs)
coneccion = NEW OLEDBCONNECTION
("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\progfacil\tusitio\mibase.mdb")
' cargando el adapter con la instruccion sql
canal = NEW OLEDBDATAADAPTER("select * from mitabla",
coneccion)
' cargando el dataset
tabla = NEW DATASET()
canal.FILL(tabla, "mitabla")
' cargando el datagrid
TABLAGRID.DATASOURCE = tabla
TABLAGRID.DATAMEMBER = "mitabla"
TABLAGRID.DATABIND()
' cargando el nuevo textbox con la nueva clave clave
correpondiente
DIM cren, nvaclave AS INTEGER
cren = tabla.Tables("mitabla").Rows.Count
nvaclave = tabla.Tables("mitabla").Rows(cren-1)(0) + 1
CLAVE.Text=nvaclave
END SUB
SUB INSERTAR(Sender As Object, E As EventArgs)
' creando y cargando un objeto OLEDBCOMMAND
' instruccion sql insert into mitabla(listacampos) values
(listadatos)
' @variable es una variable de tipo command o parametro
DIM q AS STRING
DIM orden as OLEDBCOMMAND
q = "insert into mitabla(clave,nombre,edad) values
(@CLAVE, @NOMBRE, @EDAD)"
orden = NEW OLEDBCOMMAND(q, coneccion)
orden.Parameters.Add(new OleDbParameter("@CLAVE",
OleDbType.Integer))
orden.Parameters("@CLAVE").Value = CLAVE.Text
orden.Parameters.Add(new OleDbParameter("@NOMBRE",
OleDbType.VarWChar, 20))
orden.Parameters("@NOMBRE").Value = NOMBRE.Text
orden.Parameters.Add(new OleDbParameter("@EDAD",
OleDbType.Integer))
orden.Parameters("@EDAD").Value = EDAD.Text
orden.Connection.Open()
orden.ExecuteNonQuery()
orden.Connection.Close()
' REFRESCANDO DATASET con los nuevos datos de la tabla en
disco
canal=new OleDbDataAdapter("select * from mitabla",
coneccion)
' creando el dataset y cargandolo
tabla= new DataSet()
canal.Fill(tabla, "mitabla")
' recargando el datagrid
TABLAGRID.DataSource=tabla.Tables("mitabla").DefaultView
TABLAGRID.DataBind()
' cargando otra vez la caja de CLAVE y limpiando las
otras cajas
DIM cren, nvaclave AS INTEGER
cren = tabla.Tables("mitabla").Rows.Count
nvaclave =tabla.Tables("mitabla").Rows(cren-1)(0)+ 1
CLAVE.Text=nvaclave
NOMBRE.Text=""
EDAD.Text=""
coneccion.Close()
END SUB
</script>
Leer las respuestas