Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 No puedo hacer update en la base de datos
 Foro Bloqueado  Tema Bloqueado


Autor Temas
virtualkaiser
Starting Member

Japan
8 Posts
Mensajes - 23 Oct 2005 :  10:44:58  Ver Perfil  Enviar Email
Ejecutando el update en la base de datos no tengo problema alguno, el problema lo tengo en la linea siguiente, la verdad estoy loco hace una semana buscando como resolver este problema, les dejo el codigo y espero una gran ayuda....

<%
Dim rs 'Variable para la coneccion y la muestra de datos
Dim rsUpdate 'Variable para la coneccion y guardar datos
Dim newSearch 'Variable que acepta los valores de search variable que proviene de la pagina de consulta
Dim conectaDB 'Variable de Coneccion de Base de Datos
Dim strSQL 'Variable de consulta SQL en la tabla Movie
Dim strSQLupdate 'Variable de modificacion de datos en la tabla Movie
Const adOpenDynamic = 2
NewSearch=request.QueryString("Search")
%>
<%
'CREA UNA NUEVA CONECCION
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DSN=SearchAllDataBase;"
%>
<%
If request.form("SalvaDatos")="HOSON" Then
strSQLupdate ="UPDATE YellowPages SET categoria='"&request.form("categoria")&"', nombre='"&request.form("nombre")&"', zip='"&request.form("zip")&"', prefetura='"&request.form("prefetura")&"', kushigun='"&request.form("kushigun")&"', chomachi="&request.form("chomachi")&", chomebanchi='"&request.form("chomebanchi")&"', complemento='"&request.form("complemento")&"', phone1='"&request.form("phone1")&"', phone2='"&request.form("phone2")&"', internet='"&request.form("internet")&"', mail='"&request.form("Mail")&"', referencias='"&request.form("referencias")&"'"
strSQLupdate = strSQLupdate & " WHERE ID="& request.form("txtNewSearch")
'response.write strSQLupdate
'response.write adoCon.state 'Muestra el estado de coneccion 1 lectura, 2 escritura, 3 lectura y escritura
'response.end
Set rs = Server.CreateObject("ADODB.Recordset")
adoCon.Execute(strSQLupdate)
Set rs = Nothing
Set adoCon = Nothing
End if
%>
<%
SQLtxt = "SELECT * FROM yellowpages Where ID="& newSearch &""
set rs = adoCon.Execute(SQLtxt)
'response.write adoCon.state 'Muestra el estado de coneccion 1 lectura, 2 escritura, 3 lectura y escritura
'response.write SQLtxt
'response.end
%>

<html>
<head>
<title>Consulta</title>

<!-- STYLE DEL SITE -->
<LINK REL="stylesheet" href="fonts.css">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css">
<!--
body {
background-color: #F3F3F3;
}
-->
</style></head>
<body>

