PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  15725 - VB 6.0 ERROR DE COMPILACIóN
Autor:  Alfredo alexander Charte Blanco
Cuando compilo el programa me arroja el siguiente error "El programa ha efectuado un error en el modulo Oleaut32.dll"...
Pero cuando habro visual Basic 6.0 y lo corro no me genera ningun error, solo lo efectua cuando lo corro en .EXE

De ante mano muchas gracias quien me pueda ayudar
  Respuesta:  ilp ilp
ejecuta con crtl + f5 y te saldrán los mismos errores q con el exe del cliente y depúralo

    Pregunta:  15729 - COMO PUEDO SABER SI EL WORD ESTA ABIERTO
Autor:  fernando ingrassia
MUCHAS GRACIAS POR LEER MI PREGUNTA ESTOY TRATANDO DE VER COMO PUEDO SABER DESDE VISUAL SI EL WORD ESTA ABIERTO O NO DESDE YA MUCHAS GRACIAS.
  Respuesta:  Alexis Aravena Silva
Hola

Puedes hacerlo de esta forma, espero que te sirva:

Private Sub Command1_Click()
On Error GoTo Error_Word

If Tasks.Exists("Microsoft Word") Then
MsgBox "Actualmente en uso"
End If

Error_Word:
MsgBox "No esta en uso"
Exit Sub
End Sub

La etiqueta de control de error "Error_Word" que te puse es por que si no esta word abierto se produce un error, y de esa forma puedes deducir que no esta bierto.

Un cordial saludo, y cualquier duda ya tienes mi correo.

    Pregunta:  15732 - SEAGATE CRYSTAL REPORTS
Autor:  Flover Sánchez Ortega
Tengo un repote con subreportes en Seagate Crystal Reports 7.0
Utilizo un canal ODBC para la conectividad (En SCR los subreportes no heredan la conexión, es decir cada uno utiliza el ODBC a SQL Server 2000/70).

En la implementación, aunque configuro bien el canal ODBC en el cliente; no me encuentra el servidor ("Can not find SQL Server").
Mi solución: Desde código le envío la cadena de conexión parametrizada antes de abrir el reporte.
¡Necesito una que no involucre el código, sólo el reporte y el ODBC, y yo sólo llame al *.rpt!

El problema que no he podido resolver (Ni por SCR Automation ActiveX) es:
¿Si un reporte maestro recibe una cadena de conexión desde su llamado, cómo hace para heredar esta cadena a los subreportes?
  Respuesta:  Roberto Avalos V.
Mira te envio un fragmento del codigo que yo utilizo para abrir el Reporte con ODBC, espero te sea util....

Nota que yo utilizo CR8 y visualizo el reporte en un CRViewer...

Este es un fragmento del codigo completo verás que hay variables declaradas que no se utilizan y es que pertenecen al fragmento del codigo que no te estoy enviando.

Espero que este código te sea de utilidad y me mandes tus comentarios.

Private Sub AbreReporte()
Dim crpTables As CRAXDDT.DatabaseTables
Dim crpTable As CRAXDDT.DatabaseTable
Dim crpParams As CRAXDDT.ParameterFieldDefinitions
Dim crpParam As CRAXDDT.ParameterFieldDefinition
Dim crpSections As CRAXDDT.Sections
Dim crpSection As CRAXDDT.Section
Dim crpReportObject As Object
Dim crpSubReportObject As CRAXDDT.SubreportObject
Dim crpSubReport As CRAXDDT.Report
Dim i As Integer
Dim iPosParam As Integer
Dim iPosParam2 As Integer
Dim rsAux As New ADODB.Recordset

