En hora buena, así trabajaremos más organizados ..
saludos,
saludos,
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
$cadena_original="Me encanta el lenguaje php";
ereg("php",$cadena_original);
$cadena_original="Me encanta el lenguaje php";
if(ereg("php",$cadena_original)) echo "Cadena encontrada";
else echo "Cadena No Encontrada";
<?php
$bd_host = "localhost";
$bd_usuario = "user";
$bd_password = "pass";
$bd_base = "name_db";
$con = mysql_connect($bd_host, $bd_usuario, $bd_password);
mysql_select_db($bd_base, $con);
$sql = "SELECT * from empresas";
$rs = mysql_query($sql, $con);
?>
<html>
<head>
<title>Actualizar combo sin submitear</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script>
function componer_Centros(cod_area)
{
//alert(cod_area);
//establecemos longitud para el select depto
document.miformulario.depto.length=0;
//Asignamos un valor por defecto
document.miformulario.depto.options[0] = new Option("-- Seleccione --","","defaultSelected","");
//inicializamos el contador
var indice=1;
<?php
//ejecutamos una consulta a la tabla departamentos
$sql_depto = "SELECT * from departamentos";// where id=2";
$rs_depto = mysql_query($sql_depto, $con);
if(mysql_num_rows($rs_depto)>0)
{
while($row_depto = mysql_fetch_array($rs_depto))
{
?>
//filtramos
if(cod_area=='<?=$row_depto["idempresa"]?>')
{
document.miformulario.depto.options[indice] = new Option("<?=$row_depto["descripcion"]?>","<?=$row_depto["id"]?>");
indice = indice + 1;
}
<?php
}
}
?>
}
//________________________________________________________________
function componer_Recursos(cod_area)
{
//alert(cod_area);
//establecemos longitud para el select depto
document.miformulario.recursos.length=0;
//Asignamos un valor por defecto
document.miformulario.recursos.options[0] = new Option("-- Seleccione --","","defaultSelected","");
//inicializamos el contador
var indice=1;
<?php
//ejecutamos una consulta a la tabla departamentos
$sql_depto = "SELECT * from recursos";// where id=2";
$rs_depto = mysql_query($sql_depto, $con);
if(mysql_num_rows($rs_depto)>0)
{
while($row_depto = mysql_fetch_array($rs_depto))
{
?>
//filtramos
if(cod_area=='<?=$row_depto["iddpto"]?>')
{
document.miformulario.recursos.options[indice] = new Option("<?=$row_depto["descripcion"]?>","<?=$row_depto["id"]?>");
indice = indice + 1;
}
<?php
}
}
?>
}
<?php mysql_close($con); ?>
</script>
</head>
<body>
<p>Seleccion de un select y cambiar los valores de otro select sin tener que submitar (valido segun su uso)</p>
<form name="miformulario" method="get">
<table width="249" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>Empresa</td>
<td>Departamento</td>
<td>Recursos</td>
</tr>
<tr>
<td>
<select name="empresa" id="empresa" onChange="componer_Centros(this.value)">
<option value="">--Seleccione--</option>
<?php if(mysql_num_rows($rs)>0)
{
while($row = mysql_fetch_assoc($rs))
{
?>
<option value="<?=$row["id"]?>"><?=$row["descripcion"]?></option>
<?php
}
}
?>
</select>
</td>
<td>
<select name="depto" id="depto" onChange="componer_Recursos(this.value)">
<option>--seleccione--</option>
</select>
</td>
<td>
<select name="recursos" id="recursos">
<option>--seleccione--</option>
</select>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
Citar*http://www.desarrolloweb.com/articulos/selects-combinados-con-ajax-php.html
Citar*http://www.desarrolloweb.com/articulos/ejemplos/ajax/xajax/selects_combinados.php
Citar*http://www.webnova.com.ar/articulo.php?recurso=543
Citar*http://foro.elhacker.net/empty-t116418.0.html
Cita de: andrer03 en 7 Mayo 2009, 20:27 PM
hola tengo una pregunta que no se resolverla
tengo un textbox1 multilinea y necesito remplazar el texto de la linea 5(por ejemplo) del texbox1 en otro textbox2 por medio de un boton.
Option Explicit
Private Sub Command1_Click()
On Error GoTo sError
txtMultilinea.Text = ReplaceLine(txtMultilinea.Text, txtCadena, Int(txtNumLinea.Text))
Exit Sub
sError:
MsgBox "Error número: " & Err.Number & ", descripción: " & Err.Description
Resume Next
End Sub
Function ReplaceLine(ByVal sCadena As String, sForReplace As String, Linea As Integer) As String
On Error GoTo sError
Dim sArray() As String
Dim I As Integer
If sCadena = vbNullString Or sForReplace = vbNullString Then
MsgBox "¡Parámetros incorrectos!", vbCritical
ReplaceLine = sCadena
Exit Function
End If
sArray() = Split(sCadena, vbCrLf)
If Linea > UBound(sArray) Then
MsgBox "¡Ha introducido " & Linea & " como número de línea, pero solo hay " _
& UBound(sArray) & "!"
ReplaceLine = sCadena
Exit Function
End If
sArray(Linea - 1) = sForReplace
sCadena = vbNullString
For I = LBound(sArray) To UBound(sArray)
If I = LBound(sArray) Then
sCadena = sArray(I)
Else
sCadena = sCadena & vbCrLf & sArray(I)
End If
Next
ReplaceLine = sCadena
Exit Function
sError:
MsgBox "Error número: " & Err.Number & ", descripción: " & Err.Description
Resume Next
End Function
Private Sub txtNumLinea_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And Not KeyAscii = 8 Then KeyAscii = 0
End Sub
CitarAdoS.Open "SELECT * FROM cuentas where cuentas.Usuario =" & separa(1) & "", Cxn, adOpenStatic, adLockOptimistic
CitarAdoS.Open "SELECT * FROM cuentas where cuentas.Usuario ='" & separa(1) & "'", Cxn, adOpenStatic, adLockOptimistic