Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 funcion sql
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Vanessa
Junior Member

España
181 Posts
Mensajes - 06 Aug 2004 :  12:22:14  Ver Perfil  Enviar Email
Hola, buenos dias, tengo una función que me hace una busqueda, pero para buscar solo tiene en cuenta el primer registro de la tabla busquedaclientes, este es el código:

Function FcomoCli() As String
Dim sql1, sql2 As String, Db As Database, R As Recordset, T As TableDef, A
Set Db = CurrentDb()
Set R = Db.OpenRecordset("busquedaclientes")
Set T = Db.TableDefs("busquedaclientes")
sql1 = "SELECT busquedaclientes.Dormitorios, Datos.codigo, Datos.Dormitorios, Datos.Precio, Datos.SW, Datos.idioma, busquedaclientes.TB, Datos.TB, Datos.Tipo, Datos.localidad, Datos.Provincia, Datos.Precioptas, busquedaclientes.Id FROM Datos, busquedaclientes WHERE "

sql2 = "((Datos.SW) = False) And ((Datos.idioma) = 'e')"
A = 0
While A < T.Fields.Count - 1
A = A + 1
If IsNull(R(T(A).Name)) Or R(T(A).Name) = "" Then
Else
If T(A).Name = "Id" Then
'sql2 = sql2 + " And ((clientes." & T(A).Name & " ) = " & R(T(A).Name) & ")"
sql2 = sql2 + " And ((busquedaclientes." & T(A).Name & " ) = " & R(T(A).Name) & ")"
Else
If T(A).Name = "precio" Or T(A).Name = "Precioptas" Then
sql2 = sql2 + " And ((Datos." & T(A).Name & " ) <= " & R(T(A).Name) & ")"
Else
sql2 = sql2 + " And ((Datos." & T(A).Name & " ) = '" & R(T(A).Name) & "')"
End If
End If
End If
'basura=" And ((Busqueda.TBbus) = "a") And ((Datos.TB) = "b") )"
Wend
sql1 = sql1 & sql2
FcomoCli = sql1

End Function

Yo lo que quiero es que según el cliente (busquedaclientes.id) me coja el registro que pertenezca a ese cliente.
No se muy bien como hacerlo, ayudenme por favor, gracias

Vanessa
Junior Member

España
181 Posts
Posted - 10 Aug 2004 :  17:55:21  Ver perfil  Enviar e-mail
por favor, necesito sacar esto y no lo consigo, alguien que me oriente, solo quiero ese mismo codigo,pero que en vez de buscarme siempre en el mismo regisro, que busque en el registro que yo le diga (ejem: si id=5, que me busque en ese registro). Gracias

Inicio Pagina

edcruz_20
Starting Member

Mexico
19 Posts
Posted - 10 Aug 2004 :  18:57:31  Ver perfil  Enviar e-mail
hola mira te mando este codigo solo checalo bien y hasle las modificaciones que tu requieras y si tienes alguna duda mi correo es conejo_001@hotmail.com
este codigo puede buscar, eliminar y actualizar checalo bien y utiliza solo lo que te sirva bye

