3 combobox dependientes

hugorei · #1 (**permalink**) 21/02/2009, 14:49

con asp y base de datos , alguien tendra un codigo ya que estoy cansado de intentar hacerlo y nada me funciona.

Gracias

HUGOREI

Adler · #2 (**permalink**) 22/02/2009, 08:03

Hola

Con ASP, la verdad es que no queda muy bien. Mejor sería ASP y AJAX

poblaciones.html

Código html:

Ver original<html>
<head>
<script type="text/javascript" src="poblaciones.js"></script>
</head>
<body>
<form action="poblaciones.asp" method="post">
<div id="cajas">
<table>
<tr>
<td id="t_1">
Comunidad<br /><select name="s_1" id="s_1">
<option value="">Seleccionar Comunidad</option>
<option value="Extremadura">Extremadura</option>
<option value="Andalucia">Andalucia</option>
</select>
</td>
<td id="t_2">
Provincia<br /><select name="s_2" id="s_2" disabled="true">
<option value="">Seleccionar Provincia</option>
</select>
</td>
<td id="t_3">
Ciudad<br /><select name="s_3" id="s_3" disabled="true">
<option value="">Seleccionar Ciudad</option>
</select>
</td>
<td id="t_4">
Calle<br /><select name="s_4" id="s_4" disabled="true">
<option value="">Seleccionar Calle</option>
</select>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>

poblaciones.js

Código js:

Ver originalvar ns4 = (document.layers)? true:false
var ie4 = (document.all)? true:false
var ns6 = (document.getElementById)? true:false
 
function captura_objeto(idnombre) {
    if (ns6)
    {
    return document.getElementById(idnombre);
    }
    else if (ie4)
    {
    return document.all[idnombre];
    }
    else if (ns4)
    {
    return document.layers[idnombre];
    }
    else
    {
    return null;
    }
}
 
 
function creaAjax(){
    var ajaxs = ["Msxml2.XMLHTTP","Msxml2.XMLHTTP.4.0","Msxml2.XMLH TTP.5.0","Msxml2.XMLHTTP.3.0","Microsoft.XMLHTTP"];
    var ajax = false;
    for(var i=0 ; !ajax && i<ajaxs.length ; i++){
        try{ 
            ajax = new ActiveXObject(ajaxs[i]);   // Internet Explorer
        }
        catch(e) { 
            ajax = false; 
        }
    }
    if(!ajax && typeof XMLHttpRequest!='undefined') {
        ajax = new XMLHttpRequest();  // Firefox, Opera 8.0+, Safari
    }
    return ajax;
}
 
 
function Ciudad(buska, id) {
var ajax=creaAjax();
var objetosel = captura_objeto("t_"+id);
ajax.open("GET",'poblaciones_ajax.asp?mostrark='+buska+'&d='+id,true);
ajax.onreadystatechange = function() {
 
        if (ajax==null){
        alert ("Tu navegador web no soporta AJAX!");
        return;
    }
 
     if (ajax.readyState==4){
                       if(ajax.status==200){           
            if (objetosel.disabled = true)  objetosel.disabled = false;
                    else objetosel.disabled = true;    
                                                 objetosel.innerHTML = ajax.responseText;
                   }
                       else if (ajax.status==404)
                                             {
 
                                    objetosel.innerHTML = "La dirección no existe";
                                             }
                                     else
                                             {
                                    objetosel.innerHTML = "Error: " + ajax.status;
                                             }
                                    }
                  }
    
    ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
             ajax.send(null);
            return
}
    
 
 
 
function Evento() {
var elemento = document.getElementById("s_1")
var nomevento = "change"
var funcion = function() { 
var suma = parseInt(this.id.split("_")[1]);
suma += parseInt(1);
Ciudad(document.getElementById(this.id).options[document.getElementById(this.id).selectedIndex].value, +suma); 
}
 
  if (elemento.attachEvent)
  {
      var f=function(){
        funcion.call(elemento,window.event);
    }
    elemento.attachEvent('on'+nomevento,f);
    return true;
  }
  else  
    if (elemento.addEventListener)
    {
      elemento.addEventListener(nomevento,funcion,false);
      return true;
    }
    else
      return false;
}
 
 
window.onload = Evento;

