PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	12897 - DETECTAR ERROR ARCHIVO EXISTENTE AL GUARDAR UN ARCHIVO EXCEL
Autor:	Francisco González
Estoy haciendo una aplicación en VB6 para exportar los datos de un recordset a una hoja Excel. Mi problema me surge al guardar la hoja excel con el comando hoja.SaveAs ("Nombre Fichero.xls"). Si el archivo existe sale el aviso de excel para sobrescribir. Si le digo "SI" no hay problema, pero al indicar "NO" o "Cancelar" me produce error y me echa del programa y no se como detectar el erro para que continue el programa si elijo tales opciones. Gracias por vuestra colaboración.

Respuesta:

Luis Fernando Melo

Hola
Te mostraré un ejemplo sencillo de como capturar el error para que tu aplicación no aborte por un runtime:

sub CalcularNOmina()
On Error goto err_Calcular 'Usa una etiqueta para especificar a donde
' va el programa cuando se genere el error

......
aqui va todo el codigo que te pueda generar un error.
......

Exit_Calcular:
exit sub

Err_Calcular:
'Muestra el mensaje de error
msgbox err.description & " Error numero " & err.numero, vbokonly+vbcritical

resume Exit_Calcular ' Finaliza el procedimiento
End sub

Contestar

Pregunta:	12965 - FECHAS EN CRYSTAL REPORT
Autor:	Deus Correa
Hola a todos. Estoy tratando de enviar una fecha de inicio y una fecha de fin como parametros a un reporte en en Crystal Report 7, el cual esta accesando a una vista almacenada en SQL Server 7. Bueno lo que ocurre es que siempre me sale el error: "Unexpected type for parameter field" (Tipo inesperado para el campo parametro), pero yo estoy enviando el parametro con la propiedad ParamFields(x) y aun mas estoy usando la funcion DateTime del Crystal para que me formatee la fecha al tipo Datetime del SQLServer. Agradesco infinitamente me repondan lo mas pronto posible pues es urgente. Gracias

Respuesta:

Fulvia Vallarino

Hola mira yo lo hago mediante el selectionformula de esta manera

With CrystalReport1
'cadena de conexion
.Connect = "Provider=MSDASQL.1;Persist Security Info=False;Mode=Read|Write;Extended Properties=DRIVER={Sybase System 11};UID=sa;PWD=552127;DB=ARCANGEL;SRVR=SYBASE;"

'nombre del reporte
.ReportFileName = "c:\SIFAC HISMA\Sifac\Informes\desgloce de recibos_turno.rpt"

'formula Esot esta así porque yo tango la fecha dividida en dia mes año perotu lo puedes hacer toda junta

.SelectionFormula = "{RECIBOS_DE_PAGO.FECHA_RECIBO} >= Date (" & Trim(txtañoi.Text) & "," & Trim(txtmesi.Text) & "," & Trim(txtdiai.Text) & ") and {RECIBOS_DE_PAGO.FECHA_RECIBO} <= Date (" & Trim(txtañof.Text) & "," & Trim(txtmesf.Text) & "," & Trim(txtdiaf.Text) & ")"
.Destination = crptToPrinter
.Action = 1
End With

Contestar

Pregunta:	12983 - COMO ACTIVAR LAS API DE WINDOWS 2000
Autor:	mario tapia
hola amigos: tengo un problema y necesito ayuda. tengo un programa que quiero instalar en un laboratorio de computadores y me permite controlar el acceso de los usuarios a este laboratorio. funciona de la siguiente manera, los usuarios deben registrarse en un programa que esta en la recepcion del laboratorio y los datos se almacenan en una base de dato en access en la red. mi programa debe verificar en que el usuario que va a utilizar un computador del laboratorio este debidamente registrado y no permita el uso del computador a la persona. mi programa controla o restrinje al usuario para que no haga cosas indevidas, entonces mi programa deja el puntero del mouse que se mueva en una parte especifica, no permite que muevan la ventana del programa, que no ejecuten ctrl+alt+supr u otra combinacion de teclas, mantiene siempre visible la ventana de mi programa y apaga de forma automatica el computador. para esto utilizo api's de windows y lo he probado en windows'98 y funciona, pero en windows 2000 no funciona porque no toma los api's. mi pregunta es como puedo activar o utilizar las api's del windows 2000 para que funcione mi programa?. agradeceria su ayuda lo mas pronto posible.

Respuesta:

Gaba

Descaragate de esta direcion el visor deapi.
http://www.allapi.net/agnet/apiguide.php. Trae ejemplos ,explicaciones,relaciones entre las apis,ES MUY BUEO
Aqui te dejo un poco de codigo de como apagar el ordenador

TRABAJO CON WINDOWS 2000
'''PARA REINICIAR WINDOWS''''''''''

' Tipos definidos
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

' Las constantes
Private Const EWX_SHUTDOWN As Long = 1
Private Const EWX_FORCE As Long = 4
Private Const EWX_REBOOT = 2

' Las funciones del API
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

Public Sub ReinicializaEquipo()
Dim Msg As String

' Beep
Msg = "Este programa reiniciará Windows."
If MsgBox(Msg & vbCrLf & vbCrLf & "¿Seguro que quieres reiniciar Windows?", 4 + 16 + 256, "¡ ATENCIÓN !") = 6 Then
AdjustToken
ExitWindowsEx (EWX_SHUTDOWN Or EWX_FORCE Or EWX_REBOOT), &HFFFF
End If

