BASES DE DATOS CON VB.NET

14/09/2004 - 19:18 por jdpm06 | Informe spam
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

#1 MIGUEL JUAREZ
14/09/2004 - 22:57 | Informe spam
Esto lo tienes que poner en la vista html del diseño del webform



"jdpm06" escribió en el mensaje
news:0c3501c49a7e$e51fcd80$
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



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>


Preguntas similares