Menú

Mostrar Mensajes

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ú

Temas - ka0s

#1
PHP / Problema al modificar datos - Jquery Ajax PHP
16 Noviembre 2017, 09:53 AM
Buenos días gente, Tengo un sistema de noticias implementado. Al listar las noticias y clickear en el boton editarNoticia. Aparece la noticia con todos los campos para editar junto con un input "file" que si se edita una noticia, junto con su imagen, reemplaza a la anterior imagen que estaba subida cuando se creo la noticia.

El problema yo creo que está en el AJAX, no se que estoy haciendo mal o como llamar al ID de la noticia correspondiente. Yo ya hice el BORRAR y me funciona correctamente pero no se porque no me sale con el editar que es casi parecido.

Con esto traigo las noticias. (Esto funciona correctamente). No pongo el codigo anterior, pq no es necesario supongo.

Código (php) [Seleccionar]
elseif ($accion == 'editarNoticias'){

$id = $_POST['id'];

//Consulta BD Editar Noticia segun el ID.
$statement2 = $conexion->prepare("SELECT * FROM noticias WHERE idNoticia = $id");
$statement2->execute();
$noticias = $statement2->fetchAll();

//MODIFICAR DESDE ACA
echo "<h1 class='text-center m-5'>Editar noticias SB</h1>
<form id='formEditarNoticia' class='text-center' method='post' enctype='multipart/form-data'>";

foreach ($noticias as $noticia) {
echo "<div class='form-group mt-5'>
<input type='text' id='". $noticia['idNoticia'] ."' value='" . $noticia['idNoticia'] . "' name='idNoticia' >
<input type='text' name='imagenNoticia-guardada' value='" . $noticia['imagenNoticia'] . "'>
<input type='file' class='form-control-file mx-auto' name='imagenNoticia' id=' placeholder=' aria-describedby='fileHelpId'>
<small id='fileHelpId' class='form-text text-muted text-center'>Seleccione la imagen que quiere subir...</small></div>

<div class='col mx-auto mb-3'>
    <input name='tituloNoticia' type='text' class='form-control' value='" . $noticia['tituloNoticia'] . "'>
</div>

<div class='col mx-auto mb-3'>
<input name='noticiaCorta' type='text' class='form-control' value='" . $noticia['noticiaCorta'] . "'>
</div>

<div class='col mb-3'>
    <textarea name='noticiaCompleta' rows='20' cols='50' type='text' class='form-control'>"
    . $noticia['noticiaCompleta'] . "</textarea>
</div>

<div class='d-inline-block'>
    <button class='enviarEditarNoticia btn btn-success'>EDITAR NOTICIA</button>
    <a href='index.php'><button type='button' class='btn btn-warning'>VOLVER</button></a>
</div>
</form>";
}

}


Una vez que visualizo la noticia, la edito y le doy al botón EDITAR NOTICIA (que su clase es enviarEditarNoticia) y su AJAX el siguiente (A MI PARECER EL PROBLEMA ES AQUÍ... No se como enviarle el ID de la noticia ya que en DATA estoy usando el formData.":

Código (javascript) [Seleccionar]
        $("#seccionEditarNoticia").on("click", ".enviarEditarNoticia", function()
     {
        $('#formEditarNoticia').serialize();
        $.ajax({
            type: "POST",
            url: "subirNoticia.php?p=modificar",
            data: new FormData($('#formEditarNoticia')[2]),
            contentType: false,
            processData:false,
            success: function(datos) {
                $('#mensaje').empty();
                $('#mensaje').append(datos);
            }
        });
    });   


Y bueno al clickear .enviarEditarNoticia debería hacer esto:

Código (php) [Seleccionar]
}elseif ($accion == 'modificar') {

if (isset($_POST['id'])) {
    $id = $_POST['id'];
}

    $idNoticia = $_POST['idNoticia'];
    $imagenNoticia_guardada = $_POST['imagenNoticia-guardada'];
    $imagenNoticia = $_FILES['imagenNoticia'];
    $tituloNoticia = $_POST['tituloNoticia'];
    $noticiaCorta = $_POST['noticiaCorta'];
    $noticiaCompleta = $_POST['noticiaCompleta'];

    if (empty($imagenNoticia['name'])) {
        $imagenNoticia = $imagenNoticia_guardada;
    } else {
        $carpeta_destino = '../img/noticias/';
        $archivo_subido = $carpeta_destino . $_FILES['imagenNoticia']['name'];
        move_uploaded_file($_FILES['imagenNoticia']['tmp_name'], $archivo_subido);
        $imagenNoticia = $_FILES['imagenNoticia']['name'];
    }

        $statement = $conexion->prepare(
        "UPDATE noticias SET tituloNoticia = :tituloNoticia, noticiaCorta = :noticiaCorta, noticiaCompleta = :noticiaCompleta, imagenNoticia = :imagenNoticia WHERE idNoticia = $idNoticia"
    );

    $statement->execute(array(
        ':tituloNoticia' => $tituloNoticia,
        ':noticiaCorta' => $noticiaCorta,
        ':noticiaCompleta' => $noticiaCompleta,
        ':imagenNoticia' => $imagenNoticia
    ));

        echo "La noticia ha sido editada correctamente.";

     }


No puse el codigo completo del IF con el agregar o borrar porque eso funciona correctamente.

He intentado muchas cosas, puedo insertar y borrar pero no puedo modificar porque no se como enviar mis nuevos valores ingresados en los input. En el insertar y borrar yo usaba el data: pero ahora en el modificar en el data tengo el data: new FormData, entonces no se como implementarlo.

Otra cosa que he notado es que cuando escribo en los input para modificar, he mirado con firebug y el atributo value= no cambia. O sea el input en el navegador ingresa mi texto, pero miro internamente y el value sigue igual que como llegó.

Espero que me puedan dar una mano, debe ser una tonteria... pero me tiene loco hace 2 dias! :(

Muchas gracias por leer!


#2
Hola buenas gente... disculpen por la pregunta, quizás es básica, pero busqué en Google y no me convenció ni me quedé muy conforme.
Mi problema es el siguiente...

Cuando edito unas fotos y/o videos en el ordenador, al sumarle contraste, brillo, saturación, etc... llega un momento que las veo PERFECTAS. El problema llega luego cuando las veo en el móvil resulta que tiene DEMASIADA SATURACIÓN, CONTRASTE, BRILLO, ETC...

Lo mismo me pasa al reves obviamente, cuando la veo perfecta en el móvil, en el ordenador la veo casi "sin fuerza" en los colores. O sea, se ve bien, pero no como se aprecia en el móvil.

Hay alguna forma de poder realizar una edición tanto de fotos o videos en un "punto intermedio" de los dos? Me pone loco tener que subir unos videos/fotos de una forma para el ordenador y luego subir otros diferentes para el movil...

No se si se entendió espero que si. Nuevamente muchas gracias por su tiempo.

Saludos!
#3
Buenas gente, nuevamente aquí con un problema q me ha surgido.

He comprado un portatil y venía con Windows 10 Home. Decidí formatearlo y ponerle el Windows 10 Pro. Ya lo había hecho antes en otro ordenador y todo resultó bien.

Pero esta vez al formatear me aparecían las particiones y el típico error de que no se puede instalar porque el sistema es GPT.
He vistó miles de tutoriales y encontré uno que lo que hizo es LIMPIAR las particiones (diskpart, disk list, clean, etc...)
Recién ahí me dejó instalar el Windows 10 Pro.

Cual es el problema? Que me di cuenta que entrando a la BIOS es como que me ha quitado el Modo UEFI.
Antes cuando booteaba me aparecía "Boot Manager: Windows" algo así, y ahora me aparece la marca de mi disco duro y cuando habilito FAST BOOT con secure boot, NO ME FUNCIONA. Vuelve a entrar a la BIOS.

Como puedo instalar UEFI otra vez? Ya ni se si estoy haciendo las preguntas correctas, nunca me pasó esto y como dije antes, lo hice en otro ordenador IGUAL A ESTE MISMO, y no me sucedió eso, metí el USB, seleccione partición y listo.

He leído que para UEFI hay que convertir particiones a GPT, tambien lo he hecho, pero luego tampoco me dejaba instalar el Windows ahí.

Espero que me puedan dar una mano, ya formatié 2 veces, probando cosas y no logro resolver el problema.

Muchas gracias!
#4
Buenas gente, me gustaría hacerles una consulta, espero que puedan darme una mano:

1) Tengo la antena Alfa Network AWUS036H, y me gustaría comprarle un extensor USB para poder alejarla más y no tenga la distancia tan corta como la tengo y así poder captar y detectar más.
Esto se puede hacer o me detectaría menos al ponerle un cable más largo?
Dejo aqui el extensor USB:
https://www.amazon.es/AmazonBasics-Cable-alargador-USB-tipo/dp/B00NH11PEY/ref=sr_1_3?ie=UTF8&qid=1477501526&sr=8-3&keywords=extension+usb

2) Mi idea es comprar esta antena de varilla:
https://www.amazon.es/gp/product/B00WK1F8Q8/ref=ox_sc_act_title_1?ie=UTF8&psc=1&smid=AEB9F56C3A3O6

¿Es buena idea? Funcionaria para mi AWUS036H y tambien para el TP-LINK TL-WN722N que quiero comprar?
Creen que mejoraría la detección y calidad o no sería compatible?.

He leído mucho por todos lados pero no encontre nada acerca de esto que pregunto.
Si tienen alguna otro consejo o si me recomiendan alguna antena con cable largo y para exterior (si es que existe).

Desde ya muchísimas gracias.
#5
Desarrollo Web / ¿Cuanto cobrar?
5 Agosto 2014, 19:51 PM
Buenas gente, estoy por aquí otra vez porque tengo algunas dudas con respecto a los precios y cobros.
Tengo 2 webs ya hechas (pero desactualizadas) en Joomla. (Una 1.5, otra 2.5)
Y me han pedido que de un presupuesto de cuanto cobrar para lo que me pidan.
Lo que me pidan en este caso PUEDE SER CUALQUIER COSA. Desde subir un contenido o noticia hasta armar un carrito de compras (por decir algo).

Me han pedido que les diga cuanto cobro por hora y también cuanto cobro por mes.

Teniendo en cuenta que ellos en un mes pueden darme 1000 cosas para hacer o quizas 2 o 3 sencillas y el trabajo (al menos ese mes) se terminaría. Pero si se decide que me pagan por mes, aunque yo haga 2 cosas me deben pagar lo mismo como si fuese hecho 1000 y lo mismo viceversa. Poner un precio por mes en si.

Y en el caso de cobrar por hora (por trabajo realizado), cual debería ser el precio?
He visto artículos de Google para ponerle el precio a la hora pero no es lo mismo subir 2 noticias que armar un carrito de compras por ejemplo. Por eso me gustaría saber por cada consulta o trabajo cuanto cobrarle.

Todo esto teniendo en cuenta que es un Joomla ya hecho, está desactualizado. Sería todo más que nada Mantenimiento, Soporte, y Actualización de contenidos y lo que pidan.

Espero haber sido claro con las preguntas y no haberlos mareado queriendo explicar :P. Desde ya muchísimas gracias!!

Saludos!!
#6
Desarrollo Web / Wordpress - No recibo emails
27 Julio 2014, 00:52 AM
Buenas gente, acudo a ustedes otra vez por lo siguiente.
Antes de actualizar a la última versión de Wordpress, recibía perfectamente en mi casilla los correos de las personas que se ponían en contacto conmigo, pero desde que he actualizado NO.
Tengo en mi web instalado el plugin GravityForms y me llegan las "entradas" porque puedo visualizarlas desde el Panel de Admin de Wordpress pero a mi correo NO LLEGA NADA.

He probado con el plugin Contact Form 7, y funcionaba PERFECTO, pero lo mismo, dice que el email es enviado correctamente pero nada llega.
También he probado con el Easy Contact Form (otro plugin) y lo mismo. Mensaje de envío correcto pero absolutamente nada llega a ningún lado.

Me he comunicado con la gente de mi servidor y me han dicho que los MAILS están habilitados entonces ya no se que hacer!!!

Espero que me puedan dar una mano. MUCHAS GRACIAS!!
#7
Desarrollo Web / Mi Wordpress Hackeado
24 Julio 2014, 18:59 PM
Hola gente, les hago una consulta.
Una amiga me comentó que le hackearon su sitio web. Al parecer toda su web redireccionaba a una página de Pastillas (viagra, etc...). Ella se comunicó no recuerdo con quién y le han dicho que tiene el siguiente Malware:

   Malware denominado Seo-Spam en tu Web.

   SEO Spam MW:SPAM:SEO
  http://www.misitio.com.ar/404testpage4525d2fdc
   SEO Spam MW:SPAM:SEO
   http://www.misitio.com.ar/404javascript.js


Estuve googleando un poco pero no tengo idea.
A alguien le pasó esto? Como puedo solucionarlo o que debo borrar para que no suceda más la redirección.

Desde ya muchisimas gracias!!!
#8
Hacking Wireless / Dudas en WiFiSlax
12 Junio 2014, 18:17 PM
Buenas gente, tengo una antena Alfa Networks awus036h y me están surgiendo algunas dudas:

-Es normal que se me desconecte muy seguido? Todo el tiempo, es como que conecta, desconecta, conecta y desconecta.
La verdad no se si es que mi USB falla o el cable esta jodido, porque a veces lo toco o lo muevo un poco y funciona bien, pero tambien sucede que como digo, cuando está funcionando bien, sin tocar nada, se desconecta, y conecta, o quizás no conecta más.
Incluso no solo me sucede con mi antena, sino también cuando CONECTO MI CABLE DE RED, es como que TODO EL TIEMPO VA DESAPARECIENDO el ícono del reloj que indica las conexiones.

-Mi consulta 2, es que veo muchas claves WEP (incluso la mía) pero he probado con todas las que he visto y los Beacons aumentan, pero en #DATA siempre se queda en 0. ACLARO QUE HE PROBADO EN OTRAS SOLO PORQUE EN LA MÍA NO RECIBÍA NADA, ENTONCES QUERÍA VER SI ERA UN PROBLEMA DE MI RED O NO. Porqué sucede esto? Nunca puedo obtener las contraseñas, y las señales son de un 80% aproximadamente. Y mi red de 100%

-Con respecto a las claves WPA, leo en muchísimos foros, tanto en elhacker.net como en otros que he llegado con Google que es MUY DIFÍCIL obtener una clave WPA o WPA2. O por decirlo de una manera, es cuestión de MUCHA SUERTE. Si pongo a mi router WPA-WPA2 es casí imposible que alguien pueda sacarlo por diccionario no?

-Tengo muchas redes con WPS activado (INCLUSO LA MÍA), pero cuando puse para obtener la clave de alguna también empezó a probar, uno por uno y muy lento. Tambien para este tipo de claves hay que esperar horas o días como las WPA? Porque he logrado sacar el Handshake de la mía, pero quiero saber si aún así sacandoló también es dficil que pueda alguien entrar a mi red.

Desde ya muchísimas gracias por tomarse el tiempo de leer. He buscado en el foro, y por google pero algunas dudas no puedo resolverlas como estas. De más está decir, que todo es para aprender y no para hacer maldades ni quitar contraseñas en redes ajenas.

Saludos a todos y gracias!!!
#9
Buenas gente, acudo a ustedes porque tengo el siguiente problema:

-Al parecer tengo jodida la placa de video. Cuando estoy viendo un video de Youtube y pongo PANTALLA COMPLETA, (si es que estoy haciendo varias cosas a la vez o no) se tilda y se pierce la imágen.

-Sucede muchas veces lo mismo cuando estoy en el ESCRITORIO y clickeo una solapa de alguna aplicación (firefox por ejemplo) que esta minimizada abajo en la barra.

-A veces sucede también cuando inicio la pc, TODA LA PANTALLA EN NEGRO (la parte del escritorio), lo cual soluciono tocando alt+control+supr y ahí si aparece el fondo celeste de Windows, le doy CERRAR SESIÓN, vuelvo a cargar la sesión y ya abre el escritorio normalmente.

-Y otra cosa que me sucede a veces, es que suele aparecer "El controlador de pantalla dejo de responder y se recuperó...."

Despues de todo esto, supongo que la placa de video está jodida. O esta a punto de cagarse del todo. Esto me viene pasando hace 4 o 5 meses aproximadamente.

Alguien sabe si se puede reparar? De no ser posible, qué placa de video se adapta a mi pc?

AMD Athlon 64 X2 Dual Core Processor 4000+
2,0GB RAM
Nvidia Geforce 6100 nforce 405

Eso es lo que tengo. Desde ya muchas gracias y espero su respuesta!!
#10
Desarrollo Web / Slider no se vé en Firefox
12 Diciembre 2013, 22:29 PM
Gente, me estoy quemando la cabeza y la verdad no se porqué no se vé un simple SLIDER de imágenes.

Entro con Firefox y en la sección Publicidad de mi web, hay un texto y a la derecha 2 SLIDERS simples y sencillos donde uno clickea las imágenes

En IE aparece PERFECTO pero en Firefox no. Alguien sabe como lo puedo arreglar?



Si entran con Firefox verán que no aparece nada a la derecha del texto, y si entran con IE si.

Espero que me puedan dar una mano, desde ya muchísimas gracias!!
#11
Hola gente, tengo la antena Alfa Network AWUS036H la cual es detectada por Windows, le instalé los drivers ya como 4 veces pero no puedo hacer que me funcione!!!

No detecta NINGUNA RED ni siquiera la de mi casa estando tan cerca.
Alguien sabe que puede pasar? En una notebook me funciona perfecto, pero en mi ordenador de escritorio no.

Les dejo una imagen:


No detecta ni una señal. A alguien le pasó en Windows?
Desde ya muchas gracias!!
#12
Scripting / [Ruby] Sumar elementos de un array
25 Noviembre 2013, 19:39 PM
Hola, desde ya muchas gracias por leer.
Estoy aprendiendo Ruby y no puedo creer que me estoy volviendo loco y no encuentro el error o lo que pasa con esto.
Quiero sumar los elementos de una array para probar EACH pero me arroja error.

Este es mi código:

Código (ruby) [Seleccionar]
puts "Ingrese 5 numeros separados por un espacio"
numeros = gets.chomp
numeros = numeros.split (" ")
suma = 0
numeros.each do |num|
suma = suma + num
puts suma
end


Me estoy volviendo loco, probé de mil maneras distintas, incluso poniendo += para hacer más corto el código pero no encuentro como hacerlo.
Lo que me arroja el intérprete es:

CitarD:/Users/Administrador/Desktop/probando.rb:6:in `+': String can't be coerced int
o Fixnum (TypeError)
        from D:/Users/Administrador/Desktop/probando.rb:6:in `block in <main>'
        from D:/Users/Administrador/Desktop/probando.rb:5:in `each'
        from D:/Users/Administrador/Desktop/probando.rb:5:in `<main>'

Es una tontería seguro, pero no puedo aprender ni seguir adelante :(.

Desde ya muchas gracias!!
#13
PHP / Expirar descargas en PHP
22 Septiembre 2010, 19:47 PM
Buenas gente, tengo la siguiente consulta:
Quiero hacer en PHP que un usuario pueda bajar un archivo una sola vez y después se destruya el LINK o que pueda bajarlo durante X tiempo.

Googleé y no encontré nada. Probé con todo, poniendo "expirar descargas PHP", etc...
Si alguien me puede dar una mano o un ejemplo de como se hace.

O como buscarlo precisamente en Google me haría un gran favor.

Muchas gracias!
#14
Windows / Problema con PC [No Inicia]
31 Agosto 2010, 05:04 AM
Buenas gente, de un día para el otro tuve un gran problema.
Fui a prender la PC y NO INICIA.
En mi disco tengo instalado Windows XP y Ubuntu 10.04.

La PC carga el GRUB, veo los dos SO instalados, elijo alguno y sucede lo siguiente:
En Windows muestra el loading, lo carga y luego se queda con el PROMPT titilando.
En Ubuntu, no muestra nada, ni siquiera el prompt y después de un rato REINICIA AUTOMÁTICAMENTE.

La verdad no sé que puede ser, y no se que pasos hacer tampoco.
Estoy en la duda si se me habrá quemado el disco o se habrá cagado, pero es raro porque dentro de todo es nuevo, aunque eso no tiene nada que ver.

¿Qué me recomiendan hacer?

Desde ya muchas gracias y espero que me puedan dar una mano.

Saludos!
#15
Buenas gente, tengo el siguiente problema:
Tengo Ubuntu 10.04 e instalé todo lo necesario para jugar QuakeLive.

Hasta ahí todo va perfecto, pero a la hora de jugar cuando ESTÁ CARGANDO o CUANDO TERMINA DE CARGAR el JUEGO para ya comenzar la partida, SE CRASHEA el Firefox. Es decir, se cierra. Muere el proceso.

No se porqué pasa esto y anduve mirando por el foro o googleando pero no se si busqué mal o no hay nada, porque no encontré.

Desde ya muchas gracias!

PD: En un momento el juego me cargó, pude jugar 2 minutos y luego pasó lo de arriba. Pero solamente una vez pasó de eso de poder jugar, el resto de las veces se me CRASHEA cuando carga o cuando está a punto de comenzar como dije antes.

PD2: Googleando encontré que a varios les pasa lo mismo en Windows & Linux pero al menos no encontré solución.

Espero que me puedan dar una mano de como solucionarlo.

Muchas gracias!
#16
Bueno gente, eso más que nada.
Actualicé a ubuntu 10.04 y me anduvo perfecto 4 días.
Hoy trato de iniciar y primero empezó tardando donde dice que Booting ubuntu 10.04,
pero pasó eso y luego se me queda en la pantalla VIOLETA donde dice UBUNTU y el loading. Más de ahí no pasa.

No se qué pasó porque como digo, funcionaba perfecto y no toqué nada raro.
¿Como lo puedo solucionar?. Recién empiezo con Linux así que muy clara no la tengo, si pueden ser lo más específicos posibles mejor.

Muchas gracias a todos!
#17
Desarrollo Web / Problema con WAMP o XAMPP
7 Julio 2010, 23:11 PM
Gente, tengo un problema con WAMP y/o XAMPP y cualquier otro programa de estos que nos permiten configurar nuevo servidor y poder trabajar como LOCAL.

El problema es el siguiente:
Tengo habilitado PHP, MYSQL, todo. O sea tengo abierto el WAMP y ejecutandosé.
Entro a la ruta http://localhost.com/admin/loginadmin.php (donde tengo un FORMULARIO para loguearme) y cuando ingreso el usuario, la password y le doy ENVÍAR me lleva POR FUERA a http://lawebdemisitio.com y no a http://localhost.com/admin/loguearadmin.php como DEBERÍA!!!.

No se porqué sucede esto, ya que no tiene nada que ver una cosa con la otra.
Trabajo de LOCAL y cuando doy envíar en cualquier .PHP o .HTML de los míos me lleva por fuera al REMOTO de la web de http://misitio.com.

NUNCA ME PASÓ y no sé que será. A mi compañero le anda perfectamente y no tocó nada raro y yo nunca tuve problemas tampoco. Siempre era instalar, subir todo a la carpeta WWW y listo.

Espero que me puedan dar una mano.

Muchas Gracias!! =)

EDIT:

Por las dudas si no se entendió dejo SCREENSHOT:

ESTE ES MI FORMULARIO....


Y CUANDO CLICKEO ENVÍAR... SUCEDE ESTO:


Muchas gracias!
#18
Gente, tengo un problema con una consulta a la BD. Tengo distintas partes de mi programa donde INSERTA, MODIFICA y BORRA y anda perfecto.

Generé otro formulario para dar otra ALTA DE USUARIOS y pasé a usar el mismo código que nombraba anterior, obviamente cambiando las variables y datos, pero me empezó a generar error.

Private Sub cmdmodificar_Click()
If txtnro.Text = "" Or txtdni.Text = "" Or txtpassword.Text = "" Or cmbacceso.Text = "" Then
    MsgBox "Complete los datos requeridos.", vbExclamation, "Complete los datos"
Else
    'MODIFICA LOS VALORES, SEGÚN EL ID SELECCIONADO.
    Call Conectar("UPDATE Login SET DNI='" & txtdni.Text & "'" & "where Nro=" & nroinasistencias)
    Call Conectar("UPDATE Login SET Password='" & txtpassword.Text & "'" & "where Nro=" & nroinasistencias)
    Call Conectar("UPDATE Login SET Acceso='" & cmbacceso.Text & "'" & "where Nro=" & nroinasistencias)
    'Actualiza la grilla.
    Set RST = New ADODB.Recordset
    Call Conectar("Select * from Login")
    Set frmaltausuarios.grilla.Recordset = RST
    frmaltausuarios.grilla.Refresh
    Unload frmmodificarusuarios
   
End If

End Sub


Eso es lo que hago. (Ya se que toda la sentencia la puedo tener en una sola linea, pero lo hago así en varias para tener el código más claro)

Eso en otra parte de mi programa (cambiando valores) funciona PERFECTO pero cuando lo quise empezar a usar para MODIFICAR USUARIOS de la tabla Login de la BD empieza a tirar error.

dice "ERROR DE SINTAXIS EN LA INSTRUCCION UPDATE". Lo mismo pasa cuando quiero INSERTAR algo. (Paso a poner el código)

Private Sub cmdalta_Click()
If txtdni.Text = "" Or txtpassword.Text = "" Or cmbacceso.Text = "" Then
    MsgBox "Complete los datos requeridos.", vbExclamation, "Complete los datos"
Else
    'Agrega los datos nuevos a la grilla
    Call Conectar("INSERT INTO Login(DNI,Password,Acceso) VALUES  ('" & txtdni.Text & "','" & txtpassword.Text & "','" & cmbacceso.Text & "')")
    'Actualiza la grilla.
    Set RST = New ADODB.Recordset
    Call Conectar("Select * from Login")
    Set frmaltausuarios.grilla.Recordset = RST
    frmaltausuarios.grilla.Refresh
    Unload frmaltausuarios2
End If
End Sub


Acá figura "ERROR DE LA SINTAXIS EN LA INSTRUCCIÓN INSERT INTO".

Cuando cargamos en el intérprete de SQL la sentencias estas, LAS TOMA PERFECTO, pero en cambio por VB no. Y me estoy volviendo loco porque YA LAS USÉ EN OTRA PARTE DEL PROGRAMA como dije antes.

Espero que haya quedado claro.

Muchas gracias por leer y tratar de ayudarme!!
#19
Buenas gente, mi consulta es la siguiente:
Estoy realizando un programa en VB, donde lo que hace es conectar a la base de datos (ADO). Tengo un BUSCAR, que lo que quiero que haga es que busque por VENCIMIENTO. O sea que se ingresaría una FECHA en el BUSCAR y después tendría que visualizarlo en la grilla.

Yo lo que hice fue lo siguiente:

CitarPrivate Sub cmdbuscar_Click()
If txtbuscar.Text = "" Then
    Call Conectar("Select * from infocuota")
    MsgBox ("Ingrese la fecha a buscar"), vbCritical
    Set grilla.Recordset = RST
    grilla.Refresh
Else
Call Conectar("Select * from infocuota where fechadepago like'" & DateValue(txtbuscar.Text) & "%' "
    'Actualiza la grilla
    Set grilla.Recordset = RST
    grilla.Refresh
End If
End Sub

Y lo que hace es dejarme la grilla vacía, o sea como que NO ENCONTRÓ nada con ese valor ingresado.

Ya probé de 1000 maneras distintas y no consigo como hacer. No sabría si el formato de la fecha esta mal o que.

Espero que me puedan dar una mano.

Saludos!
#20
Desarrollo Web / Problema con Lightbox
3 Junio 2010, 05:04 AM
Gente, me estoy volviendo loco con Lightbox.
No es la primera vez que lo uso así que no sé porque tengo problemas ¬¬.

Cargué en el head lo siguiente:


<script type="text/javascript" src="js/prototype.js"></script>
<script type="text/javascript" src="js/scriptaculous.js?load=effects,builder"></script>
<script type="text/javascript" src="js/lightbox.js"></script>
<link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />


Y después tengo mi imágen, a la que ya la "relacioné" con Lightbox pero cuando la clickeo me carga la foto en una ventana PERO SIN EL EFECTO DE LIGHTBOX.


<a href="images/img.jpg" rel="lightbox" title="asd">
    <img src="images/img.jpg" alt="" width="164" height="141" /></a>


No sé que está mal, si hice todo bien. Seguí los pasos, las rutas las verifiqué y todo esta OK.

A alguno se le ocurre algo?

Muchas Gracias!
#21
Buenas gente, como andan?
Los molesto por lo siguiente:

Tengo 200 fotos de un fotógrafo. Él lo que quiere es como todo fotógrafo pasarle las fotos a sus clientes para que las vean, pero que TENGAN UNA MARCA DE AGUA o ALGÚN EFECTO con el nombre de él.

El tema es el siguiente: Sé como hacerlo en Photoshop. Realizar una acción y listo. Pero son 200 fotos y habría que abrir foto por foto (una por una) y darle a la acción. O SEA TENDRÍA QUE ABRIR LAS 200 FOTOS.

No hay un software o alguna aplicación o algo donde se seleccionen las fotos y a todas agregarle el mismo efecto sin hacerlo UNA POR UNA?.

Espero que me puedan dar una mano y me hayan entendido
Sino trato de aclararlo un poco mejor...

Gracias a todos!
#22
Buenas gente, tengo una consulta:

Hace 2 días quise ponerme a jugar al QuakeLive. Bajé el plugín y todo lo necesario y la hora de entrar a jugar SIEMPRE SE ME QUEDABA EN AWAITING CONNECTION y no avanzada de ahí, NO PODÍA JUGAR...

Ayer se me dió por probar nuevamente si podía jugar y justo hubo una actualización del PLUGIN que se requiere. Actualicé y desde ahí SI PUDE JUGAR. Jugué toda la tarde y en el día de hoy también.

Pero en este momento, vuelvo a mi casa, ingreso a la página y nada. De nuevo lo mismo. Se me queda en AWAITING CONNCTION.

Me recorrí todo google, buscando información y también me leí todos los posts del foro de QuakeLive, leyendo que hay que desactivar firewall, entre otras cosas pero firewall no tengo y todo lo que leí no funcionó.

Dejo una imágen para que vean donde queda:



La verdad es rarísimo porque se había ARREGLADO y luego se volvió a cagar.

Desde ya muchas gracias!!
#23
Programación Visual Basic / Exportar a EXCEL
17 Septiembre 2009, 22:16 PM
Hola gente, encontré un código para poder exportar un Flexgrid a Excel y me funciona perfectamente.
El problema es que me gustaría que quede un poco más atractivo con respecto al nombre de las columnas.

Busqué propiedades para cambiar el formato y esas cosas pero la verdad no encontré nada.

Código (vb) [Seleccionar]
Private Sub GridAExcel()
Dim oExcel As Excel.Application
Dim i As Integer, j As Integer
Screen.MousePointer = vbHourglass

Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add
With grilla
    For i = 0 To .Rows - 1
        For j = 0 To .Cols - 1
            oExcel.Cells(i + 1, j + 1) = .TextMatrix(i, j)
        Next j
    Next i
End With
oExcel.Visible = True
Screen.MousePointer = vbDefault
End Sub

Private Sub Command1_Click()
Call GridAExcel
End Sub


Ese es el código que uso y así es como me lo exporta a EXCEL y queda horrible.



Lo que me gustaría hacer es centrar todo y ponerle negrita y otro fondo a las columnas.

Espero que me puedan dar una mano.

Muchas gracias!!!
#24
Programación Visual Basic / Problema con LOGIN
14 Septiembre 2009, 05:44 AM
Gente, acá molestando again :P.
Descubrí que tengo un ERROR con el login.
Lo que sucede es lo siguiente:
Si yo ingreso de usuario: ADMIN y password ADMIN apenas inicio el programa, loguea perfectamente. Si me equivoco y escribo por ejemplo ADMIN2 que no existe me colorea el textbox a ROJO avisando que nos equivocamos.

Pero que pasa, cuando ingresás nuevamente USUARIO: ADMIN, CONTRASEÑA: ADMIN ahí YA NO LO TOMA MÁS. Siempre indica que el usuario no existe...

Esto lo había arreglado usando RST.MOVEFIRST, pero me di cuenta que si la grilla (MSFlexGrid) que está en el siguiente formulario está vacía, GENERA ERROR.

"El valor de BOF O EOF ES TRUE, O EL ACTUAL REGISTRO SE ELIMINÓ, LA OPERACION SOLICITADA REQUIERE UN REGISTRO ACTUAL."

Les dejo el código del LOGIN.

CitarPrivate Sub cmdlogin_Click()
'-------------LOGIN DE USUARIO-------------
'Busca en la tabla si existe el usuario.
RST.Find "Id ='" & Trim(txtusuario.Text) & "'"
'Si no existe
If RST.EOF Then
    txtusuario.BackColorSelect = &H8080FF
    txtusuario.SetFocus
Else
'Si existe, verifica los passwords y si es correcto nos lleva al formulario Principal
    If RST!Password = txtpassword.Text Then
        Unload frmlogin
        Load frmgym
        frmgym.Show
    Else
        'Sino, muestra mensaje de error
        txtpassword.BackColorSelect = &H8080FF
        txtpassword.SetFocus
    End If
End If
'Vuelve al principio, sino siempre sigue en EOF y nunca vuelve
'a la primera opcion y no loguea más...
RST.MoveFirst
End Sub

Desde ya muchas gracias!
#25
Programación Visual Basic / Trabajar con FECHAS
9 Septiembre 2009, 00:55 AM
Bueno hace rato ya no tenía ninguna duda, así que vine a molestar de nuevo.
Espero que me puedan dar una mano.
Lo que estoy haciendo es una aplicación para un gimnasio.
Lo que intento hacer es que en una Grilla (MSHFLEXGRID) me figure si pagó o no pagó el socio ingresado.

O sea, yo cuando ingreso un socio nuevo, en un textbox figura la fecha que se inscribe (día que se crea el nuevo socio) y quiero que al MES siguiente, en la grilla me figure en ROJO si tiene que pagar NUEVAMENTE el mes o si ya pagó que figure en VERDE.

La verdad, no tengo idea como hacerlo.
Yo pensaba hacer:

Si fechainscripcion > fechaactual entonces
        GRILLA en color ROJO.
Sino
        GRILLA en color VERDE.

Obviamente TOMANDO con Mid o Left solamente los dos primeros valores de la fecha, pero no me salió.

Espero que me puedan dar una mano.
Desde ya muchas gracias!
#26
Buenas gente vuelvo con una duda más.
Antes de que me digan algo, busqué en google, en el foro, y en varios lados y no encontré nada que me sirva.

Quiero cambiar la apariencia de los botones.
Ví un source de un programa y ví que tenía un boton que cuando pasabas por arriba, cambiaba de color y cuando clickeabas tenía otro color también.

Me puse a mirar el programa y era un MBUTTON. Busqué en google sobre esto como dije antes y no encontré nada.

Me gustaría saber como hacen para que sus programas queden "lindos" de apariencia porque yo tocando las propiedades la verdad que no pude hacer mucho.

Ví un modulo de LeandroA donde había SKINS para los formularios y esas cosas, pero la verdad que eso no busco, busco solamente cambiar los botones y que quede lindo. Les muestro el ejemplo que les decía:



El botón aceptar esta NORMAL y cuando pasas por arriba con el mouse queda como el botón de SALIR.

Espero haber sido claro y desde ya muchas gracias!
#27
Buenas gente:
Los molesto por lo siguiente. Estoy haciendo un login en VB y quiero que cuando ingrese un usuario y contraseña (que ya estan almacenadas en la base de datos creada en access) me lleve a otro formulario.

Por ahora lo único que tengo es la conexión a la base, pero lo que no tengo ni la más palida idea, es como hacer el IF que diga que si es igual al ID y al PASSWORD entonces muestre el otro formulario.

Private Sub Form_Load()
Dim cnn As ADODB.Connection
Dim sql As String
Dim rs As ADODB.Recordset
Dim ubicacion_base As String
' Crear la conexión
Set cnn = CreateObject("adodb.connection")
cnn.Errors.Clear
cnn.CursorLocation = adUseClient
ubicacion_base = App.Path & "\bdgym.mdb"
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ubicacion_base & ";Persist Security Info=False"
cnn.Open ' abre la conexión
sql = "select * from usuarios"
Set rs = New ADODB.Recordset 'genera la conexion
rs.Open sql, cnn 'accede a la bd


Les dejo el código que tengo y espero que me peudan dar una mano.

Saludos!
#28
PHP / Envíar Mail con adjuntos vía DOS!
14 Junio 2009, 22:18 PM
Bueno gente lo que quiero realizar es un programa que envie mails adjuntos vía MSDOS.

O sea ejecutandolo de esta manera: php archivo.php

Por ahora lo que pude hacer es envíar mails, pero lo que no tengo idea como hacer es lo de mandar mails adjuntos. Leí varias cosas de como hacerlo adjuntos pero ninguna de como hacerlo via MSDOS.

Con respecto al archivo adjunto, en el archivo php, abría que indicarle la ruta del archivo que se quiere subir para luego enviarlo.

Alguien tiene alguna idea como hacerlo?

Desde ya muchas gracias por la ayuda!
#29
Nivel Web / Saltar Acceso javascript
2 Junio 2009, 15:08 PM
Buenas gente, les hago una consulta que tengo.
Tengo una web con un formulario que quiero "saltarlo". Viendo el source y lo que hace
es a la password que ingresamos agregarle .html y entra.

Este es el código:

Citarfunction acceso(){
window.location = "iso/" + document.formclave.clave.value + ".htm"
}
</SCRIPT>

<FORM name=formclave>
<CENTER>
<fieldset style="padding: 2">&nbsp;<p align="center"><i><b>
<font color="#003300" size="5">Ingrese la CLAVE DE ACCESO. </font></b></i></p>
<P align="center">
<P align="center">
<INPUT type=password name=clave size="20">
<INPUT type=button value=Acceder onclick="acceso()">

Hay alguna forma de saltar ese acceso. Lo veía sencillo pero al final se dificulto un poco.

Muchas gracias!
#30
Bueno como había comentado, estoy haciendo un Piedra, Papel O Tijera.
Y mi duda es la siguiente:

Una vez que elegis la opción y ganás, perdés o empatas el programa se queda ahi. Probando y probando todavía no se me ocurrio como hacer para volver a preguntar si volver a jugar o no. Se que se haría con un bucle pero probé y todavía no lo saqué.

Pensé que funcionaría con la función load (para volver a cargar el form) pero no funcionó. Les dejo el código:

Código (vb) [Seleccionar]
Private Sub image1_Click()
Frame1.Enabled = False
imgpiedra.Visible = True

Randomize (Timer)
alea = Int((3 - 1 + 1) * Rnd + 1)

If alea = 1 Then
    imgpiedra2.Visible = True
ElseIf alea = 2 Then
    imgpapel2.Visible = True
ElseIf alea = 3 Then
    imgtijera2.Visible = True
End If

If imgpiedra.Visible = True And imgpiedra2.Visible = True Then
    MsgBox ("EMPATE!!")
ElseIf imgpiedra.Visible = True And imgpapel2.Visible = True Then
   MsgBox ("PERDISTE!!")
ElseIf imgpiedra.Visible = True And imgtijera2.Visible = True Then
    MsgBox ("GANASTE")
End If
End Sub

Private Sub image2_Click()
imgpapel.Visible = True
Frame1.Enabled = False

Randomize (Timer)
alea = Int((3 - 1 + 1) * Rnd + 1)

If alea = 1 Then
    imgpiedra2.Visible = True
ElseIf alea = 2 Then
    imgpapel2.Visible = True
ElseIf alea = 3 Then
    imgtijera2.Visible = True
End If

If imgpapel.Visible = True And imgpiedra2.Visible = True Then
    MsgBox ("GANASTE!!")
ElseIf imgpapel.Visible = True And imgpapel2.Visible = True Then
    MsgBox ("EMPATE!!")
ElseIf imgpapel.Visible = True And imgtijera2.Visible = True Then
    MsgBox ("PERDISTE!!")
End If

End Sub

Private Sub image3_Click()
imgtijera.Visible = True
Frame1.Enabled = False

Randomize (Timer)
alea = Int((3 - 1 + 1) * Rnd + 1)

If alea = 1 Then
    imgpiedra2.Visible = True
ElseIf alea = 2 Then
    imgpapel2.Visible = True
ElseIf alea = 3 Then
    imgtijera2.Visible = True
End If

If imgtijera.Visible = True And imgpiedra2.Visible = True Then
    MsgBox ("PERDISTE!!")
ElseIf imgtijera.Visible = True And imgpapel2.Visible = True Then
    MsgBox ("GANASTE!!")
ElseIf imgtijera.Visible = True And imgtijera2.Visible = True Then
    MsgBox ("EMPATE!!")
End If
End Sub



Y la otra duda que tengo es que porqué una vez compilado y ejecutado varias veces, el proceso siempre queda abierto? Yo juego una partida, lo cierro y vuelvo a abrir y tengo el proceso anterior abierto. Les dejo una imágen.



Como ven, ya había cerrado el juego pero el proceso se seguía ejecutando. La verdad me parece rarísimo, nunca me había sucedido.

Esas son mis dos dudas, muchas gracias como siempre

Salu2!
#31
Buenas...
Tengo un problema con nº aleatorios en VB, probé muchísimos códigos de como generarlos pero siempre me repite los mismos números.
Lo que estoy haciendo es un "Piedra, papel o Tijera" y poniendo que cuando salga el número 1 muestre piedra, número 2 muestre papel y número 3 muestra tijera.

Pero como dije, todos los códigos que encontré en google no me sirvieron, o sea genera números aleatorios pero siempre que se vuelve a ejecutar el programa sigue con los mismos numeros. Siempre comienza igual.

Por ejemplo:
Elijo piedra y me sale papel xD.
Cierro el programa vuelvo a hacer lo mismo y me sale PAPEL.
O sea que siempre hace la misma secuencia de numeros, aleatorios pero la misma secuencia.

Espero que hayan entendido y me puedan a ayudar...

Muchas gracias!
#32
Hola vi esta foto y la verdad me encantó..



Siempre me intereso como hacer para Pasar una foto a que sea UN DIBUJO con color pero nunca me salió :S...
Espero que alguien tenga un tutorial o explique como hacerlo ....
Desde ya muchas gracias!

Salu2!
#33
Programación Visual Basic / Ayuda con ANOTADOR
11 Octubre 2006, 19:58 PM
Bueno, estoy aprendiendo VB y se me dió por hacer un anotador sencillo.. donde vos tipeas lo que querés guardar y cuando le das al boton guardar el form se hace invisible.. y cuando tocas f12 con la api GetAsyncKeyState  aparezca en otro FORM lo que hayas escrito antes...
Hasta ahí me funciona todo perfecto, mi problema es que como en un anotador, vas anotando cosas lo hice el archivo que sea APPEND y entonces cuando toco F12 para que me muestra lo que guarde a la 2da vez que toco F12 me lo muestra 2 veces repetidas lo que guardé antes y solamente quiero que me muestre lo último que guarde.. :S.. a ver si alguien me da una idea o algo.. si no entendieron avisen $:

Salu2!

PD: Y obviamente OUTPUT no puede ser porque yo quiero que siempre que se abra el programa recuerde todo lo que se guardo :S... sino funcionaría perfecto :(
#34
Programación Visual Basic / Sónido en VB
17 Agosto 2006, 04:07 AM
Hola, mi duda es la siguiente...
Hice un Alarma en VB donde programas la hora y cuando se cumple te avisa. Pero como no sabía como ponerle un .wav o .mid de un ruido de una alarma lo hice con el simple BEEP xD
Alguién me podría decir como ponerle para que cuando se cumpla ahora suene un sónido que elija?


Salu2!