PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  13529 - CORREO... CON MAPI
Autor:  Manuel Castro Vera
El problema es el sgt: Tengo un modulo que manda correos desde una base de datos. Este modulo al crear los correos muy bien, tanto asi que los genera en la bandeja de salida del MS Outlook, pero aparte de de poner los datos en los respectivos campo: a quien, titulo, cuerpo, atachado..etc Al ver el mensaje de correo creado cuando trato de ver el correo hacia quien va dirigido me sale un campo de TIPO DE CORREO con el correo de destinatario. El problema es que yo en ningun momento pongo este dato en ese campo, ni siquiera existe este campo en la MAPI. Cuando hice un correo desde el MS Outlook este campo tenia el valor de SMTP, el cual si enviava este correo.
Este modulo me funciona bien en las plataformas W98 con MS Outlook 2000; W2000 con Outlook express... pero en el W2000 con MS Outlook con Exchange me sale este problema.

Quisiera saber si hay que configurar algo para que este problema no suceda.
  Respuesta:  ARTURO LORCA
AQUI ESTA LA SOLUCION:
Function digito(CadenA As String) As Boolean
On Error GoTo BSS_ErrorHandler

If CadenA <> Empty And Val(CadenA) <> 0 Then

For I = 1 To Len(CadenA)
If (Mid(CadenA, I, 1)) = "-" Or (Mid(CadenA, I, 1)) = "." Then
Else
CadenaLimpiA = CadenaLimpiA + Mid(CadenA, I, 1)
End If
Next

CadenA = CadenaLimpiA
DiG = (Mid(CadenaLimpiA, (Len(CadenaLimpiA)), 1))
If Asc(DiG) <= 47 Or Asc(DiG) >= 58 Then
If DiG = "K" Or DiG = "k" Then
DiG = "10"
Else
DiG = "12"
End If
End If

CadenaLimpiA = Empty

For I = 1 To (Len(CadenA) - 1)
CadenaLimpiA = CadenaLimpiA + (Mid(CadenA, I, 1))
Next

CadenA = Empty
I = Empty
I = (Len(CadenaLimpiA))
Z = 2
While I <> 0
If Z <> 8 Then
CadenA = Val(CadenA) + (Val((Mid(CadenaLimpiA, I, 1))) * Z)
Z = Z + 1
Else
Z = 2
CadenA = Val(CadenA) + (Val((Mid(CadenaLimpiA, I, 1))) * Z)
Z = Z + 1
End If
I = I - 1
Wend

Z = 11 - (Val(CadenA) - Int((Val(CadenA)) / 11) * 11)

XXXX = Asc(DiG)
If DiG = 0 And Z = 11 Then
digito = True
Else
If Z = DiG Then
digito = True
Else
digito = False
End If
End If
Else
digito = False
End If
CadenA = Empty
CadenaLimpiA = Empty

Exit Function

BSS_ErrorHandler:

If Err.Number > 0 Then ProjectErrorHandler "(Form) frmprofesor::Function digito"
Resume Next
End Function

    Pregunta:  13558 - ERROR MéTODO ACTION CON CRYSTAL
Autor:  Francisco González
Hola:
Estoy haciendo una aplicación en VB6.0 y utilizo Crystal 5.0 par los informes.
Pero en algunos informes (no en todos) detecto este error:
"Error en el método 'Action' del objeto 'CrystalCtrl'.

No se cual es la causa de este error, ni como solucionarlo. He cambiado este método por el de 'PrintReport' pero me produce el error en ese nuevo método.
Además, el Crystal se me queda abierto y no se como cerrar la aplicación crystal.
Gracias por vuestra colaboración.
  Respuesta:  Mariano García Mattío
El método Action es el que inicia el componente de crystal report y cualquier error que se produzca con el reporte se indicará como un error producido en el método citado, en otras palabras el error puede estar en una formula u otro componente, lo conveniente es abrir el reporte con el editor y depurarlo alli, si suplantas alguna formula en tiempo de ejecución deberás probarla con el editor.

    Pregunta:  13564 - ABORTAR IMPRESION DE TODOS DOCUMENTOS EN COLA DE IMPRESION
Autor:  jorge gallego
Me gustaria conocer cómo se puede abortar la impresion de todos documentos que existan actualmente en cola de impresión y no sólo del último documento que se ha enviado. Se que desde la impresión actual se pueden purgar los documentos, pero desde código no sé cómo hacerlo.

Gracias majos y majas
  Respuesta:  JA IME
Esta pregunta esta en boga.
Con la funcion prnjobs puede abortar todos los documentos que esten en la cola de impresion, menos el que esta en proceso.
Si no recuerdo es
prnjobs -x -p <nombre de la impresorsa>
No recuerdo pero es mas o menos: cscript://H cscripr/S
antes debes de correr el script.
Todo esto esta en microsoft.
o escribes prnjobs el google y aparece una lista completa.

Aghora si me colaboras:
Yo no he podido por programa eliminar o reseteart o abortar la impresion que esta en curso
  Respuesta:  Daniel Guevara
Bueno no se si te sirva de mucho o ya lo sepas, yo utilizo en algunas rutinas el killdoc del objeto print que me elimina el documento de la cola de impresion

    Pregunta:  13567 - ACCESO A LA COLA DE IMPRESIóN DESDE VB6.
Autor:  Diego Cabrerizo
Saludos a todos los de la lista.

Mi pregunta es la siguiente. ¿Como puedo saber si un documento a sido enviado a la cola de impresión de Windows desde Visual Basic 6?.