CONTINUA EN EL SIGUIENTE POST

Adler · #3 (**permalink**) 22/02/2009, 08:21

poblaciones_ajax.asp

Código asp:

Ver originalDim buscarpor, oConn, rs, SQL, registros, z
Dim Comunidad, Provincia, Ciudad, Calle ' campos de la bd
Comunidad = 0
Provincia = 1
Ciudad = 2
Calle = 3
 
buscarpor = Split(Request.QueryString("mostrark"), "-")
 
' conexión a bd
 
Select Case UBound(buscarpor)
Case 0 :
SQL ="SELECT Comunidad, Provincia FROM Poblaciones WHERE Comunidad LIKE '"& buscarpor(0) &"%' GROUP BY Comunidad, Provincia ORDER BY Provincia asc" 
set rs = oConn.Execute(SQL)
registros = rs.getrows()
Response.Write "Provincia<br /><select name=""s_2"" id=""s_2"" onchange=""Ciudad(document.getElementById('s_2').options[document.getElementById('s_2').selectedIndex].value, 3);"">"
Response.Write "<option value="""">Seleccionar Provincia</option>"
For z = 0 to UBound(registros,2)
Response.Write "<option value="""& buscarpor(0) &"-"& registros(Provincia,z) &""">" & registros(Provincia,z) & "</option>"
Next 'z
Response.Write "</select>"
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
 
Case 1 :
SQL ="SELECT Comunidad, Provincia, Ciudad FROM Poblaciones WHERE Comunidad LIKE '"& buscarpor(0) &"%' AND Provincia LIKE '"& buscarpor(1) &"%' GROUP BY Comunidad, Provincia, Ciudad ORDER BY Ciudad asc" 
set rs = oConn.Execute(SQL)
registros = rs.getrows()
Response.Write "Ciudad<br /><select name=""s_3"" id=""s_3"" onchange=""Ciudad(document.getElementById('s_3').options[document.getElementById('s_3').selectedIndex].value, 4);"">"
Response.Write "<option value="""">Seleccionar Ciudad</option>"
For z = 0 to UBound(registros,2)
Response.Write "<option value="""& buscarpor(0) &"-"& buscarpor(1) &"-"& registros(Ciudad,z) &""">" & registros(Ciudad,z) & "</option>"
Next 'z
Response.Write "</select>"
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
 
Case 2 :
SQL ="SELECT Comunidad, Provincia, Ciudad, Calle FROM Poblaciones WHERE Comunidad LIKE '"& buscarpor(0) &"%' AND Provincia LIKE '"& buscarpor(1) &"%' AND Ciudad LIKE '"& buscarpor(2) &"%' GROUP BY Comunidad, Provincia, Ciudad, Calle ORDER BY Calle asc" 
set rs = oConn.Execute(SQL)
registros = rs.getrows()
Response.Write "Calle<br /><select name=""s_4"" id=""s_4"">"
Response.Write "<option value="""">Seleccionar Calle</option>"
For z = 0 to UBound(registros,2)
Response.Write "<option value="""& buscarpor(0) &"-"& buscarpor(1) &"-"& buscarpor(2) &"-"& registros(Calle,z) &""">" & registros(Calle,z) & "</option>"
Next 'z
Response.Write "</select>"
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
 
End Select

NOTA: El código está editado con la solución después de subsanar el inconveniente

Suerte

Myakire · #4 (**permalink**) 22/02/2009, 09:30

Cita:

Iniciado por Adler

NOTA: El resto del código no puede imprimirlo, me aparece Error 500 page. Change it on /errors/500.html Add more on the .htaccess file
Suerte

Shiryu_Libra ya lo reportó el fallo en el foro correspondiente ¿haz seguido teniendo ese problema en otros hilos o solo en este?

hugorei · #5 (**permalink**) 22/02/2009, 09:47

ups y como sigue ? te mande un privado , podrias mandarmelo

MUCHAS GRACIASSSSSSSSSSSSS , es un tema que vengo buscando hace rato e intente de todo.

Adler · #6 (**permalink**) 22/02/2009, 13:20

Cita:

Iniciado por Myakire

Shiryu_Libra ya lo reportó el fallo en el foro correspondiente ¿haz seguido teniendo ese problema en otros hilos o solo en este?

Solamente en este post. Gran trabajo

hugorei · #7 (**permalink**) 22/02/2009, 13:36

Cita:

Iniciado por Adler

poblaciones_ajax.asp

Código asp:

Ver original<%
Dim buscarpor, oConn, rs, SQL, registros, z
Dim Comunidad, Provincia, Ciudad, Calle
Comunidad = 0
Provincia = 1
Ciudad = 2
Calle = 3
 
buscarpor = Split(Request.QueryString("mostrark"), "-")
 
' conexion a bd
 
Select Case UBound(buscarpor)
Case 0 :
' busco provincia
Case 1 :
' busco ciudad
Case 2 :
' busco calle
End Select

NOTA: El resto del código no puede imprimirlo, me aparece Error 500 page. Change it on /errors/500.html Add more on the .htaccess file

Suerte

como sigue ??????'

hugorei · #8 (**permalink**) 22/02/2009, 17:11

Funciona de maravilla , pero tengo una duda como hago para que me muestre el resultado de los datos encontrados segun el combobox

Adler · #9 (**permalink**) 23/02/2009, 06:01

Hola

Cita:

Iniciado por hugorei

Funciona de maravilla , pero tengo una duda como hago para que me muestre el resultado de los datos encontrados segun el combobox

¿A que te refieres?

¿Será que has de añadirle un submit?

Suerte

Myakire · #10 (**permalink**) 23/02/2009, 12:40

Ya esta solucionado ese detalle, por si quieres completar tu código Adler

saludos

hugorei · #11 (**permalink**) 25/02/2009, 12:13

FUNCIONA MUY BIEN, EL TEMA QUE QUIERO ENVIAR SEGUN LA BUSQUEDA DE LOS 3 COMBOX PASARLO POR UN BOTON Y QUE ME MUESTRE LOS CAMPOS QUE LE DIGA DE LA BASE DE DATOS, como se puede hacer esto ?

registros_r2 · #12 (**permalink**) 26/02/2009, 17:45

Hola a todos:

Que tal Adler, no he conseguido hacer funcionar tu codigo, no se porque!!!, pero tengo este otro que he encontrado y funciona muy bien, salvo que cuando hago la primera seleccion estan los resultados filtrados, pero en la segunda me salen resultados repetidos, no se si me entiendes... bueno, se puede solucionar, os dejo el codigo que le puede venir bien a hugorei

Código:

<%
' this section of code is self-contained and suitable to be moved to an include file
Function TripleLinkedList(oCon, sQuery, sFormFieldName, nSize, sDBField1, sDBField2, sDBField3, sDBFieldResult)
 ' this is a general-purpose routine that implements triple-linked
 ' listboxes. here is the drill
 Dim sTemp  ' general-purpose temp variable
 Dim sScript  ' bucket for holding the script structure
 Dim sSelect  ' bucket for the <SELECT> statement
 Dim sArray1  ' bucket to store the DBField2 array
 Dim nField1  ' counter for the primary array
 Dim sArray2  ' bucket to store the DBField3 array
 Dim nField2  ' counter for the secondary array
 Dim rs   ' recordset
 Dim sLastVal1 ' comparison string to test for record changes
 Dim sLastVal2 ' comparison string to test for record changes
 On Error Resume Next
 If Not IsObject(oCon) Then
  sScript = "error processing triplelist -- need a connection object."
 ElseIf oCon.State <> 1 Then
  If Err.number <> 0 Then
   sScript = "error processing triplelist -- invalid connection object."
  Else
   sScript = "error processing triplelist -- connection is not open."
  End If
 Else
  Set rs = oCon.Execute(sQuery)
  If Err.number <> 0 Then
   sScript = "error processing query. Error " & Hex(Err.number) & ": " & Err.Description
  ElseIf rs.EOF Then
   sScript = "no records found -- seems wrong"
  Else
   On Error Goto 0 
   sScript = "<SCR" & "IPT LANGUAGE=""JavaScript"">" & vbCrlf
   sScript = sScript & "var array1 = new Array();" & vbCrlf
   sScript = sScript & "var array2 = new Array();" & vbCrlf
   sSelect = "<SELECT NAME=""" & sFormFieldName & "1"" SIZE=""" & nSize & _
	""" ONCHANGE=""return(clickcombo(1,document.forms[0]." & _
	sFormFieldName & "1,document.forms[0]." & sFormFieldName & _
	"2,document.forms[0]." & sFormFieldName & "3));""><OPTION>Select a value</OPTION>" & vbCrlf
   sLastVal1 = "empty" ' set up a default test value...
	  Do Until rs.EOF
		  If rs(sDBField1) <> sLastVal1 Then
	 If Right(sArray1, 3) = "," & vbCrlf Then
	  ' pull off any trailing commas
	  sArray1 = Left(sArray1, Len(sArray1) - 3)
	 End If
	 If Len(sArray1) > 0 Then
	  sArray1 = sArray1 & ");" & vbCrlf
	 End If
	 ' pick up new information for this row...
	 nField1 = nField1 + 1
	 sLastVal1 = rs(sDBField1)
	 ' write the new contents of field 1 to the select statement
	 sSelect = sSelect & "<OPTION VALUE=" & nField1 & ">" & sLastVal1 & "</OPTION>"
	 ' write a new entry in array1 for the field 2 values...
	 sArray1 = sArray1 & "array1[" & nField1 & "] = new Array(" & vbCrlf
	 ' and reset the test values for field 2
	 nField2 = 0
	 sLastVal2 = "empty"
	End If
	If sLastVal2 <> rs(sDBField2) Then
	 If Right(sArray2, 3) = "," & vbCrlf Then
	  ' pull off any trailing commas
	  sArray2 = Left(sArray2, Len(sArray2) - 3)
	 End If
	 If Len(sArray2) > 0 Then
	  sArray2 = sArray2 & ");" & vbCrlf
	 End If
	 ' pick up new information for this row...
	 sLastVal2 = rs(sDBField2)
	 nField2 = nField2 + 1
	 ' write a new entry in array1 containing this set of field 2 values...
	 sArray1 = sArray1 & "	" & 1000 * nField1 + nField2 & ",""" & sLastVal2 & """," & vbCrlf
	 ' write a new entry in array2 for this set of field 3 values...
	 sArray2 = sArray2 & "// values for " & sLastVal2 & vbCrlf
	 sArray2 = sArray2 & "array2[" & 1000 * nField1 + nField2 & "] = new Array(" & vbCrlf
	End If
	' write the field3 values to the field2 array...
	sArray2 = sArray2 & "	" & rs(sDBFieldResult) & ",""" & rs(sDBField3) & """," & vbCrlf
	rs.MoveNext ' move on to the next record...
   Loop
   ' if these arrays weren't previously closed out, then close them now
   If Right(sArray2, 3) = "," & vbCrlf Then
	' pull off any trailing commas
	sArray2 = Left(sArray2, Len(sArray2) - 3)
   End If
   If Len(sArray2) > 0 Then
	sArray2 = sArray2 & ");" & vbCrlf
   End If
   ' if these arrays weren't previously closed out, then close them now
   If Right(sArray1, 3) = "," & vbCrlf Then
	' pull off any trailing commas
	sArray1 = Left(sArray1, Len(sArray1) - 3)
   End If

   If Len(sArray1) > 0 Then
	sArray1 = sArray1 & ");" & vbCrlf
   End If
   ' close out the listbox/combobox and add the second and third listbox/combobox entries...
   sSelect = sSelect & "</SELECT>" & vbCrlf
   sSelect = sSelect & "<SELECT NAME=""" & sFormFieldName & "2"" SIZE=""" & nSize & _
	""" ONCHANGE=""return(clickcombo(2,document.forms[0]." & sFormFieldName & _
	"1,document.forms[0]." & sFormFieldName & "2,document.forms[0]." & _
	sFormFieldName & "3));""><OPTION>Select a value</OPTION></SELECT>" & vbCrlf
   sSelect = sSelect & "<SELECT NAME=""" & sFormFieldName & "3"" SIZE=""" & nSize & _
	"""><OPTION>Select a value</OPTION></SELECT>" & vbCrlf
   ' finally clean up the script and write the whole thing out as a block
   sScript = sSelect & vbCrlf & _
	sScript & vbCrlf & _
	sArray1 & vbCrlf & _
	sArray2 & vbCrlf & _
	"</SCR" & "IPT>" & vbCrlf
  ' -----------------------------------------------------------------
  End If
  ' close and free the recordset
  rs.Close
  Set rs = Nothing
 End If
 ' and get the fleep outta here
 TripleLinkedList = sScript
End Function
%>

<SCRIPT LANGUAGE="JavaScript">
<!-- 
function clearcombo(elem){
 var i;
 for (i = elem.options.length; i >= 0; i--) elem.options[i] = null;
 elem.selectedIndex = -1;
}
function populatecombo2(elem, index){
 if (array1.length >= index){
  if (array1[index]){
   for (var i = 0; i < array1[index].length; i= i + 2){
	elem.options[elem.options.length] = new Option(array1[index][i + 1], array1[index][i]);
   }
  }
  else{
   elem.options[elem.options.length] = new Option("[none available]", 0);
  }
 }
 else{
  elem.options[elem.options.length] = new Option("[none available]", 0);
 }
}
function populatecombo3(elem, index){
 if (array2.length >= index){
  if (array2[index]){
   for (var i = 0; i < array2[index].length; i= i + 2){
	elem.options[elem.options.length] = new Option(array2[index][i + 1], array2[index][i]);
   }
  }
  else{
   elem.options[elem.options.length] = new Option("[none available]", 0);
  }
 }
 else{
  elem.options[elem.options.length] = new Option("[none available]", 0);
 }
}
function clickcombo(nWhich,elem1,elem2,elem3){
 if (nWhich == 1){
  clearcombo(elem2);
  clearcombo(elem3);
  populatecombo2(elem2, elem1[elem1.selectedIndex].value);
 }
 if (nWhich == 2){
  clearcombo(elem3);
  populatecombo3(elem3, elem2[elem2.selectedIndex].value);
 }
 return true;
}
// -->
</script>


<% 
Dim Conn
Dim sQuery
Set Conn = Server.CreateObject("ADODB.Connection")
'conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\websites\gotomygymcom\app\classes.mdb;Persist Security Info=False"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("classes.mdb")
conn.Open ' connect to the database
' -----------------------------------------------
' then set up a query
' -----------------------------------------------
sQuery = "SELECT distinct * from classlist"
If (Len(request.form("class_level")) > 0) Or (Len(request.form("weekday")) > 0) Then
   sQuery = sQuery & "Where "
   If Len(request.form("class_level")) > 0 Then
      sQuery = sQuery & "class_level = " & request.form("class_level")
   End If
   If Len(request.form("weekday")) > 0 Then
      sQuery = sQuery & " And weekday = " & request.form("weekday")
   End If
End If

sQuery = sQuery & " order by start_age"
%>


<%response.write(class_level)%>

<FORM id=form1 name=form1 ACTION="BBBBBBB.asp" METHOD="post">
<CENTER>
<%
Response.Write TripleLinkedList(Conn, sQuery, "listbox", 1, "class_level", "weekday", "start_time", "class_id")
Conn.Close
Set Conn = Nothing
%>
<P><input type="Submit" value="ENTRAR">
</FORM>

Código:

BBBBBBB.asp

<%
Dim Lista
Lista = Request.Form("listbox1")
Response.Write Lista
%>

<%
Dim Listb
Listb = Request.Form("listbox2")
Response.Write Listb
%>

Espero que os sirva y me podais ayudar en el error que os comento

Adler · #13 (**permalink**) 27/02/2009, 07:22

Hola, registros_r2

Con respecto a tu consulta en el filtrado has de usar Group By

Código asp:

Ver originalGROUP BY campo1, campo2 ORDER BY campo asc

Cita:

Que tal Adler, no he conseguido hacer funcionar tu codigo, no se porque!!!

Tal vez sea por que faltaba una parte. Pero ya está editada y el código completado. Te puedo comentar que el código funciona tanto en IE6,7 como en FF. En Opera no lo he probado, pero no veo ninguna razón por la que no debiera funcionar

Suerte

Adler · #14 (**permalink**) 27/02/2009, 07:24

Hola

Cita:

Iniciado por hugorei

FUNCIONA MUY BIEN, EL TEMA QUE QUIERO ENVIAR SEGUN LA BUSQUEDA DE LOS 3 COMBOX PASARLO POR UN BOTON Y QUE ME MUESTRE LOS CAMPOS QUE LE DIGA DE LA BASE DE DATOS, como se puede hacer esto ?

¿Qué tienes hecho hasta ahora? Publica lo que tengas

Suerte

hugorei · #15 (**permalink**) 28/02/2009, 07:10

<HTML>
<HEAD>
<TITLE>caterpillar</TITLE>
<META HTTP-EQUIV="" CONTENT="text/html; charset=iso-8859-1">
</HEAD>
<BODY BGCOLOR=#000000 text="#FFFF00" link="#FF0000" LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<div align="center">
<TABLE WIDTH=797 BORDER=0 CELLPADDING=0 CELLSPACING=0>

<TR>
<TD COLSPAN=3> <IMG SRC="caterimagen/caterpillar_01.jpg" WIDTH=797 HEIGHT=159 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=3> <IMG SRC="caterimagen/caterpillar_02.jpg" WIDTH=797 HEIGHT=14 ALT=""></TD>
</TR>
<TR>
<TD ROWSPAN=2> <IMG SRC="caterimagen/caterpillar_03.jpg" WIDTH=33 HEIGHT=427 ALT=""></TD>
<TD width="725" height="399" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>
<TD width="725" height="399" valign="top">
<div align="center">
<table width="75%" border="0">
<tr>
<td width="89%"><div align="center"><font color="#FFFF00" face="Arial, Helvetica, sans-serif"><strong><u>RESULTADO
DE SU BUSQUEDA </u></strong> </font></div></td>
<td width="11%">
<%
Dim oConn, rs, SQL, cuenta, categoria

Set oConn = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("ejemplo.mdb")&" ; Jet OLEDB:Database Password=741"
SQL="SELECT P.*,C.NomCategoria FROM Productos AS P,Categorias AS C WHERE P.Categoria=C.idCategoria AND P.IdProducto="&Request.Form("Productos")
rs.Open SQL, oConn
%>
</td>
</tr>
</table>

</div>
<div align="center">
<table width="90%" height="52" border="1" cellpadding="0" cellspacing="0" bordercolor="#CC9900">
<tr>
<td><div align="center">
<table width="649" bordercolor="#FF0000" >
<tr>
<td width="641"><strong><font face="Arial, Helvetica, sans-serif">Marca
</font></strong><font face="Arial, Helvetica, sans-serif">:
<font color="#FF0000" size="+1"><strong><%=rs("NomCategoria")%></strong></font></font></td>
</tr>
<tr>
<td><strong><font face="Arial, Helvetica, sans-serif">Modelo:</font></strong>
<font color="#FF0000" size="+1" face="Arial, Helvetica, sans-serif"><strong><%=rs("nombre")%></strong></font></td>
</tr>
<tr>
<td><strong><font face="Arial, Helvetica, sans-serif">Serie:</font></strong>
<font color="#FF0000" size="+1" face="Arial, Helvetica, sans-serif"><strong><%=rs("serie")%></strong></font></td>
</tr>
<tr>
<td><strong><font face="Arial, Helvetica, sans-serif">Motor:</font></strong>
<font color="#FF0000" size="+1" face="Arial, Helvetica, sans-serif"><strong><%=rs("motor")%></strong></font></td>
</tr>
<tr>
<td><strong><font face="Arial, Helvetica, sans-serif">Año</font></strong><font face="Arial, Helvetica, sans-serif">:
<font color="#FF0000" size="+1"><strong><%=rs("año")%></strong></font></font></td>
</tr>
<tr>
<td><strong><font face="Arial, Helvetica, sans-serif">Aire:</font></strong>
<font color="#FF0000" size="+1" face="Arial, Helvetica, sans-serif"><strong><%=rs("aire")%></strong></font></td>
</tr>
<tr>
<td><strong><font face="Arial, Helvetica, sans-serif">Aceite:</font></strong>
<font color="#FF0000" size="+1" face="Arial, Helvetica, sans-serif"><strong><%=rs("aceite")%></strong></font></td>
</tr>
<tr>
<td><strong><font face="Arial, Helvetica, sans-serif">Combustible:</font></strong>
<font color="#FF0000" size="+1" face="Arial, Helvetica, sans-serif"><strong><%=rs("combustible")%></strong></font></td>
</tr>
<tr>
<td><strong><font face="Arial, Helvetica, sans-serif">Otros:
</font></strong><font color="#FF0000" size="+1" face="Arial, Helvetica, sans-serif"><strong><%=rs("otros")%> </strong></font></td>
</tr>
</table>
</div></td>
</tr>
</table>
</div>
<p align="center"><font size="+1" face="Arial, Helvetica, sans-serif"><strong>
<input type="button" name="Button" value="Regresar" onclick="javascript:history.back();">
<br>
<font size="+1" face="Arial, Helvetica, sans-serif"><br>
<u>Referencias :</u> <font color="#FFFFFF" size="-1">HD: Direcciòn
Hidràulica - HG: Engranaje Hidràulico - TC: Trampa
de combustible - SA : separador de agua - H: Sistemas Hidràulicos-
TH Y T : Transmisiòn Hidraùlica DF:Circuito de Frenos</font></font><br>
</strong></font></p></TD>
</tr>
</table></TD>
<TD ROWSPAN=2> <IMG SRC="caterimagen/caterpillar_05.jpg" WIDTH=39 HEIGHT=427 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="caterimagen/caterpillar_06.jpg" WIDTH=725 HEIGHT=28 ALT=""></TD>
</TR>
</TABLE>
</div>
</BODY>
</HTML>

hugorei · #16 (**permalink**) 28/02/2009, 07:11

Ese codigo lo usaba con dos combobox , no es de tres, este era el que recibia la informacion segun los combox ahora no se como adpatarlo a los tres- SALUDOS

Adler · #17 (**permalink**) 01/03/2009, 08:24

Hola

Realmente no entiendo cual es el problema

+ ¿No sabes adaptar la consulta a 3 valores?
+ ¿No sabes como hacer la consulta en caso que recibas 1 ó 2 valores vácios?

Suerte

hugorei · #18 (**permalink**) 01/03/2009, 10:47

Cita:

Iniciado por Adler

Hola

Realmente no entiendo cual es el problema

+ ¿No sabes adaptar la consulta a 3 valores?
+ ¿No sabes como hacer la consulta en caso que recibas 1 ó 2 valores vácios?

Suerte

El problema es que no se programacion y estoy desesperado por un codigo que haga esto ya que estoy sin empleo y trato de hacer algo para poder subsistir , no vendiendo el codigo sino adaptando este a un catalogo de cosas que quiero vender , perdon si te moleste . y gracias de todos modos , DIOS TE BENDIGA

Adler · #19 (**permalink**) 01/03/2009, 13:33

Hola

Cita:

Iniciado por hugorei

El problema es que no se programacion y estoy desesperado por un codigo que haga esto ya que estoy sin empleo y trato de hacer algo para poder subsistir , no vendiendo el codigo sino adaptando este a un catalogo de cosas que quiero vender , perdon si te moleste . y gracias de todos modos , DIOS TE BENDIGA

hugorei no me ofendistes, solo te expliqué que a mi entender los mensajes internos no sirven para el propósito que le distes y que no hay que exigir que se te responda.

Una vez aclarado esto

, te vuelvo ha hacer las mismas preguntas

+ ¿No sabes adaptar la consulta a 3 valores?
+ ¿No sabes como hacer la consulta en caso que recibas 1 ó 2 valores vacíos?

Suerte

hugorei · #20 (**permalink**) 01/03/2009, 17:30

Cita:

Iniciado por Adler

Hola

hugorei no me ofendistes, solo te expliqué que a mi entender los mensajes internos no sirven para el propósito que le distes y que no hay que exigir que se te responda.

Una vez aclarado esto

, te vuelvo ha hacer las mismas preguntas

+ ¿No sabes adaptar la consulta a 3 valores?
+ ¿No sabes como hacer la consulta en caso que recibas 1 ó 2 valores vacíos?

Suerte

No se adaptar la consulta a 3 valores

Adler · #21 (**permalink**) 02/03/2009, 07:27

Hola

Recoges los valores

Código asp:

Ver originalcomb1 = CStr(Request.Form("modelo"))
comb2  = CStr(Request.Form("marca"))
comb3 = CStr(Request.Form("color"))

Ahora con ellos haces el filtrado

Código sql:

Ver originalSQL="SELECT P.*,C.NomCategoria FROM Productos AS P,Categorias AS C WHERE P.Categoria=C.idCategoria AND P.IdProducto="&Request.Form("Productos") AND campo = '"&comb1&"' AND campo2 = '"&comb2&"' AND campo3 = '"&comb3&"'

¿Es esto?

Suerte

hugorei · #22 (**permalink**) 15/03/2009, 10:27

Cita:

Iniciado por Adler

Hola

Recoges los valores

Código asp:

Ver originalcomb1 = CStr(Request.Form("modelo"))
comb2  = CStr(Request.Form("marca"))
comb3 = CStr(Request.Form("color"))

Ahora con ellos haces el filtrado

Código sql:

Ver originalSQL="SELECT P.*,C.NomCategoria FROM Productos AS P,Categorias AS C WHERE P.Categoria=C.idCategoria AND P.IdProducto="&Request.Form("Productos") AND campo = '"&comb1&"' AND campo2 = '"&comb2&"' AND campo3 = '"&comb3&"'

¿Es esto?

Suerte

Es basicamente eso pero por favor como se adaptaria al ejemplo que diste , por que aca hablar de Categorias , Poductos , pero no me coincide con el ejemplo de Poblaciones, entonces no entiendo cuando hablar de Porductos y Categorias si haces mencion a dos tablas dinstintas, desde ya gracias, si podes ejemplificamelo con el codigo que pusiste de Poblaciones ¿ como seria ?

ESTA SENTENCIA NO ENTIENDO COMO FUNCIONA :

SQL="SELECT P.*,C.NomCategoria FROM Productos AS P,Categorias AS C WHERE P.Categoria=C.idCategoria AND P.IdProducto="&Request.Form("Productos") AND campo = '"&comb1&"' AND campo2 = '"&comb2&"' AND campo3 = '"&comb3&"'

hugorei · #23 (**permalink**) 19/03/2009, 20:10

por favor alguien que me ayude con este tema.

GRACIAAS

Shiryu_Libra · #24 (**permalink**) 19/03/2009, 20:40

hola...

que es presisamente lo que no funciona del codigo de Adler (

)?

hugorei · #25 (**permalink**) 19/03/2009, 21:40

Cita:

Iniciado por Shiryu_Libra

hola...

que es presisamente lo que no funciona del codigo de Adler (

)?

El codigo funciona bien , lo que no se como hacer es un submit que me permita al hacer click mostrar los datos de todo el ID segun los codigos de los combobox , no se hacer la setencia SQL que me filtre de acuerdo a los combobox seleccionado por el usuario.

GRACIAS POR INTERESARTE

hugorei · #26 (**permalink**) 21/03/2009, 12:27

cierren el tema ya me doy por vencido , esto no va ni para atras ni para adelante voy a ver si invento algo con el aspMAKER .

Myakire · #27 (**permalink**) 23/03/2009, 08:27

En caridad de Dios!!!

Por fin algo congruente!!

Cerrado