PREGUNTAS CONTESTADAS - Crystal Report

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	22481 - USAR API PARA MANEJAR PUERTO SERIE
Autor:	Serafín Orillán Chaparro
Hola. Necesito enviar a través del puerto serie tramas de datos orientadas al byte, y para ello necesito manejar el puerto serie al nivel más bajo posible. El control MSComm de VB no me sirve porque lo que transmite son cadenas de caracteres en Unicode, en donde cada carácter son 2 bytes. Si alguien conoce de alguna API de windows que manipule el puerto serie a bajo nivel y me puede decir cómo manejarla, le estaría agradecido. Gracias de antemano

Respuesta:	Fredy Ramirez
Hola, Con el control MSComm tambien puedes enviar datos en forma de matrices de bytes. sólo debes colocar la propiedad del control asi: control.InputMode = comInputModeBinary Luego declaras una variable como matriz de bytes Dim Variable ( ) as Byte La llenas y luego la envias con el metodo output Espero que esto te sirva de algo

Contestar

Pregunta:	22487 - LEER CON VB, EL DESTINO DE LOS ACCESOS DIRECTOS .LNK
Autor:	Nashuald Strignard
¿Cómo puedo leer un archivo de extensión lnk, de tal manera de poder saber a qué archivo realiza su función?

Respuesta:	Dark_MAC
Eso es bastante facil, solo empiezas a leer tu archivo LNK como si fuera un archivo de texto, pero lo lees a partir del ultimo caracter guardado hacia atras, hasta que encuentres un espacio, ya que al final del archivo es donde guarda la ruta completa de ejecucion.

Contestar

Pregunta:	22502 - BORRAR UNA CLAVE DEL REGISTRO
Autor:	Marceliano Crespo Bordonaba
Hola, Me gustaría poder usar la función de API RegDeleteKey() para poder borrar una clave desde Visual basic, distinta de las permitidas por el comando DeleteSetting. Muchas gracias.

Respuesta:	SuNcO
No especificas si por API solamente o tambien por OCX. Entra a www.chakasteam.n3.net/winsock.html para que bajes un ejemplo de como editar el registro pero desde un OCX (agregado al ejemplo obviamente)

Contestar

Pregunta:	22507 - ¿COMO IMPLEMENTAR UN TIMER EN EXCEL 97, MEDIANTE UNA MACRO.?
Autor:	Claudio Reinoso Fuentes
Necesito insertar un "timer" (igual que en visual basic) en excel 97. Esto con el fin de calcular unos valores según el tiempo que se indique(20 seg , 30 seg,etc) y para actualizar los datos de la planilla de cálculo. De antemano muchas gracias

Respuesta:	Luis Miguel Mora.
Saludos, creo que este es el Codigo. Sub Form_Load() On Error Resume Next 'ignorar errores Me.TimerInterval = 100 ' Intervalo del Timer (1000 = 1 seg.) End Sub Sub Form_Timer() 'nota: esta linea se ejecuta cada un(1) seg. por 'tanto aqui debe ir el cod para actualizar Para cualquier cosa me escribes...

Contestar

Pregunta:	22510 - CERRAR SESIóN DE NT
Autor:	Eduardo
Hola a Todos, Mi consulta es la siguiente: Cómo puedo cerrar una sesión de windows nt, al terminar de ejecutar una aplicación desarrollada en Visual Basic. Desde ya, muchas gracias

Respuesta:

Yazooo

'Con este peaso de codigo puedes cerrar o rearrancar windowsNT

Private Type LUID
UsedPart As Long
IgnoredForNowHigh32BitPart As Long
End Type

Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
TheLuid As LUID
Attributes As Long
End Type

Private Const EWX_SHUTDOWN As Long = 1
Private Const EWX_FORCE As Long = 4
Private Const EWX_REBOOT = 2

