Foros del Web » Programando para Internet » ASP Clásico »

Mysql - ASP

Estas en el tema de Mysql - ASP en el foro de ASP Clásico en Foros del Web. Bueno aunque parezca mentira les cuento lo que pasa a ver si alguien le paso lo mismo y como lo resolvió. cambie de servidor de ...
  #1 (permalink)  
Antiguo 24/11/2003, 21:59
 
Fecha de Ingreso: noviembre-2003
Mensajes: 1
Antigüedad: 21 años, 5 meses
Puntos: 0
Mysql - ASP

Bueno aunque parezca mentira les cuento lo que pasa a ver si alguien le paso lo mismo y como lo resolvió.

cambie de servidor de hosting y tuve que migrar BD Access a Mysql 3.2357 (que es la que usa el proveedor) esta bajo linux - servidor Apache 1.3

Bueno luego de migrar la base, cambiar la cadena de conexión y un poco de la sintaxis en las sentencias SQL me encuentro con el siguiente problema.

Tengo una pagina ASP se conecta con la base y modifica un dato de un registro que busco y selecciono previamente ahora el GRAN PROBLEMA es que sobre algunos registros modifica el dato y sobre otros no. AYUDAAAAAAAAAA.........POR FAVOR...!!!!

Les paso parte del código para que vean, cualquier sugerencia, pista o lo que se les ocurra, será muy agradecida.

Sub Pmodificacion()
dato1 = Trim(Request.Form("dato1"))
dato2 = Trim(Request.Form("dato2"))

Set cnn1 = Server.CreateObject("ADODB.Connection")
openStr = "DRIVER={Mysql};DATABASE=isomaxnet;SERVER=mysql.is omaxnet.com.ar;UID=isomaxnet;PWD=4oyHVhdQ;"
cnn1.Open openStr,"",""
sql = "SELECT * FROM [impo] WHERE (((impo.itfl)='"&dato1&"'))"
Set rsMbrs = Server.CreateObject("ADODB.Recordset")
rsMbrs.Open sql, cnn1, adOpenDynamic, adLockOptimistic, adCmdText


If rsMbrs.EOF then
fMsg = "No es posible modificar el Nº de Interno TFL no existe"
else
rsMbrs("visible") = dato2
rsMbrs.Update
fMsg = "Modificación exitosa !!!!!!!!!!!!!"
End If

rsMbrs.Close
Set rsMbrs = Nothing
cnn1.Close
Set cnn1 = Nothing
End Sub
%>
  #2 (permalink)  
Antiguo 29/11/2003, 14:09
Avatar de Cbas  
Fecha de Ingreso: enero-2002
Ubicación: capital federal
Mensajes: 437
Antigüedad: 23 años, 4 meses
Puntos: 2
por que no probas de hacer
Si es númerico
sql = "UPDATE tabla WHERE campo = " & Criterio

Si es texto
sql = "UPDATE tabla WHERE campo = '" & Criterio & "'"
cnn1.Execute sql, nReg
nReg te devuelve la cantidad de registros modificados.. y si es mayor a 0 modificó.. sino no modificó nada.
Saludos
__________________
La Perfección es enemigo de lo bueno.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:45.