<HTML>
<HEAD>
<TITLE>Asp de acciones preventivas para l i s t a r , mo d i f i c a r y/o e l i m i n a r</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD>
<BODY background="fondo14.gif" link="#003399" alink="#00CCFF" bgproperties="fixed">
<%
if Request("Buscar")="" and Request("Ejecutar")="" Then
%>
<FORM ACTION="http://192.168.0.38/Intranet/Buscar_modifcor.asp" METHOD="post">
<div align='center'>
<TABLE width="623" border='0' align="center" cellpadding="15" >
<tr bgcolor='#CDF0FE'>
<td width="399"><div align="center"><font color='#003399' size="3">En esta
parte debes ingresar la clave del registro a buscar</font></div></td>
<td width="178" align='right'><div align="justify"><font color='#003399' size="3">Campo
a introducir la clave</font></div></td>
</tr>
<tr>
<td height="100"><div align="left"><strong><font color="#003399" size="3">Ingresa
la clave a buscar:</font></strong></div></td>
<td> <div align="center"> <font size="3"><strong><font color="#003399">
<INPUT NAME="clave" TYPE="Text" size="6" maxlength="6" clave="clave">
<br>
</font></strong></font></div></td>
</tr>
<tr>
<td><div align="left"><font size="3"><strong><font color="#003399">
<input type="radio" name="Accion" value="Listar" checked>
Listar</font> <font color="#003399">
<input type="radio" name="Accion" value="Eliminar">
Eliminar</font> <font color="#003399">
<input type="radio" name="Accion" value="Modificar">
Modificar</font></strong></font></div></td>
<td><div align="center"> <font size="3"><strong><font color="#003399">
<INPUT TYPE="Submit" NAME="Buscar" Value="Buscar">
<br>
</font></strong></font></div></td>
</tr>
</TABLE>
<a href="menu_acceso.html"><strong><em>Regresar</em></strong></a>
</FORM>