<form method="post" name="frmInterSearch" action="pag_buscanewresultadolink.asp?Search="<% Response.Write NewSearch %>>
<input type=hidden name="txtNewSearch" value="<% Response.Write NewSearch %>">
<table width="600" height="280" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="600" height="20" align="left" valign="top"><table width="600" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="80"><span class="texto11GB">Categoria :</span> </td>
<td width="520">
<input name="categoria" type="text" class="texto11G" value="<% Response.Write("" & RS("categoria") & "") %>" size="40"></td>
</tr>
</table></td>
</tr>
<tr>
<td width="600" height="20" align="left" valign="top"><table width="600" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="80"><span class="texto11GB">Nome :</span> </td>
<td width="520">
<input name="nombre" type="nombre" class="texto11G" value="<% Response.Write("" & RS("nombre") & "") %>" size="40"></td>
</tr>
</table> </td>
</tr>
<tr>
<td width="600" height="100" align="left" valign="top"><table width="600" height="100" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="80"><span class="texto11GB">Endereco : </span></td>
<td width="520">
<input name="Zip" type="text" class="texto11G" value="<% Response.Write("" & RS("Zip") & "") %>">
<input name="Prefetura" type="text" class="texto11G" value="<% Response.Write("" & RS("Prefetura") & "") %>" size="30"></td>
</tr>
<tr>
<td width="80">&nbsp;</td>
<td width="520">
<input name="KuShiGun" type="text" class="texto11G" value="<% Response.Write("" & RS("KuShiGun") & "") %>" size="80"></td>
</tr>
<tr>
<td width="80">&nbsp;</td>
<td width="520">
<input name="ChoMachi" type="text" class="texto11G" value="<% Response.Write("" & RS("ChoMachi") & "") %>" size="80"></td>
</tr>
<tr>
<td width="80">&nbsp;</td>
<td width="520">
<input name="ChoMeBanchi" type="text" class="texto11G" value="<% Response.Write("" & RS("ChoMeBanchi") & "") %>" size="80"></td>
</tr>
<tr>
<td width="80">&nbsp;</td>
<td width="520">
<input name="Complemento" type="text" class="texto11G" value="<% Response.Write("" & RS("Complemento") & "") %>" size="80"></td>
</tr>
</table></td>
</tr>
<tr>
<td width="600" height="20" align="left" valign="top"><table width="600" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="80" class="texto11GB">Telefone</td>
<td width="520">
<input name="Phone1" type="text" class="texto11G" value="<% Response.Write("" & RS("Phone1") & "") %>" size="12">
<input name="Phone2" type="text" class="texto11G" value="<% Response.Write("" & RS("Phone2") & "") %>" size="12"></td>
</tr>
</table></td>
</tr>
<tr>
<td width="600" height="40" align="left" valign="top"><table width="600" height="40" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="80" align="left" valign="top" class="texto11GB">Internet</td>
<td width="520">
<input name="Internet" type="text" class="texto11G" value="<% Response.Write("" & RS("Internet") & "") %>" size="80"><br>
<input name="Mail" type="text" class="texto11G" value="<% Response.Write("" & RS("Mail") & "") %>" size="40"></td>
</tr>
</table> </td>
</tr>
<tr>
<td width="600" height="60" align="left" valign="top"><table width="600" height="60" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="80" align="left" valign="top" class="texto11GB">Referencia</td>
<td width="520">
<textarea name="referencias" cols="70" rows="4" class="texto11G" id="referencias"><% Response.Write("" & RS("Referencias") & "") %>
</textarea>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="20" align="center" valign="middle"><table width="600" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="80">&nbsp;</td>
<td>
<input name="button" type="button" class="texto10GB" onClick="window.close();" value="Cerrar esta ventana">
<input name="SalvaDatos" type="submit" class="texto10GB" value="HOSON"></td>
</tr>
</table></td>
</tr>
</table>
</form>
</body>

P_AlmA
Starting Member

España
11 Posts
Posted - 07 Nov 2005 :  02:48:10  Ver perfil  Enviar e-mail  Visit P_AlmA's Homepage
hola compañero, he estado revisando tu codigo rapidamente, tampoco con mucha profundidad ya que tal y como lo tienes escrito es un tanto dificil de leer, pero mi consejo ya que aparentemente parece estar correcto, es que revises las las comillas simples necesarias para hacer el UPDATE a la base de datos me explico, por ejeplo en el caso de MAIL = " ' " & REQUEST.FORM("MAIL") & " ' ", las comillas simples que necesitas poner para poder hacer la insercion en la base de datos tienen q estar entre 1 par de comillas dobles, para que las tome como texto a insertar ya que si pones como has hecho tu esto mail='"&request.form("Mail")&"', te puede dar algun tipo de problema al creer que es algun comentario, revisa eso y si te sigue dando fallos el error no tiene que andar muy desencaminado. Otra opcion que puedes tener en cuenta para ver el codigo un poco mas claro podria ser el el asignar a las variables lo escrito en el formulario antes de empezar con la sentencia If condicion Then y una vez dentro de ella poner simplemente el nombre de las variables. Espero haberte servido de ayuda, pero es que no he visto el codigo muy en profundidad. Saludos!!

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar