elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Mensajes
Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ... 24
41  Programación / Programación Visual Basic / Re: AYUDAA en: 18 Marzo 2014, 17:12 pm
Y tienes todos eso textboxs como sale en la secuencia? O solo copiaste la Sub a un boton?
Recuerda que todos esos datos tienen tienen que llenarse para poder enviar el mail.


En este link hay un formulario de descarga de un ejemplo de como enviar mail con VB6.

En este otro link aparecen muchos ejemplos de como enviar un mail con Vb6.

Saludos, espero te sirva, no pongo un ejemplo porque yo no se como hacerlo, pero creo que demas hay algun ejemplo que te pueda servir para lo que quieres hacer.
42  Programación / Scripting / Re: [BATCH] [APORTE] Rutina TEXTMAN para manipular archivos de texto en: 15 Marzo 2014, 15:17 pm
Que buen aporte! (como siempre :D), yo que manipulo muchos archivos en el trabajo me sirve mucho para aprender y para -porfin- tener una forma rapida de donde sacar ejemplos y asi aplicarlos a otros Scripts !!

Muchas Gracias!!
43  Programación / Programación Visual Basic / Re: [VB6] Problema con MonthView Control. en: 7 Marzo 2014, 16:03 pm
lo resolví, y dejó la "solución"  acá por si a alguien más le. pasa.

crean una función

Código
  1. Private Function DiaActual () 
  2. MonthView1.Value = Date
  3. End Function 
  4.  


y después lo cargan en form load
44  Programación / Programación Visual Basic / Re: Como selecciono mas de un dia(NO correlativos) en un MonthView en: 4 Marzo 2014, 15:33 pm
Puede ser con un DatePicker?, es un control igual. No tengo idea como funciona, igual puedes buscar en la web. Saludos
45  Programación / Programación Visual Basic / [VB6] Problema con MonthView Control. en: 4 Marzo 2014, 15:31 pm
Hola!, yo de nuevo aca xD.

Tengo un problema con el control MonthView en VB6. El tema es que al cargar el Form el mes que me aparece en el MonthView es el de Febrero y marca el dia 25 (aparece destacado con un color de fondo). En cambio si avanzo al mes actual (marzo) si me aparece con un circulo el dia actual.
 Mi pregunta es, o mis preguntas son:
   
Porque aparece marcado febrero aun en el MV?,  pensaba yo que podia ser la ultima fecha seleccionada, pero no, porque use hoy el programa y marqué otra fecha y al salir y cargar de nuevo siempre me marca ese dia.

Y la otra pregunta:

Hay alguna forma de hacer que aparezca destacado el dia actual en el MV?  , no me refiero al marcado con ciruclo, si no el "destacado".


Eso, espero alguien tenga alguna idea de lo que hablo aajja.

Saludos, y gracias de ante mano!!

PD: en el Form_Load() hago MonthView.Refresh, pero parece que no ayuda.
46  Programación / Programación Visual Basic / Re: Descompilo y al Compilar se produce un error en: 19 Febrero 2014, 01:50 am
En la barra donde agregas botones y demaces, con el boton derecho busca donde dice "componentes" o "referencias" (en el menu flotante proyecto igual salen) y ahi debes agregar los componentes que te pide, porque los esta cargando desde otra ruta y asi no los cargara nunca, por lo que debes agregarlos tu manualmente. Ahora no recuerdo ciomo se llaman las referencias exactamente, pero  googleando un poco no tendras problemas en encontrar lo que buscas.

Lo de enviar un exe modificado no creo que sea lo mejor, la idea es que aprenda.

Ahora, si estas decompilando un exe es probable que no puedas volver a agregar los componentes que te faltan. Aunque yo lo he hecho igual y me ha funcionado.
Saludos, si me equivoco favor corregir.
47  Programación / Programación Visual Basic / Re: error en las consultas SQL que llevan WHERE en: 8 Febrero 2014, 00:19 am
No soy bueno con las consultas, pero no deberias cerrar la base antes de volver a usarla? porque la abres dos veces,

Deberia quedar asi:
Código
  1. cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabasedatos & ";"
  2. cn.close
  3.  
48  Programación / Programación Visual Basic / Re: [Vb6][Access] Ayuda con consulta a BD. en: 7 Febrero 2014, 23:48 pm
A lo que me refiero con "que guarde ese valor" es que si encuentra el valor que ingrese en el inputbox en la columna EAN tome el valor que hay en la columna material. xD

EDITO:

Gracias por la consulta a ambos!, me funciono perfecto!!, no puedo creer que la solución haya sido solo un "OR" xD!!.

De igual manera ya se me había ocurrido una "solución", bastante engorrosa a mi gusto (y al de todos xD).
Obviamente me quedo con la de uds !!!..


Esta era mi solucion xD