Gracias y un saludo.
  Respuesta:  Luis Ruiz
Utiliza el objeto Printer de la coleccion Printers. Con esto puedes monitorizar la cola de impresión. Tengo un programita que hace esto (no lo he hecho yo, lo saque de algun sitio de internet).

Saludos

    Pregunta:  13568 - TYPE MISSMACH EN PACKING
Autor:  Pedro Descalzo
En algunos puestos de trabajo al desempaquetar mi proyecto todo anda
muy bien.

En otros me da el error Type missmach y me cancela la instalación.

Salgo de la dificultad instalando manualmente mediante el regsvr32 las
DDL y OCX que van en el paquete.

No me doy cuenta cuál es el problema.

Gracias.-
  Respuesta:  julio peraza noda
cambia la configuracion regional:
donde dd/mm/aa ----pon dd/mm/aaaa
donde h/mm/ss/tt ---- pon hh/mm/ss

    Pregunta:  13589 - IMAGENES EN INFORMES
Autor:  Serafin Salazar
Hola, me gustaria saber si existe alguna forma de mostrar imagenes de una base de datos access en un DataReport desde Visual Basic.

Gracias..........
  Respuesta:  Sergio Amescua
Hay un Programa especial para realizar informes, No se si ya lo conoscas o mal interprete tu pregunta, Es parecido a microsoft Word, Ahi tu diseñas el informe y puede ser enviado a pantalla o Impresora, Le das prescentación En el Menu Insertar, (Como Word) Te da la Opcion Insertar Imagen.
Espero haberte sido de Utilidad.

    Pregunta:  13595 - COMO MANEJAR INFORMACION EN RED
Autor:  Genaro Morataya
Tengo mi primera aplicacion con VB5. Cuando corre en W95,W98,WME, no hay problema. Cuando corre en una red NT, las cosas se complican. Yo abro una base asi: Set MydbResulta=workspaces(0).opendatabase("resultados",true), la lleno de la informacion que pide un usuario y la presento con Crystal. Cuando Dos usuarios al mismo tiempo piden su informacion particular, el resultado es una mezcla de la informacion de ambos. Podria alguien ayudarme?, estoy por reventar pues no encuentro una solucion efectiva. Gracias de antemano!
  Respuesta:  caribbeansoft
Bueno no se que es lo que te ocurre en realidad, pero si tu quieres que tu sistema trabaje en modo multiusuario, es decir que más de un usuario pueda estar conectado a la base de datos entonces utiliza conexiones ADO contra una base de datos en una carpeta compartida en la red o alojada en un servidor SQL-Server...Dime en realidad cual es el problema que tienes, Solo un usuario puede conectarse a la vez? o Es que al estar más de uno hay mezcla de datos?

    Pregunta:  13596 - PLC Y VISUAL BASIC
Autor:  Cristian Rojas I
Hola a todos...
alguien sabe trabajar con visual basic y plc (Control Logico programable) Sistema de Automatizacion para empresas...
la idea es capturar datos de un plc (Allen Brandley) desde visual basic....
Gracias a todos......
  Respuesta:  Ana María Pérez Soto
No he trabajado con los de Allen Brandley pero si con lo de OMRON.

Necesitas la versión profesional de Visual basic en la que viene el control mscomm, que es el de comunicación por el puerto seríe. Además con los autómatas te tiene que venir el protocolo de comunicación entre el PLC y el PC, en OMRON es a través de Hostlink.

No se si te habre sido de gran ayuda.

Suerte

    Pregunta:  13599 - DESHABILITAR LAS TECLAS TAB Y LA DE INICO
Autor:  williams flores heredia
Hola mi pregunta es como se deshabilitan las teclas tab y la de inicio gracias por leer mi pregunta.

saludos
  Respuesta:  Jose A.
Hola williams.
La forma que sé de deshabilitar la tecla de inicio (la tecla "Tab" no he conseguido que me responda, lo siento), es capturándola cuando se ha pulsado, me explico:
para este ejemplo, has de poner la Propiedad "KEYPREVIEW" del Formulario a True, esto hace que cualquier pulsación sea controlada por el Formulario antes que por ningún control que éste contenga.
Una vez establecida la propiedad anterior, ejecuta el siguiente código:

Select Case KeyCode
Case vbKeyHome
MsgBox "Ha pulsado la telca Inicio"
End Select

Bien, si en vez de escribir un mensaje para el usuario como hago aquí, escribes lo siguiente:

KeyCode = 0

el buffer de teclado se quedará vacío como si no hubieras pulsado nada,
esto significa que siempre que se pulse la Tecla "Inicio" en ese formulario no ocurrirá nada, está desactivada.
Siento no haber podido conseguir el mismo efecto con la tecla Tab, pero seguiré investigando.
Espero haberte ayudado, un Saludo.

    Pregunta:  13622 - CAMBIAR EL PASSWORD DE BD ACCESS
Autor:  Cesar Vallejo
Como puedo cambiar el password de Access97 desde Visual Basic
  Respuesta:  Luis Fernando Melo
Dim wrk As Workspace
Dim usr As User

'Debes conectar el WRK a tu archivo de grupo .mdw con credenciales
'que te permitan realizar el cambio
'crea el usuario
set usr = wrk.Users("nombre de usuario")

usr.NewPassword "Contraseña actual", "Nueva contraseña"
.....
.....
...

|<  <<  133 134 135 136 137 138 139 140 141 142 143  >>  >|