Últimos mensajes - Powered by IBM

Palabras claves

Actualizar y Borrar Registro

09/01/2004 - 17:43 por Daniel Villa | Informe spam

Hola Grupo:

Estoy utilizando una pagina en donde tengo dos botones, Grabar y Dar de
Baja.

En ellos, al hacer clic, me llama a los sub Grabar o sub Baja, dependiendo
de lo que haga. Sin embargo, no funciona y no tengo la manera, en que parte
tengo el error.

Les proporciono las funciones y ojalá alguien gentilmente me oriente al
respecto

-
-
<script language="VbScript">
<!--
sub guardar_onclick
vLogin = Request.Form("Select1")
vLogin1=Login.value
vPassword=Password.value
if D1.selectedIndex=1 then
vNivel="Administrador"
end if
if D1.selectedIndex=2 then
vNivel="Coordinador"
end if
if D1.selectedIndex=3 then
vNivel="Lider"
end if
if D1.selectedIndex=4 then
vNivel="Supervisor"
end if
if D1.selectedIndex=5 then
vNivel="Usuario"
end if
' MSGBOX("GUARDAR"+vLogin1+vPassword+vNivel)
' MSGBOX(VLogin)
' strProvider = "Provider = Microsoft.JET.OLEDB.4.0;Data Source C:\Intranet\bdIntranet.mdb;"
' Set objConn = CreateObject("ADODB.Connection")
objConn.Open strProvider
strQuery = "UPDATE tUsuario SET LOGIN='" & vLogin1 & "', ;"
strQuery = strQuery & "PASS='" & vPassword & "', ;"
strQuery = strQuery & "NIVEL='" & vNivel & "'"
strQuery = strQuery & "WHERE Login='" & vLogin & "'"
Set objRS = objConn.Execute(strQuery)
msgbox(strQuery)
end sub

sub baja_onclick
Dim objConn, strQuery, objRS, strProvinder, Correcto, vLogin,
vPassword, vNivel
vLogin = Request.Form("Select1")
strProvider = "Provider = Microsoft.JET.OLEDB.4.0;Data Source
= C:\Intranet\bdIntranet.mdb;"
Set objConn = CreateObject("ADODB.Connection")
objConn.Open strProvider
strQuery = "DELETE FROM tUsuario Where login = '" & vLogin &
"' ;"
Set objRS = objConn.Execute(strQuery)
MSGBOX("BAJA"+vlogin)

end sub

</SCRIPT>

-

He intentado aplicar los MSGBox para checar los valores sin embargo no los
hace, y solo me muestra en la parte inferior de la página, el signo de
exclamación de color amarillo, diciendo error de página

Salu2 :-<

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

MACRO PARA PLANTILLA "crear nuevo registro" y " actualizar registro"

Leer las respuestas

#1 Jhonny Vargas P. [MS MVP]

09/01/2004 - 22:12 | Informe spam

Hola Daniel,

Lo que estás haciendo es realizar los Querys en la misma página, para esto
deberías ejecutar todo tu código en el lado del servidor y no del cliente.

¿porque?, porque estás mostrando todas tus conecciones y donde se encuentra
la base de datos, fuera de eso, deberías darle permiso a la base de datos
(al directorio) a todos los usuarios que se conectan a tu página.

Te sugiero que hagas algo similar a esto:

<%
Dim Accion
Accion = Request("Accion")

If Accion="Grabar" Then
ProcedimientoGrabar()
ElseIf Accion="Dar Baja" Then
ProcedimientoDarBaja()
End If

%>

<html>
<body>
<form name="datos" action="pagina.asp" method="post">



<br>
<br>
<input type="submit" name="Accion" value="Grabar"> 
<input type="submit" name="Accion" value="Dar Baja">
</form>
</body>

</html>

<%
'Procedimientos anteriores.
Sub ProcedimientoGrabar()
'COLOCAR CODIGO PARA GRABAR
End Sub

Sub ProcedimientoDarBaja()
'COLOCAR CODIGO PARA DAR DE BAJA
End Sub
%>

Espero que me entiendas el ejemplo.

Saludos,
Jhonny Vargas P. [MS MVP-ASP]
Santiago de Chile
Sitio MVPs Chile http://www.mvp.cl

"Daniel Villa" escribió en el
mensaje news:uN0Dq#