Código
  1. MaterialSAP = InputBox("Ingrese Material SAP", "Ingreso Mermas")
  2.  
  3.     'mirec.Open "SELECT * FROM CllDB WHERE material = " & (MaterialSAP) & " ", mibd, adOpenKeyset, adLockOptimistic
  4.  
  5.     mirec.Open "SELECT * FROM CLLDB WHERE EAN = '" & (MaterialSAP) & "' ", mibd, adOpenKeyset, adLockOptimistic
  6.  
  7.     If mirec.RecordCount > 0 Then
  8.         des_material.ForeColor = &H8000&
  9.         des_material.Caption = mirec!des_material
  10.         'Label6.Caption = mirec!material
  11.         'MaterialSAP = Label6.Caption
  12.         MaterialSAP = mirec!material
  13.         mirec.Close
  14.      Else
  15.         If mirec.RecordCount = 0 Then
  16.              des_material.ForeColor = &HFF&
  17.              des_material.Caption = "MATERIAL NO ENCONTRADO"
  18.              mirec.Close
  19.      End If
  20.     End If
  21.  
  22. If des_material.Caption = "MATERIAL NO ENCONTRADO" Then
  23.  
  24.     mirec.Open "SELECT * FROM CllDB WHERE material = " & (MaterialSAP) & " ", mibd, adOpenKeyset, adLockOptimistic
  25.  
  26. If mirec.RecordCount > 0 Then
  27.         des_material.ForeColor = &H8000&
  28.         des_material.Caption = mirec!des_material
  29.         'Label6.Caption = mirec!material
  30.         mirec.Close
  31.         Else
  32.             If mirec.RecordCount = 0 Then
  33.                 des_material.ForeColor = &HFF&
  34.                 des_material.Caption = "MATERIAL NO ENCONTRADO"
  35.                 mirec.Close
  36.             End If
  37.         End If
  38.      End If
  39.  
49  Programación / Programación Visual Basic / Re: [Vb6][Access] Ayuda con consulta a BD. en: 7 Febrero 2014, 16:40 pm
ninguno de los valores en las columnas se repite, ni material,  ni des_material ni EAN, el tema es que necesito que si ingreso un valor que es igual en la columna EAN, tome el valor de la columna material y guarde ese valor.

probé la consulta pero me dice : "no se puede usar la conexión para realizar esta operación . esta cerrada o no es válida en este contexto"

Saludos!
50  Programación / Programación Visual Basic / [Vb6][Access] Ayuda con consulta a BD. en: 5 Febrero 2014, 22:51 pm
Hola a todos, saludos;
He venido a molestar de nuevo, pero es que en verdad no se me da lo de las consultas xD, es por eso que he venido a solicitar vuestra ayuda :D!!

Lo que quiero hacer es lo siguiente,

Tengo una base de datos en Access (*.mdb) en la que tengo 3 columnas donde esta la información que quiero rescatar, las columnas son las siguientes y se componen de los siguientes datos. (obviamente no los escribiré todos o me faltaría foro xD)

Código:
Material	Des_Material	                        EAN
30201	        PAN CORRIENTE KILO	                30201
1342            ABASTERO VACUNO NACI KG	                EAN_NOT_FOUND
1364            ABASTERO VACUNO CAT U GRANEL 1 KG	87168

La tabla se compone de esa forma, hay Materiales que son iguales a los EAN y otros no, y hay EAN en donde no hay datos pero se representan como "EAN_NOT_FOUND" (para no dejar el espacio en blanco)

Lo que hago yo en el programa es ingresar un numero (Material o EAN) en un InputBox y ahi me busca el material con la siguiente consulta

Código
  1. MaterialSAP = InputBox("Ingrese Material SAP", "Ingreso Mermas")
  2.  
  3.     mirec.Open "SELECT * FROM CllDB WHERE material = " & (MaterialSAP) & " ", mibd, adOpenKeyset, adLockOptimistic
  4.  
  5.     If mirec.RecordCount > 0 Then ' verifico si encontro registro
  6.         des_material.ForeColor = &H8000& ' cambio el color de la letra si lo encontro
  7.         des_material.Caption = mirec!des_material ' muestro la descripcion del material en el label des_material
  8.         mirec.Close
  9.      Else
  10.         If mirec.RecordCount = 0 Then ' si no encontro nada
  11.             des_material.ForeColor = &HFF& ' cambio el color a rojo
  12.             des_material.Caption = "MATERIAL NO ENCONTRADO" ' y muestro esto.
  13.             mirec.Close
  14.      End If
  15.     End If
  16.  

Si encontró el producto, me muestra el nombre del material (des_Material) y si no, muestra "MATERIAL NO ENCONTRADO".

Pero ahora si, lo que necesito es lo siguiente (es un poco complicado de explicar).

Por ejemplo, si yo ingreso el siguiente numero: 87168 que me muestre el material 1364 y la descripción del material, pero si ingreso un numero y no esta en la columna EAN que busque en la columna "Material" y muestre el valor encontrado, pero si no existe en ninguna de las dos columnas que muestre "material no encontrado" y que la variable (MaterialSAP) quede con el valor ingresado.

Se entiende? xD, en verdad tengo la idea en mi mente, pero no se como llevarla a consulta, ya que como dije mas arriba soy realmente malo para las consultas complicadas xD!!. Es por eso que he venido aca a pedir ayuda, a ver si a alguien se le ocurre algo :D!!..

Eso, espero algun alma bondadosa me pueda ayudar con este tema que me esta quebrado la cabeza xD!

Saludos, y gracias de ante mano!!
Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ... 24
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines