Mensajes

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.

Que buen aporte! (como siempre ), 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!!

lo resolví, y dejó la "solución"  acá por si a alguien más le. pasa.

crean una función

Código (vb) [Seleccionar] Expandir

Private Function DiaActual ()
MonthView1.Value = Date
End Function


y después lo cargan en form load

Puede ser con un DatePicker?, es un control igual. No tengo idea como funciona, igual puedes buscar en la web. Saludos

[Porque aparece marcado febrero aun en el MV?,]

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.

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.

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 (vb) [Seleccionar] Expandir


cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabasedatos & ";"
cn.close


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 (vb) [Seleccionar] Expandir


MaterialSAP = InputBox("Ingrese Material SAP", "Ingreso Mermas")
 
    'mirec.Open "SELECT * FROM CllDB WHERE material = " & (MaterialSAP) & " ", mibd, adOpenKeyset, adLockOptimistic

    mirec.Open "SELECT * FROM CLLDB WHERE EAN = '" & (MaterialSAP) & "' ", mibd, adOpenKeyset, adLockOptimistic

    If mirec.RecordCount > 0 Then
        des_material.ForeColor = &H8000&
        des_material.Caption = mirec!des_material
        'Label6.Caption = mirec!material
        'MaterialSAP = Label6.Caption
        MaterialSAP = mirec!material
        mirec.Close
     Else
        If mirec.RecordCount = 0 Then
             des_material.ForeColor = &HFF&
             des_material.Caption = "MATERIAL NO ENCONTRADO"
             mirec.Close
     End If
    End If

If des_material.Caption = "MATERIAL NO ENCONTRADO" Then
   
    mirec.Open "SELECT * FROM CllDB WHERE material = " & (MaterialSAP) & " ", mibd, adOpenKeyset, adLockOptimistic
   
If mirec.RecordCount > 0 Then
        des_material.ForeColor = &H8000&
        des_material.Caption = mirec!des_material
        'Label6.Caption = mirec!material
        mirec.Close
        Else
            If mirec.RecordCount = 0 Then
                des_material.ForeColor = &HFF&
                des_material.Caption = "MATERIAL NO ENCONTRADO"
                mirec.Close
            End If
        End If
     End If


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!

[87168]

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

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 [Seleccionar] Expandir


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 (vb) [Seleccionar] Expandir


MaterialSAP = InputBox("Ingrese Material SAP", "Ingreso Mermas")
 
    mirec.Open "SELECT * FROM CllDB WHERE material = " & (MaterialSAP) & " ", mibd, adOpenKeyset, adLockOptimistic
   
    If mirec.RecordCount > 0 Then ' verifico si encontro registro
        des_material.ForeColor = &H8000& ' cambio el color de la letra si lo encontro
        des_material.Caption = mirec!des_material ' muestro la descripcion del material en el label des_material
        mirec.Close
     Else
        If mirec.RecordCount = 0 Then ' si no encontro nada
            des_material.ForeColor = &HFF& ' cambio el color a rojo
            des_material.Caption = "MATERIAL NO ENCONTRADO" ' y muestro esto.
            mirec.Close
     End If
    End If


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 !!..

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

Saludos, y gracias de ante mano!!