• Sábado 20 de Abril de 2024, 07:32

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - F_Tanori

Páginas: 1 ... 80 81 [82] 83
2026
PHP / Re: Reporte De Susarios En Php
« en: Miércoles 4 de Octubre de 2006, 05:23 »
Hola segun yo entiendo lo que quieres es agrupar?

mayra
    lllll 1 2 1
    lllll 1 2 1
    lllll 1 2 1
    lllll 1 2 1
    lllll 1 2 1
pedro
    55 55 5 5
Sergio
    mmm 1 1 1
    ppp 1 1 1
    aaqaa 1 2 2
.
.
.
.
n
Código: Text
  1.  
  2. <?
  3.  
  4.  
  5. $bd="basedatos";
  6. $host="localhost";
  7. $user="php";
  8. $password="passwordPHP";
  9.  
  10. $Conexion = mysql_connect($host,$user,$password);
  11. mysql_select_db($bd, $Conexion);
  12. ?>
  13.  
  14. <table border=0 cellpadding=0 cellspacing=0>
  15.  
  16. <?
  17. $query="SELECT  nombre FROM tblusuarios GROUP BY nombre";
  18. $resultado =mysql_db_query($bd,$query);
  19.  
  20.   while($row=mysql_fetch_row($resultado))
  21.     {$nombre=$row[0];
  22.       echo "<tr><td colspan=2 ><strong><font color=\"Blue\">$nombre</font></strong></td></tr>";
  23.       $query2="SELECT actividad, reporte, horas, total FROM tbl WHERE nombre ='$nombre'";
  24.       $resultado2 =mysql_db_query($bd,$query2);
  25.       $reg=0;
  26.           while($row=mysql_fetch_row($resultado2))
  27.             {$reg++;
  28.               echo "<tr><td>&nbsp</td><td>&nbsp</td><td><font color=\"red\">$row[0] $row[1] $row[2] $row[3]</font></td></tr>";
  29.  
  30.             }
  31.     }
  32.  
  33. ?>
  34. </table>
  35.  
  36.  
  37.  

a ver si eso te sirve de algo!!

Saludos



P.D. No se dice HAYGA mucho menos se escribe :P se dice HAYA ;)

2027
PHP / Re: Sumar Una Lista De Abonos Y Mostrar La Suma
« en: Miércoles 4 de Octubre de 2006, 04:30 »
hola

quieres saber como tomar el valor de la suma?

<?
$conn=mysql_connect('localhost','maincln_ammje','6969')
mysql_select_db('maincln_ammje',$conn)

$query="SELECT sum(abono) FROM abonos GROUP BY id_cliente";
$res=mysql_query($query)
$registro=mysql_fetch_row($res)


echo "el resultado de la suma es:$registro[0]";

?>

Saludos espero que eso te sirva

2028
Hola ya probaste instalando el Runtime de VB con SP?

VB60sp6

 :suerte:

2030
Dudas informáticas / Re: Problema Con Gtalk, Messenger, Explorer.
« en: Domingo 1 de Octubre de 2006, 08:03 »
Definitivamente de acuerdo .... todo depende del usuario

pero en preferencia personal Firefox :P

Gracias.
Nos estamos Leyendo!  :comp:

2031
Windows / Re: No Aparece El Task Manager
« en: Domingo 1 de Octubre de 2006, 07:56 »
Cita de: "X.Cyclop"
Tengo Windows XP Pro. :P

Quité la pantalla de bienvenida y arreglé algunas cosas en mi cuenta para poder entrar directamente al sistema. El único problema es que cuando apreto Ctrl+Alt+Supr no se abre el Task Manager, me aparece una ventana (Windows Security) con unas 6 opciones: Lock Computer, Log Off, Change Password, Task Manager, Cancel, Shutdown.

¿Cómo quito eso? :think:
Es la unica cuenta del sistema?


quieres que entre directamente tu cuenta segun dices

puedes hacer esto...

Abre el registro de Windows(Regedit) y ve hasta


HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon


ahi creas (si no existen) un nuevo los valores Alfanumerico

AutoAdminLogon=1
DefaultUserName=elusuario
DefaultPassword=lacontraseña

y dejas activada la molestosa pantalla de bienvenida :D, con eso ya no se mostrara
y te dajara entrar a l administrador de tareas Con ALT+CTRL+DEL tambien funciona SHIFT+CTRL+ESC

Con eso entra directo a una cuenta en Windows XP Profesional

Espero que te sierva de algo..

Suerte,Saludos!

2032
PHP / Re: Conectar Una Base Access97 Con Php?
« en: Sábado 30 de Septiembre de 2006, 22:08 »
Hola



odbc_connect("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" . str_replace("/", "\\", $_SERVER["DOCUMENT_ROOT"]) . "\_database\dbname.mdb", "", "")





Fuente...


Suerte,Saludos!

2033
Visual Basic 6.0 e inferiores / Re: Form Recortado
« en: Sábado 30 de Septiembre de 2006, 00:42 »

2034
PHP / Re: Mantener Sesiones
« en: Sábado 30 de Septiembre de 2006, 00:23 »
Hola
Si todo esta correcto con las consultas y

segun se ve en esta parte del codigo.....
....

 //Insertamos el articulo al carrito
$query="INSERT INTO carrito VALUES('$_GET[codigo]','$nombre','$precio','$cantidad','$importe')";
$result=mysql_query($query,$conexion);


'$_GET[codigo]'  <---- deberias de especificar el nombre del variable $_GET['codigo']
y con comillas sencillas y al mismo tiempo colocarlo entre comillas '$_GET['codigo']' lo cual genera una "confusion" con cual comilla cierra a cual....


$query="INSERT INTO carrito VALUES(\'$_GET['codigo']\','$nombre','$precio','$cantidad','$importe')";


Me parece que ese es el error..
ademas me preguntaba si ya tienes el codigo del articulo en una variable ($codigo) porque la tomas de nuevo ($_GET[])?

porque no hacer esto... ¿?

$query="INSERT INTO carrito VALUES('$codigo','$nombre','$precio','$cantidad','$importe')";


** y que el número de campos que espera la tabla se igual a el número de valores que le envias y en la misma  posición ***


Suerte, Saludos

2035
Power Builder / Re: Personalizar Commandbutton
« en: Viernes 29 de Septiembre de 2006, 09:37 »
Hola

Para hacer lo de el evento solo tienes que crear un nuevo evento con el Event ID pbm_mousemove

Puedes personalizar un objeto creando uno nuevo apartir de una clase visual y despues utilizarla en tus ventanas, crearle metodos, propiedades etc..

Pero...

Para cambiar el color de fondo a un boton no se como se hace  :(  ahi si encuentras como publicalo ¿no? :P

Saludos

2036
Power Builder / Re: Imagenes En Dw Freeform
« en: Viernes 29 de Septiembre de 2006, 08:39 »
Hola mira esta es una manera que yo creo ye puede funcionar lo que quieres...


Supongamos...

Tabla_Empleados
*clave
-Nombre
-Sueldo
-Pueso
-Foto

(segun entendi lo que guardas en el campo es la ruta de la foto)

Ahora creas el data window con los campos de la tabla...

seleccionas el campo de la foto (en el DW en diseño) vas a las propiedades y en la pestaña general de estas se encuentra la propiedad "Display as Picture" (Mostrar como imagen :P) entonces el DW conviete la ruta en la foto solo la haces del tamaño que quieras y la posisionas donde quieras....

cuando te desplaces dentro del DW Control la imagen cambiara segun el registro
si quieres obtener el valor de la foto (Ruta)  basta con hacer

ls_Ruta_Foto=dw_1.GetItemString(dw_GetRow(),"foto")

y asi obtienes el nombre del archivo  :smartass:

Si lo que quieres es cambiar la foto solo cambias la ruta...

ls_Nueva_Foto="C:\foto.jpg"
dw_1.SetItem(dw_1.GetRow(),"foto",ls_Nueva_Foto)

Saludos y espero que esto te sea de ayuda

2037
Dudas informáticas / Re: Problema Con Gtalk, Messenger, Explorer.
« en: Viernes 29 de Septiembre de 2006, 05:20 »
En mi opinion

 * Es mejor navegador el Firefox
 * Es Mejor Antivirus Nod32
 * y unos buenos antispyware Spyware Doctor y Spybot Search & Destroy 1.4


Aqui hay algunas paginas para escanear tu pc "online"

Antivirus en linea

Trend Micro


Con respecto a lo de los banners es solo publicidad para que el usuario crea que tiene su maquina alguna "infeccion" y opte por querer eliminarla cuando en realidad te instala mas basura......

Algo para leer
Sitio 1
Sitio 2
Sitio 3

Saludos

2038
Power Builder / Re: Error De Conección
« en: Viernes 29 de Septiembre de 2006, 04:57 »
Hola

Tambien puedes poner la direccion ip en donde va el nombre del servidor yo pienso  que si en el servidor todo funciona correctamente

*- Debes de revisar que si tienes firewall no este bloqueando los puertos, comunmente el norton hace eso cuando pregunta si deseas permitir o bloquear una aplicacion si por error se da bloquear queda en la "lista negra" y ya no la deja pasar

*- Que haya comunicacion de red

*- Que el usuario de SQL Server tenga Acceso Remoto (privilegios)


/* No he utilizado SQL muy a fondo pero me a pasado eso en algunos otros servidores de BD */


Espero poder ayuda


Editado: :)
algo mas que puede ayudar  B)