On Error GoTo ManError
Screen.MousePointer = vbHourglass
Set mRPT = CreateObject("CrystalRuntime.Application")
Set mReport = mRPT.OpenReport(App.Path & "\Reportes\" & mpReportFileName)

' Especificar a que DB se va a conectar cada tabla del reporte
Set crpTables = mReport.Database.Tables

For i = 1 To crpTables.Count
Set crpTable = crpTables.Item(i)

crpTable.SetLogOnInfo "NOMBRE ODBC", , "Usuario", "PWD"
Next

' Verificar en todos los subreportes
Set crpSections = mReport.Sections

For Each crpSection In crpSections
For Each crpReportObject In crpSection.ReportObjects
If crpReportObject.Kind = crSubreportObject Then
Set crpSubReportObject = crpReportObject
Set crpSubReport = c

    Pregunta:  15747 - CONTROL MULTIPAGE
Autor:  claudia Lumbreras
Cuando inserto el control multipage en la forma pone por default 2 paginas, como hago para agregar otras????? en VB4

saludos y gracias
  Respuesta:  Iván Hdez. Sánchez
Yo tenía hoy mismo esa duda :D es simple:

Multipage1.pages.Add "Nombre con el que identificas la pagina", "Caption de la pagina (lo q muestra)", Índice

De camino aprovecho y propongo mi duda, una vez insertadas las páginas ¿cómo puedo saber la página activa en tiempo de ejecución? Gracias anticipadas.

Espero haber ayudado en alguito ;-P
  Respuesta:  Boule Najm
SALUDOS, DEBES DE SELECCIONAR EL EL MENU DE PROJECT LA OPCION DE A~NADIR UNA NUEVA FORMA (VENTANA), LA A~NADES Y LA ACTIVAS EN PROPIEDADES COMO PARENT DE MDI, ES DECIR ESTA SERA LA PAGINA PATERNA, LUEGO A~NADES OTRA PAGINA COMO A~NADISTES LA ANTERIOR, CUANDO LA HAYAS A~NADIDO FIJATE EN PROPIEDADES DE ESA FORMA (VENTANA) Y SELECCIONALA COMO CHILD EN MDI, DE ESTA MANERA LA VENTANA SE ABRIRA DENTRO DE LA VENTANA QUE SELECCIONASTES COMO PARENT

    Pregunta:  15764 - RDO NO CREA EJECUTABLE, PERMISO DENEGADO
Autor:  Juan Carlos Hernandez Peñaloza
Primero:
Estoy Desarrollando una apicacion en VB6 donde hago una conexion con RDO a una BD de SQL 6.5, en un principio se conectaba muy bien y ejecutaba un procedimiento almacenado donde le enviaba parametros desde VB6 a SQL. Al hacerlo ejecutable me enviaba una mensaje error que decia PERMISO DENEGADO en la linea:
set en = RdoEngine.RdoEnvironments(0)
y no me deja hacerlo ejecutable.

Gracias
  Respuesta:  Ricardo Sierra
Quitale esa linea... el crear un Environment es opcional. Por default siempre crea uno.

    Pregunta:  15784 - COMO CAMBIAR CONFIGURACION DE FECHA DE WINDOWS
Autor:  Miguel Peredo
Alguien sabe como cambiar la configuración de fecha de windows desde un programa de Visual Basic???

Por ejemplo, windows tiene este formato dd/mm/aa y me gustaria poder cambiarlo a dd-mm-aaaa o viseversa, alguien sabe? necesito ayuda!!!

adios y gracias
  Respuesta:  Agustín Dávila Martín
Utilizando la función format. De esta manera:

Dim a as string
a=format("12/8/01","dd/mm/yyyy")

y la a te devuelve "12/08/2001"

* Y por supuesto hay más combinaciones, si te miras la ayuda en línea de la función Format las verás.

    Pregunta:  15798 - IMPRIMIR DETERMINADO NUMERO DE LINEAS CON EL REPORT FORM
Autor:  Ice Man
HOLA QUE TAL!!!

NECESITO SABER UNA FORMA PRACTICA DE ENVIAR A IMPRIMIR CON UN REPORT FORM DE VISUAL 6 UN NUMERO DE LINEAS ESPECIFICAS....PORQUE SI YO ENVIO UN REPORTE A VECES ENTRE PAGINA Y PAGINA NO IMPRIME UNA O DOS LINEAS O A VECES IMPRIME LAS LINEAS CORTADAS

LA VERDAD YA INTENTE SUBIRLE EL MARGEN PERO ESA NO ES UNA SOLUCION CONCRETA . SI ME PUEDEN AYUDAR SE LO AGRADECERIA MUCHISIMO......ME URGE MUCHO

GRACIAS DE ANTEMANO
  Respuesta:  Yavir Robles
Hola, lo que puedes hacer si es que te quieres evitar las secuencias de escape de la impresora es que tu controles el número de registros del reporte por medio del Recorset Intrínseco que se almacena en la Conexión siempre empieza con rs y el nombre del Comando con el que tienes asociado el reporte. Supongamos que tu reporte se llama HorasTrabajadas y que el comando con el que esta asociado se llama ComandoHoras:

'Abres un Recordset donde la consulta SQL tenga unn límite

ConsultaSQL="SELECT * FROM HORAS_TRABAJADAS WHERE id_empleado>=1 AND id_empleado<=50"
'Con esto aseguras que no regrese mas de 50 registros

With NuevoRecodset
.ActiveConnection = Environment1.Connection1 'Nombre de la conexion
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.CursorType = adOpenDynamic
.Open ConsultaSQL
End With

'Despues solo le asignas éste recodset al del reporte

SET Environment1.rsComandoHoras =NuevoRecordset.Datasource
HorasTrabajadas.Refresh
HorasTrabajadas.print

' Si metes esto en un cíclo donde vayas cambiando el rango de la consulta podrás controlar el número de los registros, si tienes algúna duda escribeme y te mando un ejemplo más detallado

    Pregunta:  15830 - CONECTAR A UNA UNIDAD DE RED (MAPEAR) DESDE VB
Autor:  David Lizana
Me gustaria saber si puedo Conectar una Unidad de Red ( Explorador de Windows), es decir Mapear, para que en mi Explorador aparezca por ejemplo G:\Servidor....... , logicamente todo esto desde Codigo de Visual Basic
  Respuesta:  Enrique Lopez
Hola David:
Se hace con una llamada a una API que es:

Public Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long
donde lpszNetPath es la ruta a la unidad de red "\\servidor\...."
lpszPassword = Contraseña
lpszLocalName ="G:"

Espero que te sirva

    Pregunta:  15845 - INSTALAR PROGRAMA CREADO SE INICIE AUTOMATICAMENTE
Autor:  Alvaro Cerpa Bedregal
he creado un programa y quiero que despues de haber sido instalado. Cuando inicie la maquina se ejecute automaticamente.

Se que puedo copiar el archivo ejecutable a la carpeta de inicio de windows. pero quiero que esto se copie en el momento de la instalacion o utilizar otra manera que no sea con la carpeta de incio de windows.

Gracias
  Respuesta:  SuNcO
Tengo respuesta a las 2 maneras :

1 - Pueds editar el setup.ini y poner ke se grabe en el directorio de inicio de windows

2 - Puedes meterte al registro de Windows y agregar una linea ke diga ke se ejecute cada vez ke prendas el Windows

Para la respuesta 2 tengo un OCX, si gustas te lo envio junto con un ejemplo

    Pregunta:  15852 - COMBO MULTIPLE
Autor:  Ruben Dario Baena
Como hacer que un Combo Box muestre varias columnas y pueda devolver un valor oculto, sin necesidad de concatenar cadenas y manejar vectores? Un combo por el estilo de los de Access o VisualFox? Gracias.
  Respuesta:  Luis Ruiz
Puedes utilizar el mismo control que utiliza Access. Simplemente agregalo a los componentes. El control es Microsoft Forms 2.0 Object Library (FM20.DLL).

Saludos

|<  <<  144 145 146 147 148 149 150 151 152 153 154  >>  >|