Private Declare Function ExitWindowsEx Lib "user32" (ByVal _
dwOptions As Long, ByVal dwReserved As Long) As Long

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal _
ProcessHandle As Long, _
ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" _
Alias "LookupPrivilegeValueA" _
(ByVal lpSystemName As String, ByVal lpName As String, lpLuid _
As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" _
(ByVal TokenHandle As Long, _
ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES _
, ByVal BufferLength As Long, _
PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Sub AdjustToken()
Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2
Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long

hdlProcessHandle = GetCurrentProcess()
OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or _
TOKEN_QUERY), hdlTokenHandle

LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid

tkp.PrivilegeCount = 1 ' One privilege to set
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED

AdjustTokenPrivileges hdlTokenHandle, False, _
tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded

End Sub

Public Sub ShutDown()
AdjustToken
ExitWindowsEx (EWX_SHUTDOWN), &HFFFF
End Sub

Public Sub ReStart()
AdjustToken
ExitWindowsEx (EWX_FORCE), &HFFFF

End Sub
Public Sub ReBooT()
AdjustToken
ExitWindowsEx (EWX_REBOOT), &HFFFF
End Sub

Contestar

Pregunta:	22530 - ERROR 713 EN TIEMPO DE EJECUCIóN
Autor:	Bernardo Angulo
Hola, tengo un gran problema, resulta que hice una aplicación, y ya que la instalo y la corro, me aparece un error como el siguiente: Error 713 en tiempo de ejecución: Clase no registrada. Buscando objeto con CLSID:{00000010-0000-0010-8000-00AA006D2EA4} Este es un error muy parecido al que indican en la pregunta no. 3068, pero en este caso no me indicaan el nombre del archivo que no está registrado, agradecería michísimo si me pudieran ayudar. ...Ottra cosa, es que en algunas computadoras no me marca nada y funciona perfectamente la aplicación. Gracias nuevamente.

Respuesta:	Marcos Rodriguez
hola bernardo. seguro que hay alguna dll que no está registrada. has utilizado alguna llamada al crystal report? has probado a volver a compilar el programa? mira que aplicaciones tienen instaladas los equipos en los que te corre bien y mira cuales tienes en los que no te corre, puede ser una solución. Hasta pronto

Respuesta:	Mario Campos
Es muy posible que al momento de la instalación no se pueda registrar esa dll o el control ocx si es que los tiene, lo que podés hacer es tratar de averiguar cuál es al dll y registrarla "manualmente"

Contestar

Pregunta:	22600 - EJECUTAR ACCESO DIRECTO
Autor:	Norberto Soler
Como se hace para ejecutar desde VB un acceso directo

Respuesta:

Dan Jared Gonzalez Simon

Para ejecutar accesos directos .lnk puedes utilizar el star.

Private Sub Ejecutar (Archivo as String)
dim a as long
a = Shell("Start" & Archivo)
End Sub

Nota. El archivo debe estar en formato corto ya sabes (C:\Archiv~1\mi.lnk y no C:\Archivos de Programas\mi.lnk) y lo bueno del Star es que puedes ejecutar cualquier otro tipo de archivos, ya que el Star se encarga de buscar el programa encargado de abrirlo.

Contestar

Pregunta:	22664 - COMO CAPTURAR DATOS DE UNA CONEXION ACTIVA
Autor:	Gustavo Fierro
Hola amigos Quisiera ver si alguno me pudiera tender una mano, estoy queriendo ver los datos que intercambian un puerto de mi maquina con otro puerto de una maquina x. El tema es que he tratado usando el winsock con VB5, pero claro el problema se presenta cuando lo tengo que abrir, ya que el puerto que yo quiero escuchar ya se encuentra abierto, ( es la conexion que mencione en un principio ). El tema es saber como puedo capturar los datos que entran y salen de un puerto especifico de mi maquina que ya se encuentra abierto. Para mas datos, estoy trabajando con VB5 Desde ya agradezco su tiempo

Respuesta:

SuNcO

Esta pregunta es algo vieja aqui y tambien algo dificil. La solucion es Sublcasificar el Winsock que es de las cosas mas dificiles de hacer, especialmente con VB

Checate esta pagina http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=49879&lngWId=1

Y te repito.. es de las cosas mas dificiles de hacer en VB.. de hecho yo no trato de entender el codigo, solo lo utilizo y algunos cambios que le pude hacer

Contestar

Pregunta:	22705 - MOVENEXT, PROBLEMA AL MOVER AL ULTIMO REGISTRO
Autor:	Oscar Fernandez
Entorno NT 4(Service pack6) V isual Basic 6(Version empresarial) En un programa con 2 control data, enlazados a 2 tablas(dynaset) de una base de datos, fusiono datos (relacionados por un campo).Problema en el siguiente bucle: While not data1.recordset.eof \' Suma del valor del campo importe sum=data1.recordset.fields(\"CAMPO\").value suma=sum + suma data1.recordset.movenext wend El Error aparece al moverse al siguiente registro, cuando ha llegado al ultimo registro ERROR:\"La propiedad text es de solo lectura\" Espero me podais dar alguna pista, gracias por tu interes. Un saludo.

Respuesta:	Agustín Dávila
Porque no pruebas de hacerlo de esta forma, para ver si es por el Movenext: do \' Suma del valor del campo importe sum=data1.recordset.fields(\"CAMPO\").value suma=sum + suma data1.recordset.movenext if data1.recordset.EOF=true then exit do loop

Contestar

Pregunta:	22711 - SABER EL TIEMPO DE MáQUINAS CONECTADAS A INTERNET
Autor:	Williams Laverde
Hola. Quisiera saber como se puede controlar el tiempo de uso de Internet explorer para un ciber cafe

Respuesta:	Ruben Robles
debes tomar la hora del servidor al cual se conectan y luego cuando se desconectan esto se hace con el winsock marcas cuando se establece la coneccion con la ip y luego la terminas cuando se corta la coneccion conla ip.

Contestar

|< << 182 183 184 185 186 187 188 189 190 191 192 >> >|