End Sub
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
' Get the LUID for shutdown privilege.
LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid
tkp.PrivilegeCount = 1 ' One privilege to set
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED
' Enable the shutdown privilege in the access token of this
' process.
AdjustTokenPrivileges hdlTokenHandle, False, tkp, _
Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded

End Sub

Contestar

Pregunta:	13028 - BUSQUEDA CON LIKE EN SQL CON EL CONTROL DATA
Autor:	Thatcher
Hola a todos. Mi problema es el siguiente: Para mostrar los resultados de una búsqueda, en el RecordSource de un control Data tengo lo siguiente Data1.RecordSource = "select * from contactos where " & ComboBuscar & " like '" & Buscar & "'" El caso es que si en el select no pongo el en la variable 'Buscar' ,me muestra todos los datos perfectamente. Pero si se lo pongo no me muestra ningún dato.¿Por qué sucede esto?¿Qué puedo hacer? Gracias

Respuesta:	Emilio Reyna
Hola Amigo! Prueba esto Data1.RecordSource = "select * from contactos where " & ComboBuscar & " like '" & Buscar & "%'"

Contestar

Pregunta:	13030 - ERROR OLEAUT32.DLL
Autor:	José Vicente Luján Gimeno
Es un error en tiempo de ejecución, puesto que mientras estoy en diseño y ejecuto el programa con F5 todo va bién, pero si genero el EXE y entro en la opción en cuestión da el mensaje que el programa generó un error en OLEAUT32.DLL y se cerrará. ¿alguién sabe por qué?. GRACIAS.

Respuesta:	ilp ilp
DEPÚRALO CON CRTL + F5 PARA ENCONTRAR EL ERROR

Contestar

Pregunta:	13035 - CAMPOS EN EJECUCIóN EN CRYSTAL REPORT
Autor:	Pedro Bonilla Burgos
Necesito crear un informe en el que se puede seleccionar los campos a imprimir de una tabla desde visual basic 5. ¿Cómo puedo hacerlo? ¿Debo crear primero un informe con todos los campos? Muchas Gracias

Respuesta:

Roberto Avalos V.

Según te entiendo quieres seleccionar desde VB cuales campos quieres que se impriman en tu reporte...

Si es esto yo creo que si debes primero crear el reporte con todos los campos acomodados donde deben ir, y despues pasarle por parametros cuales quieres que se oculten y cuales no y hacer una formula que te oculte o no determinados campos...

Existe una forma en CR8 de crear reportes dinamicamente pero la verdad es que no lo he utilizado aún y no se que tan complicado sea...
pero si te sirve quiza lo puedas utilizar y si lo haces te encargo que me avises como te fue...

Saludos

Contestar

Pregunta:	13110 - ERROR EN ARCHIVO$(DLLSELFREGISTER.EXE)
Autor:	nestor Piottante
Hola, hace muy poco tiempo que estoy programando en VB5.0 ,puedo compilar mi aplicación pero a la hora de instalarla se produce el siguiente error: 'c:\windows\system\$(dllselfregister.ex)' no se pudo registrar porque no se encontró. Que puedo hacer?. Utilizo el office 2000 con su verción de Acces.Desde ya GRACIAS!!!

Respuesta:	Agustín Dávila Martín
Bien, el problema está en que en tu programa lo más seguro que hayas añadido un OCX de Fechas. La solución está en buscar el fichero "Setup.lst" que se hallará en la carpeta donde hallas empaquetado el programa, lo abres y buscas la palabra "dllselfRegisterEx" y la cambias por "dllselfRegister" y grabas el fichero, después prueba a instalar y ya verás

Contestar

Pregunta:	13131 - FUNCIÓN EVAL EN VB
Autor:	Albert Martorell Garcia
Hola a todos. Mi duda es la siguiente: existe alguna función, en Visual Basic 6.0, que tenga la misma utilidad que la función Eval existente en Visual Fox Pro o en Visual Basic para Access?

Respuesta:	A. David Garza Marin
Sí, la propia función Eval de Visual Basic 6.0. Para ello tienes que hacer referencia al objeto ScriptControl, con el cual no solo podrás evaluar funciones u operaciones aritméticas, sino, incluso, ejecutar todo un código de VBScript o JScript. SALUDOS

Contestar

Pregunta:	13150 - COMO DESPLEGAR EL PORCENTAJE DE AVANCE EN LA "PROGRESS BAR"
Autor:	Antonio Elgueta
He visto que algunas aplicaciones aparece el porcentaje de avance an la barra "progress bar"... quisiera ver si alguien conce esta forma de usar este objeto. Actualmente estoy trabajando en Visual Basic 6.

Respuesta:	SuNcO
En esta pagina esta la solucion a tu pregunta : http://www.zealsoftstudio.com/progbar/download.html Yo lo baje y si funciona muy bien

Contestar

Pregunta:	13155 - COMMAND CON IMAGENES
Autor:	alex bozt
Hola necesito saber como colocar una imagen (icono) en un CommandButoon, pero no como el tradicional que se te centra en el boton y sale el caption abajo del icono, sino que salga al lado izquierdo la imagen y el caption al lado de ella. Acepto cualquier respuesta que ayude a resolver este problema.

Respuesta:	Onorio Palavicini
Hola! Agrega a tu caja de herramientas el control Microsoft Forms x, esta colección de controles incluye un command button que permite hacer lo que deseas. Saludos.

Contestar

|< << 129 130 131 132 133 134 135 136 137 138 139 >> >|