Hola Grupo:

Estoy utilizando una pagina en donde tengo dos botones, Grabar y Dar de
Baja.

En ellos, al hacer clic, me llama a los sub Grabar o sub Baja, dependiendo
de lo que haga. Sin embargo, no funciona y no tengo la manera, en que

parte

tengo el error.

Les proporciono las funciones y ojalá alguien gentilmente me oriente al
respecto

-
<script language="VbScript">
<!--
sub guardar_onclick
vLogin = Request.Form("Select1")
vLogin1=Login.value
vPassword=Password.value
if D1.selectedIndex=1 then
vNivel="Administrador"
end if
if D1.selectedIndex=2 then
vNivel="Coordinador"
end if
if D1.selectedIndex=3 then
vNivel="Lider"
end if
if D1.selectedIndex=4 then
vNivel="Supervisor"
end if
if D1.selectedIndex=5 then
vNivel="Usuario"
end if
' MSGBOX("GUARDAR"+vLogin1+vPassword+vNivel)
' MSGBOX(VLogin)
' strProvider = "Provider = Microsoft.JET.OLEDB.4.0;Data Source
C:\Intranet\bdIntranet.mdb;"
' Set objConn = CreateObject("ADODB.Connection")
objConn.Open strProvider
strQuery = "UPDATE tUsuario SET LOGIN='" & vLogin1 & "', ;"
strQuery = strQuery & "PASS='" & vPassword & "', ;"
strQuery = strQuery & "NIVEL='" & vNivel & "'"
strQuery = strQuery & "WHERE Login='" & vLogin & "'"
Set objRS = objConn.Execute(strQuery)
msgbox(strQuery)
end sub

sub baja_onclick
Dim objConn, strQuery, objRS, strProvinder, Correcto, vLogin,
vPassword, vNivel
vLogin = Request.Form("Select1")
strProvider = "Provider = Microsoft.JET.OLEDB.4.0;Data

Source

= C:\Intranet\bdIntranet.mdb;"
Set objConn = CreateObject("ADODB.Connection")
objConn.Open strProvider
strQuery = "DELETE FROM tUsuario Where login = '" & vLogin &
"' ;"
Set objRS = objConn.Execute(strQuery)
MSGBOX("BAJA"+vlogin)

end sub

</SCRIPT>

He intentado aplicar los MSGBox para checar los valores sin embargo no los
hace, y solo me muestra en la parte inferior de la página, el signo de
exclamación de color amarillo, diciendo error de página

Salu2 :-<

Responder a este mensaje

#2 Daniel Villa

09/01/2004 - 22:54 | Informe spam

Hola Jhonny:

Gracias por tu ayuda, entendí la estructura y como llamar los
procedimientos. Tengo una duda en cuanto al manejo de la Variable. Ya que
para actualizar o dar de baja necesito el valor del elemento seleccionado y
en base a este utilizarlo en la instrucción SQL Update y Delete la condición
Where. De hecho ese fue otros de los problemas que tuve en el código que
publique.

Como lo aplico y si esta variable (de sessión), realmente la voy a pasar a
la otra pagina.

Salu2 :-)))

"Jhonny Vargas P. [MS MVP]" escribió en el
mensaje news:OsK$

Hola Daniel,

Lo que estás haciendo es realizar los Querys en la misma página, para esto
deberías ejecutar todo tu código en el lado del servidor y no del cliente.

¿porque?, porque estás mostrando todas tus conecciones y donde se

encuentra

la base de datos, fuera de eso, deberías darle permiso a la base de datos
(al directorio) a todos los usuarios que se conectan a tu página.

Te sugiero que hagas algo similar a esto:

<%
Dim Accion
Accion = Request("Accion")

If Accion="Grabar" Then
ProcedimientoGrabar()
ElseIf Accion="Dar Baja" Then
ProcedimientoDarBaja()
End If

%>

<html>
<body>
<form name="datos" action="pagina.asp" method="post">



<br>
<br>
<input type="submit" name="Accion" value="Grabar"> 
<input type="submit" name="Accion" value="Dar Baja">
</form>
</body>

</html>

<%
'Procedimientos anteriores.
Sub ProcedimientoGrabar()
'COLOCAR CODIGO PARA GRABAR
End Sub

