últimos mensajes de: cassiani

Mostrar Mensajes
Páginas: 1 ... 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 [28] 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 ... 85

271	Foros Generales / Sugerencias y dudas sobre el Foro / Re: Felicito al Staff	en: 22 Mayo 2009, 15:55 pm
En hora buena, así trabajaremos más organizados .. saludos,

272	Media / Juegos y Consolas / Re: Campeonato age of empires 2	en: 20 Mayo 2009, 01:57 am
Ya no respondan más en este post, cuando comencemos el torneo abrimos otro. Nos reuniremos algunos el viernes (este viernes, hoy es martes ¬¬) a las 7pm hora de Colombia por msn... saludos,

273	Media / Juegos y Consolas / Re: Campeonato age of empires 2	en: 19 Mayo 2009, 23:25 pm
no, se abrira otro post, creo que para el mes que viene, mientras, podemos ir practicando, es hora de instalar el hamachi que estoy fuera de forma, hay alguien a quien aún no le veo el centro urbano . lo organizará CW, ya lo había dicho. que no habían cerrado este? saludos,

274	Programación / PHP / Re: devolver true si palabra existe en variable	en: 19 Mayo 2009, 21:27 pm
Como así? buscar dentro del contenido de la variable si la palabra que indicas se encuentra almacenada? creo que lo dije ¬¬ si es así, lo haces con las funciones ereg() y eregi(). Código: $cadena_original="Me encanta el lenguaje php"; ereg("php",$cadena_original); Si la función encuentra la primera cadena dentro de la segunda, el resultado que se devuelve es true. En caso contrario, devolverá false. Por lo tanto, con una sentencia if podremos hacer una acción u otra según hayamos encontrado o no la susodicha cadena php. Es decir: Código: $cadena_original="Me encanta el lenguaje php"; if(ereg("php",$cadena_original)) echo "Cadena encontrada"; else echo "Cadena No Encontrada"; más info en php.net si no era eso lo que consultabas, se un poquito más explicito y hago el intento de ayudarte. saludos,

275

Programación / PHP / Re: listas desplegables anidadas

en: 19 Mayo 2009, 15:18 pm

umm PHP+JS ..

Claro mira, entre mis codes encontre esto, cien por cien funcional, así es como lo hacia antes ... no recuerdo la fuente de origen.

Código

<?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>

puedes encontrar más ejemplos en google, su buscas por "Select combinados con (nombre del lenguaje)".

saludos,

276	Programación / PHP / Re: listas desplegables anidadas	en: 18 Mayo 2009, 15:52 pm
Para lo que entendí quieres, lo puedes resolver fácilmente con lo siguiente: Selects combinados con Ajax y PHP: Citar http://www.desarrolloweb.com/articulos/selects-combinados-con-ajax-php.html Ejemplo de uso:* Citar *http://www.desarrolloweb.com/articulos/ejemplos/ajax/xajax/selects_combinados.php

277	Programación / PHP / Re: Crear Buscador Interno con PHP y MySQL	en: 18 Mayo 2009, 15:41 pm
Búsquedas de texto completo con MySQL Citar http://www.webnova.com.ar/articulo.php?recurso=543 Buscador interno...* Citar *http://foro.elhacker.net/empty-t116418.0.html saludos,

278

Programación / Programación Visual Basic / Re: remplazar linea de un textbox multi linea

en: 8 Mayo 2009, 17:30 pm

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.

Hola, hace tiempo me hice una función para ello, deja y te la busco ..

edit:

Código

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

see, se ve un poco largo, pero así es cuando debemos aplicarle validaciones :-X

no me da tiempo de revisar si algo debe cambiar, pero así funciona perfecto...

saludos,

279	Programación / Programación Visual Basic / Re: Problema con consulta MySql	en: 8 Mayo 2009, 04:39 am
No olvides que acá: Citar AdoS.Open "SELECT * FROM cuentas where cuentas.Usuario =" & separa(1) & "", Cxn, adOpenStatic, adLockOptimistic si el campo "usuario" es de tipo varchar, le agregas comillas simples .. Citar AdoS.Open "SELECT * FROM cuentas where cuentas.Usuario ='" & separa(1) & "'", Cxn, adOpenStatic, adLockOptimistic

280	Programación / Programación Visual Basic / Re: Visual Basic en LInux	en: 6 Mayo 2009, 16:03 pm
Échale una ojeada a esto: Código: http://gambasdoc.org/help/doc/diffvb?es

Páginas: 1 ... 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 [28] 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 ... 85