<%
Else if Request("Buscar")<>"" Then
Set Registro = Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM CORRECTIVA"
SQL=SQL & " WHERE CLAVE LIKE '%"& Request.Form("clave") & "%' ORDER BY CLAVE"
Registro.Open SQL,"DSN=Acceso"
Response.write "<FORM ACTION='http://192.168.0.38/Intranet/Buscar_modifcor.asp' METHOD='post'>"
Response.write "<center>"
If Request("Accion")<>"Listar" Then
Response.write "<INPUT TYPE='Submit' NAME='Ejecutar' Value='Ejecutar'>"
End If
Response.write "</center>"
Response.write "<div align='center'>"
Response.write "<table border='0' cellspacing='0' cellpadding='3' bgcolor='#003399'>" & VbCrLf
Response.write "<tr>"
For Each Columna In Registro.fields
Response.write "<td align='center' valing='middle'>"
Response.write "<FONT face='Verdana' color='#FFFFFF' size='2'>"
Response.write "<strong>"&Columna.name&"</strong></font></td>"
Next
Response.write "</tr>"
If Registro.EOF Then
Response.write "<tr><td valing='middle' align='center' bgcolor='#f2f2f2' colspan=4>"
Response.write "<font face='Verdana' size='2' >No Hay Registros</font></td></tr>" & VbCrLf
Else
Do While Not Registro.EOF
For Each Campo In Registro.fields
Valor=Campo.value
If Isnull(Valor) Then Valor="-NULL-"
If Trim(Valor)="" Then Valor=" "
Response.write VbCrLf&"<td valing='middle' align='center' bgcolor='#CDFOFE'>"
Response.write "<font face='Verdana'size='2'>"&Valor&"</font></td>"
Next
If Request("Accion")<>"Listar" Then
Response.write VbCrLf&"<td><font face='Verdana' size='2' color='#FFFFFF'>Elegir:</font>"
Response.write "<input type='radio' name='clave' value='"&Registro.fields(0) &"'></td>"
End if
Response.write VbCrLf&"</tr>"
Registro.Movenext
Loop
End If
Response.write VbCrLf&"</table>"
Response.write "<FONT face='Verdana' size='2'><a href='Buscar_modifcor.asp'><strong><em>Regresar</em></strong></a></font></div>"
Registro.Close
Set Registro=Nothing
Response.write "<input type='hidden' name='Accion' value='"&Request("Accion") &"'>"
Response.write "</FORM>"
End If
End If
If Request("Ejecutar")<>"" Then
Set Registro = Server.CreateObject("ADODB.Recordset")
If Request("Accion")="Eliminar" Then
SQL="DELETE FROM CORRECTIVA WHERE CLAVE = '"& Request("clave") &"'"
Response.write "<div align='center'>"
Response.write "<FONT face='Verdana' size='2' color='#003399'><br><br><b>El registro seleccionado ha sido eliminado..."
Response.write "</font><br>"
Response.write "<FONT face='Verdana' size='2'>"
Response.write "<br><a href='Buscar_modifcor.asp'>Regresar</a>"
Response.write "</font></div>"
Else If Request("Accion")="Modificar" Then
SQL="SELECT CLAVE,DIA,MES,AÑO,FOLIO1,MOTIVO,FOLIO,RECHAZO,ACCIONES,CAUSA,CORRECTIVA,RESPONSABLE,FECHA FROM CORRECTIVA"
SQL=SQL & " WHERE CLAVE ='"&Request("clave")&"'"
Registro.Open SQL,"DSN=Acceso"
%>
<FORM ACTION='http://192.168.0.38/Intranet/Buscar_modifcor.asp' METHOD='post'><div align='center'>
<TABLE border='0' align="center" >
<tr bgcolor='#CDF0FE'>
<td width="90" height="45"><div align="left"><font color='#003399' size="3"><strong>Campos</strong></font></div></td>
<td width="343" align='right'><div align="center"><font color="#003399" size="3"><strong>Datos
para modificar</strong></font></div></td>
</tr>
<tr>
<td><div align="left"><font size="3"><strong><font color="#003399">Clave</font></strong></font></div></td>
<td><div align="left"><font size="3"><%=Registro("CLAVE")%></font></div></td>
</tr>
<tr>
<td><div align="left"><font size="3"><strong><font color="#003399">D&iacute;a</font></strong></font></div></td>
<td><div align="center"> <font size="3">
<INPUT NAME="dia" TYPE="Text" id="dia" VALUE="<%=Registro("DIA")%>" clave="dia">
</font></div></td>
</tr>
<tr>
<td><div align="left"><font size="3"><strong><font color="#003399">Mes</font></strong></font></div></td>
<td><div align="center"> <font size="3">
<INPUT NAME="mes" TYPE="Text" id="mes" VALUE="<%=Registro("MES")%>" clave="mes">
</font></div></td>
</tr>
<tr>
<td><div align="left"><font size="3"><strong><font color="#003399">A&ntilde;o</font></strong></font></div></td>
<td><div align="center"> <font size="3">
<INPUT NAME="año" TYPE="Text" id="año" VALUE="<%=Registro("AÑO")%>" clave="año">
</font></div></td>
</tr>
<tr>
<td><div align="left"><font size="3"><strong><font color="#003399">Folio1</font></strong></font></div></td>
<td><div align="center"> <font size="3">
<INPUT NAME="folio1" TYPE="Text" id="folio1" VALUE="<%=Registro("FOLIO1")%>" clave="folio1">
</font></div></td>
</tr>
<tr>
<td><div align="left"><font size="3"><strong><font color="#003399">Motivo</font></strong></font></div></td>
<td><div align="center"> <font size="3">
<INPUT NAME="motivo" TYPE="Text" id="motivo" VALUE="<%=Registro("MOTIVO")%>" clave="motivo">
</font></div></td>
</tr>
<tr>
<td><div align="left"><font size="3"><strong><font color="#003399">Folio</font></strong></font></div></td>
<td><div align="center"> <font size="3">
<INPUT NAME="folio" TYPE="Text" id="folio" VALUE="<%=Registro("FOLIO")%>" clave="folio">
</font></div></td>
</tr>
<tr>
<td><div align="left"><font size="3"><strong><font color="#003399">Rechazo</font></strong></font></div></td>
<td><div align="center"> <font size="3">
<INPUT NAME="rechazo" TYPE="Text" id="rechazo" VALUE="<%=Registro("RECHAZO")%>" clave="rechazo">
</font></div></td>
</tr>
<tr>
<td><div align="left"><font size="3"><strong><font color="#003399">Accion</font></strong></font></div></td>
<td><div align="center"> <font size="3">
<input name="acciones" type="Text" id="acciones" value="<%=Registro("ACCIONES")%>" clave="acciones">
</font></div></td>
</tr>
<tr>
<td><div align="left"><font size="3"><strong><font color="#003399">Causa</font></strong></font></div></td>
<td><div align="center"> <font size="3">
<INPUT NAME="causa" TYPE="Text" id="causa" VALUE="<%=Registro("CAUSA")%>" clave="causa">
</font></div></td>
</tr>
<tr>
<td><div align="left"><font size="3"><strong><font color="#003399">Correctiva</font></strong></font></div></td>
<td><div align="center"> <font size="3">
<INPUT NAME="correctiva" TYPE="Text" id="correctiva" VALUE="<%=Registro("CORRECTIVA")%>" clave="correctiva">
</font></div></td>
</tr>
<tr>
<td height="29"><div align="left"><font size="3"><strong><font color="#003399">Responsable:</font></strong></font></div></td>
<td><div align="center"> <font size="3">
<INPUT NAME="responsable" TYPE="Text" id="responsable" VALUE="<%=Registro("RESPONSABLE")%>" clave="responsable">
</font></div></td>
</tr>
<tr>
<td height="29"><div align="left"><font size="3"><strong><font color="#003399">Fecha:</font></strong></font></div></td>
<td><div align="center"> <font size="3">
<INPUT NAME="fecha" TYPE="Text" id="fecha" VALUE="<%=Registro("FECHA")%>" clave="fecha">
</font></div></td>
</tr>
<td height="42"><div align="left"><font size="3"></font></div></td>
<td><div align="center"> <font size="3">
<input type="Submit" name="Modificar" value="Modificar">
</font></div></td>
</tr>
<INPUT TYPE="Hidden" NAME="Clave" VALUE="<%=Registro("clave")%>">
<INPUT TYPE="Hidden" NAME="Accion" Value="Modificado">
<INPUT TYPE="Hidden" NAME="Ejecutar" Value="True">
</TABLE>
<FONT color="#FFFFFF" size='2' face='Verdana'> </font>
</FORM>
<p align="left"><font color="#FFFFFF" size='2' face='Verdana'><a href='Buscar_modifcor.asp'><strong><em>Regresar</em></strong></a>
</font>
<%
Else If Request("Accion")="Modificado" Then
SQL="UPDATE CORRECTIVA SET CLAVE ='"&Request("clave")
SQL=SQL & "',DIA='"&Request("dia")&"',"
SQL=SQL & "MES='"&Request("mes")&"',"
SQL=SQL & "AÑO='"&Request("año")&"',"
SQL=SQL & "FOLIO1='"&Request ("folio1" )&"',"
SQL=SQL & "MOTIVO='"&Request("motivo")&"',"
SQL=SQL & "FOLIO='"&Request("folio")&"',"
SQL=SQL & "RECHAZO='"&Request("rechazo")&"',"
SQL=SQL & "ACCIONES='"&Request("acciones")&"',"
SQL=SQL & "CAUSA='"&Request("causa")&"',"
SQL=SQL & "CORRECTIVA='"&Request("correctiva")&"',"
SQL=SQL & "RESPONSABLE='"&Request("responsable")&"',"
SQL=SQL & "FECHA='"&Request("fecha")&"' WHERE CLAVE ='" & Request ("clave")&"'"
Response.write "<div align='center'><FONT face='Verdana' size='2' color='#003399'>"
Response.write "<br><br><b>El registro seleccionado ha sido modificado...</font><br>"
Response.write "<FONT size='2'>"
Response.write "<br><a href='Buscar_modifcor.asp'><strong><em>Regresar</em></strong></a></font></div>"
End If
End If
End If
If Request("Accion")<>"Modificar" Then
Registro.Open SQL,"DSN=Acceso"
End If
Set Registro=Nothing
End If
%>
</p>
</BODY>
</HTML>


EdmundoInicio Pagina

Vanessa
Junior Member

España
181 Posts
Posted - 10 Aug 2004 :  19:35:28  Ver perfil  Enviar e-mail
Te agradezco la contestación, pero no es eso lo que estoy buscando, el tema es que lo estoy haciendo en un programa en access, no en asp, y pensé que como es sql y codigo muy parecido al access, pues me ivan a poder ayuudar, gracias..

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