Sub ProcedimientoDarBaja()
'COLOCAR CODIGO PARA DAR DE BAJA
End Sub
%>

Espero que me entiendas el ejemplo.

Saludos,
Jhonny Vargas P. [MS MVP-ASP]
Santiago de Chile
Sitio MVPs Chile http://www.mvp.cl

"Daniel Villa" escribió en el
mensaje news:uN0Dq#
> Hola Grupo:
>
> Estoy utilizando una pagina en donde tengo dos botones, Grabar y Dar de
> Baja.
>
> En ellos, al hacer clic, me llama a los sub Grabar o sub Baja,

dependiendo

> de lo que haga. Sin embargo, no funciona y no tengo la manera, en que
parte
> tengo el error.
>
> Les proporciono las funciones y ojalá alguien gentilmente me oriente al
> respecto
>

> -
> <script language="VbScript">
> <!--
> sub guardar_onclick
> vLogin = Request.Form("Select1")
> vLogin1=Login.value
> vPassword=Password.value
> if D1.selectedIndex=1 then
> vNivel="Administrador"
> end if
> if D1.selectedIndex=2 then
> vNivel="Coordinador"
> end if
> if D1.selectedIndex=3 then
> vNivel="Lider"
> end if
> if D1.selectedIndex=4 then
> vNivel="Supervisor"
> end if
> if D1.selectedIndex=5 then
> vNivel="Usuario"
> end if
> ' MSGBOX("GUARDAR"+vLogin1+vPassword+vNivel)
> ' MSGBOX(VLogin)
> ' strProvider = "Provider = Microsoft.JET.OLEDB.4.0;Data

Source

> > C:\Intranet\bdIntranet.mdb;"
> ' Set objConn = CreateObject("ADODB.Connection")
> objConn.Open strProvider
> strQuery = "UPDATE tUsuario SET LOGIN='" & vLogin1 & "', ;"
> strQuery = strQuery & "PASS='" & vPassword & "', ;"
> strQuery = strQuery & "NIVEL='" & vNivel & "'"
> strQuery = strQuery & "WHERE Login='" & vLogin & "'"
> Set objRS = objConn.Execute(strQuery)
> msgbox(strQuery)
> end sub
>
>
> sub baja_onclick
> Dim objConn, strQuery, objRS, strProvinder, Correcto, vLogin,
> vPassword, vNivel
> vLogin = Request.Form("Select1")
> strProvider = "Provider = Microsoft.JET.OLEDB.4.0;Data
Source
> = C:\Intranet\bdIntranet.mdb;"
> Set objConn = CreateObject("ADODB.Connection")
> objConn.Open strProvider
> strQuery = "DELETE FROM tUsuario Where login = '" & vLogin

> "' ;"
> Set objRS = objConn.Execute(strQuery)
> MSGBOX("BAJA"+vlogin)
>
> end sub
>
> </SCRIPT>
>

>
> He intentado aplicar los MSGBox para checar los valores sin embargo no

los

> hace, y solo me muestra en la parte inferior de la página, el signo de
> exclamación de color amarillo, diciendo error de página
>
> Salu2 :-<
>
>
>

Responder a este mensaje

#3 Jhonny Vargas P.

11/01/2004 - 03:30 | Informe spam

Hola Daniel,

Dame mas antecedentes y realizo un ejemplo de lo que necesitas...

Saludos,
Jhonny Vargas P.

"Daniel Villa" escribió en el
mensaje news:

Hola Jhonny:

Gracias por tu ayuda, entendí la estructura y como llamar los
procedimientos. Tengo una duda en cuanto al manejo de la Variable. Ya que
para actualizar o dar de baja necesito el valor del elemento seleccionado

en base a este utilizarlo en la instrucción SQL Update y Delete la

condición

Where. De hecho ese fue otros de los problemas que tuve en el código que
publique.

Como lo aplico y si esta variable (de sessión), realmente la voy a pasar a
la otra pagina.

Salu2 :-)))

"Jhonny Vargas P. [MS MVP]" escribió en

mensaje news:OsK$
> Hola Daniel,
>
> Lo que estás haciendo es realizar los Querys en la misma página, para

esto

> deberías ejecutar todo tu código en el lado del servidor y no del

cliente.

>
> ¿porque?, porque estás mostrando todas tus conecciones y donde se
encuentra
> la base de datos, fuera de eso, deberías darle permiso a la base de