http://www.powerbuilder.org/modules.php?na...order=0&thold=0

Saludos

2039
PHP / Re: No Almacena En La Tabla Los Datos Pasados
« en: Jueves 28 de Septiembre de 2006, 05:52 »
Hola que tal!

Segun veo tienes un error en la insercion a la tabla en donde pasas los valores

"VALUES(...."

'$cod_area'.'$cod_direccion'   <----- en estos dos campos estan separados por un punto en lugar de la coma


Espero que eso solucione tu problema la verdad no lei todo el codigo :P solo en la que dijiste que esa era la del problema y eso es lo que encontre




Saludos

2040
Power Builder / Re: Error De Conección
« en: Miércoles 27 de Septiembre de 2006, 00:53 »
Revisaste...

La contraseña del usuario sa es correcta?,
que este corriendo el servidor SQL Server y que este bien direccionado en el ODBC?


Saludos
Mexicali B.C.

2041
Visual Basic para principiantes / Re: Palindromo
« en: Martes 26 de Septiembre de 2006, 07:54 »
Hola esta es mi idea....

'//Un Form con un textbox(Text1) y un CommandButton (Command1)
//VB 6

Option Explicit

Private Sub Command1_Click()
Dim ls_Original As String, ls_Palabra As String, ls_Palabra_inv As String
Dim ls_Mensaje As String

    ls_Original = Trim(Me.Text1)
    ls_Palabra = LCase(Replace(ls_Original, " ", ""))
    ls_Palabra_inv = StrReverse(ls_Palabra)
    ls_Mensaje = IIf(ls_Palabra = ls_Palabra_inv, " SI ", " NO ")
    MsgBox "'" & UCase(ls_Original) & "' " & ls_Mensaje & " es Palindromo"

End Sub


Esa es una idea pero alguien puede tener una mejor espero te sea de ayuda
Cualquier correccion Bienvenida!


Saludos
Mexicali B.C.

2042
Visual Basic para principiantes / Re: Texbox Que Solo Admita Números
« en: Martes 26 de Septiembre de 2006, 07:02 »
'//Quisiera hacer mi aportacion
'//Este código tambien limita a que no se pueda introducir texto que no sea numeros aun  a traves del comando pegar (CTRL+V) o click derecho Pegar porque en los demas codigos si lo permite :P

'//Lo aporto a sus concideraciones cualquier correccion bienvenida !

Private Sub Text1_Change()
Dim ls_texto As String
Dim c As Integer

ls_texto = Trim(Me.Text1)

For c = 1 To Len(ls_texto)
  If Not IsNumeric(Mid(ls_texto, c, 1)) Then
    ls_texto = Mid(ls_texto, 1, Len(ls_texto) - 1)
  End If
Next c

Me.Text1 = ls_texto
Me.Text1.SelStart = Len(ls_texto)
End Sub

Saludos
Mexicali B.C.

2043
Sobre los Foros de SoloCodigo / Se Puede Enviar A Otro Foro?
« en: Lunes 25 de Septiembre de 2006, 11:10 »
Esta permitido responder con una direccion web (de algun ejemplo que se encuentre en otra web)

y que la web esa a donde se envia al 'usuario' sea un FORO? osea enviarlos a otro foro donde esta una solucion a lo que busca  :P  

me explico?

Gracias por su orientacion y ayuda :)

Saludos
Mexicali B.C.

2044
Visual Basic 6.0 e inferiores / Re: Conexion De Mysql
« en: Lunes 25 de Septiembre de 2006, 10:55 »
Hola Tienes Instalado el MySQL ya?

http://dev.mysql.com/downloads/mysql/5.0.html

en esa pagina en la seccion de Conectores descargas el driver ODBC
lo instalas y creas el DSN y te conectas como cualquier base de datos :P

Aqui hay un Ejemplo con RDO
http://www.elguruprogramador.com.ar/zonas/ver.asp?cod=115

aqui hay un ejemplo con ADO espero que sea entendible

Código: Visual Basic
  1. 'En el Form
  2.  
  3. Private Sub Form_Load()
  4. Dim lo_rs as RecordSet
  5. Dim ls_ap_pat as String
  6.  
  7. gs_CnnStr = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;Database=data;USER=sistema;PWD=123456;OPTION=3"
  8. set go_Cnn=ConectarBD(gs_CnnStr)
  9.  
  10.   if go_Cnn.State>1 then
  11.     set lo_rs=Consulta("SELECT * FROM t_Nomina ap_pat='"& ls_ap_pat &"'")
  12.    
  13.     With lo_rs
  14.        do while not .EOF
  15.         MsgBox("Resultado",![nombre])
  16.         .MoveNext
  17.        loop
  18.     end with  
  19.   else
  20.      MsgBox("No Hay conexion con la Base de datos"
  21.   end if
  22.    
  23. End Sub
  24.  
  25.  
Código: Visual Basic
  1. '============================================================================
  2. 'En Modulo
  3.  
  4. Public go_Cnn as Connection
  5. Public gs_CnnStr as String
  6.  
  7. Function ConectarBD(ByVal as_cnnstr As String) As Connection
  8. On Error Resume Next
  9.     Dim lo_cnn As Connection
  10.    
  11.     Set lo_cnn = New Connection
  12.     lo_cnn.Open as_cnnstr
  13.     lo_cnn.CursorLocation = adUseClient
  14.  
  15.    Set ConectarBD = lo_cnn
  16. End Function
  17.  
  18. '==========================================================================
  19. Function Consulta(as_SQL As String, ByVal ao_cnn As Connection) As Recordset
  20. On Error Resume Next
  21.     Dim lo_rs As Recordset
  22.     Set lo_rs = New Recordset
  23.     lo_rs.Open as_SQL, lo_cnn
  24.     Set Consulta = lo_rs
  25. End Function
  26.  


Otras paginas de utilidad

http://www.connectionstrings.com/
http://www.elguille.info/vb/bases/ADO/indiceADO.htm
http://www.google.com/ :P

Saludos
Mexicali B.C.

2045
PHP / Re: Como Cambiar La Configuracion Para Ver La Pag X Ip
« en: Domingo 24 de Septiembre de 2006, 10:01 »
Si te refieres a la "IP real" ? y quieres que te vean en red?

si estas conectado a una red y tu maquina esta como servidor web basta con usar tu direccion ip de red ej. 192.168.1.10  si quieres que "te vean" atraves de internet imagino que utilizas un router, firewall basta con indicarle que tu maquina es servidor web y que todo el trafico solicitado para servicio web (HTTP) lo envia a tu maquina  

Funciona aunque sea dinamica solo que "estara cambiando :P"

Si solo quieres cambiar el numero de la ip modifica el archivo host  :P
http://es.wikipedia.org/wiki/Archivo_Hosts



Espero sea de ayuda


Saludos
Mexicali B.C.

2046
Dudas informáticas / Re: Duda Ilegal
« en: Domingo 24 de Septiembre de 2006, 09:38 »
Cita de: "RadicalEd"
Cita de: "X.Cyclop"
Cita de: "ciber_lep"
Entoces solo por cultura general, para ustedes los foreros que definición les merece o que diferencia ven en el hacker o cracker. claro sabemos que uno daña y el otro lo hace por deporte  :P . me interesa saber su opinion
Yo siempre lo definí así:
Hacker = Construye
Cracker = Destruye

El hacker entra a los servidores para ver que tan seguros son, y si encuentra algún bug, lo parcha.

Si el cracker encuentra un bug lo explota.
Mala definición el hacker es quién puede entrar a un sistema detectando sus bugs.

Un cracker es quién entra a un programa y puede cambiar el comportamiento de este.

Las definiciones de Cracker malo está mal diseñada ya que un cracker es el encargado de modificar cualquier software a su conveniencia utilizando ingenieria inversa, tal véz confundan un cracker con un lammer :devil: que es quién entra a un sistema para hacer daños, por ahí es que le colocaron mal el nombre a cracker.
:comp:

Yo estoy de acuerdo con esta definicion !  
apoco es ilegal todo eso? :whistling:

2047
PHP / Re: Mantener Sesiones
« en: Domingo 24 de Septiembre de 2006, 09:14 »
Pues en que momento inicias la sesion?

Mira espero que esto te sirva!!!

// Esto es para cerrar la Sesion al Cerrar el Navegador  al inicio del archivo
  ini_set("session.use_only_cookies","1");
  ini_set("session.use_trans_sid","0");

//Inicias la sesion PHP si ya hay una la continua
  session_start();


if ($_SESSION['login']=="SI")
   {
     //Si hay una sesion iniciada le permites navegar hacia el carrito
     header("Location:carrito.php");
   }
else
  {
    //Sino lo envias a iniciar sesion
    header("Location:login.php");
   }

//============================================
//Ejemplo del login.php

<form action="acceso.php" method="POST">
<table border=1 align="center" cellpadding="0" cellspacing="0">
<tr><td colspan=3 background="./img/pane.gif"><strong>Iniciar Sesion</strong></td></tr>
<tr>
<td><br><table border=0>
   <tr>

   <tr><td rowspan=3 width=25 height=25><img src="./img/imglogin.gif">
    </td><td><p class="menu">Usuario:</p></td><td><input type="text" size="30" class="caja1" name="usuario"

onkeypress=validar(event,'numeros',1)></td></tr>
   <td><p class="menu">Contraseña:</p></td><td><input type="password" size="30" class="caja1" name="pass"></td><tr>
   <tr><td colspan="3"><br><center><input type="submit" size="10" class="caja1" value="Entrar"> <input type="reset"

size="10" class="caja1" value="Borrar"></center></td></tr>
   <tr><td colspan=3></td></tr>
   </table></td></tr>
  </table>
</form>

//===================================================

// Acceso.php
//Aqui es donde se inicializan las variables de sesion que vamos a utilizar

<?

$sPwd=$_POST['pass'];
$sUsuario=$_POST['usuario'];

$sSQL="SELECT usuario,password,ap_pat,ap_mat,nombre FROM tblalumnos WHERE usuario='$sUsuario'";

$Conexion =mysql_connect("localhost","antonio","12345");
mysql_select_db("dblaselva", $Conexion);

$resultado =mysql_db_query($bd,$query);
$row = mysql_fetch_row($resultado);

   if ( $sPwd == $row[1])
    {
    $_SESSION['login']="SI";
    $_SESSION['usuario'] =$sUsuario;
    $_SESSION['nombre'] ="$row[3] $row[4] $row[5]";

    //Redireccionar
    echo "<script LANGUAGE=\"javascript\">";
    echo "location.href = \"carrito.php\"";
    echo "</SCRIPT>";
    }

   else
    {
     echo "<script LANGUAGE=\"javascript\">";
        echo "location.href = \"errorlogin.php\"";
    echo "</SCRIPT>";
    }


?>  

//Para Cerrar Sesion

session_destroy();



Saludos
Mexicali B.C.

2048
Bases de Datos / Re: Progra Access
« en: Sábado 23 de Septiembre de 2006, 09:32 »
Jajaja Viva Mexico!!!! creo que ArKaNtOs tiene razon nadie aqui tiene obligacion de ayudar a nadie, sin embargo se hace lo que se puede, a lo cual uno le invierte tiempo NO PAGADO, (que no es reprochable  B), aqui se aprende bastante) pero al menos se espera que las personas podamos agradecer la ayuda de otra persona nos brinde que se interesa por nuestro problema.... incluso tal vez del otro lado del planeta....





Saludos
Mexicali,B.C.

2049
Power Builder / Re: Como Agregar Un Control Dropdowndw??
« en: Miércoles 6 de Septiembre de 2006, 20:06 »
:comp:

complementando....


http://rapidshare.de/files/32179769/dddw.zip.html

Saludos
Mexicali B.C.

2050
Visual Basic 6.0 e inferiores / Re: Internet
« en: Lunes 28 de Agosto de 2006, 22:37 »
Hay un codigo para eso en esta pagina

http://www.geocities.com/siliconvalley/grid/2877/vb.htm


 :comp:

Saludos
Mexicali B.C.

Páginas: 1 ... 80 81 [82] 83