datos

> (al directorio) a todos los usuarios que se conectan a tu página.
>
> Te sugiero que hagas algo similar a esto:
>
> <%
> Dim Accion
> Accion = Request("Accion")
>
> If Accion="Grabar" Then
> ProcedimientoGrabar()
> ElseIf Accion="Dar Baja" Then
> ProcedimientoDarBaja()
> End If
>
> %>
>
> <html>
> <body>
> <form name="datos" action="pagina.asp" method="post">
>
> 
>
> <br>
> <br>
> <input type="submit" name="Accion" value="Grabar"> 
> <input type="submit" name="Accion" value="Dar Baja">
> </form>
> </body>
>
> </html>
>
> <%
> 'Procedimientos anteriores.
> Sub ProcedimientoGrabar()
> 'COLOCAR CODIGO PARA GRABAR
> End Sub
>
> Sub ProcedimientoDarBaja()
> 'COLOCAR CODIGO PARA DAR DE BAJA
> End Sub
> %>
>
>
> Espero que me entiendas el ejemplo.
>
>
> Saludos,
> Jhonny Vargas P. [MS MVP-ASP]
> Santiago de Chile
> Sitio MVPs Chile http://www.mvp.cl
>
>
>
>
> "Daniel Villa" escribió en el
> mensaje news:uN0Dq#
> > Hola Grupo:
> >
> > Estoy utilizando una pagina en donde tengo dos botones, Grabar y Dar

> > Baja.
> >
> > En ellos, al hacer clic, me llama a los sub Grabar o sub Baja,
dependiendo
> > de lo que haga. Sin embargo, no funciona y no tengo la manera, en que
> parte
> > tengo el error.
> >
> > Les proporciono las funciones y ojalá alguien gentilmente me oriente

> > respecto
> >
>

> > -
> > <script language="VbScript">
> > <!--
> > sub guardar_onclick
> > vLogin = Request.Form("Select1")
> > vLogin1=Login.value
> > vPassword=Password.value
> > if D1.selectedIndex=1 then
> > vNivel="Administrador"
> > end if
> > if D1.selectedIndex=2 then
> > vNivel="Coordinador"
> > end if
> > if D1.selectedIndex=3 then
> > vNivel="Lider"
> > end if
> > if D1.selectedIndex=4 then
> > vNivel="Supervisor"
> > end if
> > if D1.selectedIndex=5 then
> > vNivel="Usuario"
> > end if
> > ' MSGBOX("GUARDAR"+vLogin1+vPassword+vNivel)
> > ' MSGBOX(VLogin)
> > ' strProvider = "Provider = Microsoft.JET.OLEDB.4.0;Data
Source
> > > > C:\Intranet\bdIntranet.mdb;"
> > ' Set objConn = CreateObject("ADODB.Connection")
> > objConn.Open strProvider
> > strQuery = "UPDATE tUsuario SET LOGIN='" & vLogin1 & "', ;"
> > strQuery = strQuery & "PASS='" & vPassword & "', ;"
> > strQuery = strQuery & "NIVEL='" & vNivel & "'"
> > strQuery = strQuery & "WHERE Login='" & vLogin & "'"
> > Set objRS = objConn.Execute(strQuery)
> > msgbox(strQuery)
> > end sub
> >
> >
> > sub baja_onclick
> > Dim objConn, strQuery, objRS, strProvinder, Correcto,

vLogin,

> > vPassword, vNivel
> > vLogin = Request.Form("Select1")
> > strProvider = "Provider = Microsoft.JET.OLEDB.4.0;Data
> Source
> > = C:\Intranet\bdIntranet.mdb;"
> > Set objConn = CreateObject("ADODB.Connection")
> > objConn.Open strProvider
> > strQuery = "DELETE FROM tUsuario Where login = '" &

vLogin

&
> > "' ;"
> > Set objRS = objConn.Execute(strQuery)
> > MSGBOX("BAJA"+vlogin)
> >
> > end sub
> >
> > </SCRIPT>
> >
>

> >
> > He intentado aplicar los MSGBox para checar los valores sin embargo no
los
> > hace, y solo me muestra en la parte inferior de la página, el signo de
> > exclamación de color amarillo, diciendo error de página
> >
> > Salu2 :-<
> >
> >
> >
>
>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida