PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	51100 - PROBLEMA AL CAMBIAR DE SERVIDOR CON LOS REPORTES EN CRYSTAL
Autor:	Manuel Barba
Como puedo hacer para tener reportes en mis aplicaciones de visual basic y bases de datos en sql server... he usado crystal reports 8 y 9, pero el problema principal es cuando instalo mi aplicacion en un servidor con otro nombre o una base de datos con nombre diferente, tengo que entrar a c/u de los reportes y cambiarle el nombre del servidor o el de base de datos, y me ha pasado muchas veces que tengo que hacerlo de nuevo completamente pues me marca que no pueden grabarse los cambios... necesito ayuda por favor para encontrar la manera de indicarle estos datos por codigo al reporte, si alguien me ayuda se lo agradeceré mucho..

Respuesta:	Avelina Tornero
Hola, Usando CR9 puedes usar esta instrucción: crReport.Database.SetDataSource (sBD) donde sBD es la ruta completa de la base de datos. Espero que te sirva.

Contestar

Pregunta:	51121 - PROBLEMAS CON PUERTOS COM
Autor:	Kiko
Buenas. Tengo una aplicación realizada en Visual Basic 6.0 en la que no me imprime una impresora de ticket conectada al puerto com, el problema viene es que tengo que actualizar cada vez que enciendo el ordenador los puertos desde windows para lograr que me imprima con la aplicación, si no actualizo los puertos desde windows cuando intento imprimir desde mi aplicacion me da problemas de que el puerto no esta abierto (Como si no estuviera bien configurado) Mi aplicacion lo realiza: .CommPort = 1 (O dependiendo el puerto Com que utilice) .Settings = Set_Imp '"4800,n,8,2" ' 4800 BAUDIOS, paridad ninguna, 8 bits de datos 2 bits de parada. .InputLen = 0 'Indica al control que lea todo el búfer al usar Input. .PortOpen = True ' Abre el puerto. (Aqui es cuando me da el error)

Respuesta:	jcz r
Tengo duda cuando dices que actualizas el puerto... lo haces inhabilitando y habilitando el puerto?.. o como? Yo tenia un problema similar, y al quitar y poner el puerto se soluciono..

Contestar

Pregunta:	51163 - DETECTAR SI UNA UNIDAD USB (PEN DRIVE) A SIDO CONECTADA
Autor:	José Quintana
Para un proyecto de VB 6 necesito saber que letra asignará la computadora al Pen Drive, si está conectado o no, para poder copiar algunos archivos en el mismo. Gracias de antemano por la ayuda.

Respuesta:	Roberto ROGERS
Te agradezco la rutina, me sirvió de 10. Lo único que tuve que cambiar fué todos los 2 por 3.

Respuesta:

José L Quintana

Hice estas dos Funciones que, aunque no es exactamente lo que deseaba, me sirve para el proyecto en cuestión. La comparto con Uds. para que sea mejorada.

'Declaración:
Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal nDrive As String) As Long

Function PenExists() As Boolean
Dim NumDisco As Integer
Dim StrDisco As String
Dim ret As Long
Dim sTipos(0 To 6) As String

' Para los valores de retorno de GetDriveType (32bits)
sTipos(0) = " No Instalado"
sTipos(1) = " No Instalado"
sTipos(2) = " Extraible"
sTipos(3) = " Fijo"
sTipos(4) = " Remoto"
sTipos(5) = " CDROM"
sTipos(6) = " RAMDISK"

PenExists = False

For NumDisco = 0 To 25
StrDisco = Chr(NumDisco + 65) & ":\"

If NumDisco = 0 Then
ret = GetDriveType(StrDisco)
ElseIf NumDisco > 0 And GetDriveType(StrDisco) = 2 Then
ret = 7
PenExists = True
ElseIf NumDisco > 0 And GetDriveType(StrDisco) <> 2 Then
ret = GetDriveType(StrDisco)
End If
Next

End Function

Function PenLetra() As String
Dim NumDisco As Integer
Dim StrDisco As String
Dim ret As Long

PenLetra = ""

For NumDisco = 0 To 25
StrDisco = Chr(NumDisco + 65) & ":\"

If NumDisco = 0 Then
ret = GetDriveType(StrDisco)
ElseIf NumDisco > 0 And GetDriveType(StrDisco) = 2 Then
PenLetra = StrDisco
ElseIf NumDisco > 0 And GetDriveType(StrDisco) <> 2 Then
ret = GetDriveType(StrDisco)
End If
Next
End Function

'uso:

If PenExists=True then
txtText1.Text = PenLetra
End If

Agradezco los e-Mail y las posibles respuestas Saludos

Contestar

Pregunta:	51289 - QUE BASE DE DATOS OCUPAR
Autor:	Andres Rodriguez
Hola a todos: Actualmente estoy cambiando de Clipper a Visual Basic, pero al empezar a meterme en el asunto, llegue al punto en donde tengo que guardar los datos,, asi que,,, EN QUE BASE DE DATOS LO HAGO,, es decir, en CLipper utilizaba una base de datos de tipo dBase, pero ahora, no entiendo, he buscado en la red, y solo me dicen como usar, las diferentes bases, es decir, ADO, DAO, SQL, ODBC,,,,etc pero no se cual es la mejor, si hacerla en formato dBase, o hacerla en ACCESS, es decir, en donde debo de guardar mis datos, para su posterior manipulacion, de ANTEMANO GRACIAS .....

Respuesta:	Julio Cesar
Que tal Andres. Te comento que para crear tu base de datos puedes crear algun manejador de bases de datos, el más comun es access, de hecho dentro de Visual Basic se encuentra un manejador de BD, en el menu complementos. En lo que respecta a ADO o DAO lo utilizas para crear tu aplicación en VB, lo mismo pasa con instrucciones en sql. Espero te sirva esto. Saludos.

Respuesta:	xve
Hola, dependiendo mucho de la cantidad de información que vayas a guardar, y si el programa es multiusuario o no... si es poca información, y es para monousuario, lo mas sencillo es utilizar Access. Si el programa va a ser multiusuario, te recomiendo MySQL o SQL Server.... ahora, SQL Server en su versión SE (standard Edition) es gratuito. Espero que te sirva...

Contestar

Pregunta:	51332 - EXTRAER EL TEXTO EN NEGRIDA DE UN DOCUMENTO DE WORLD
Autor:	Matias Rykaczewski
Hola como va? resulta que me surgio un problema... Necesito hacer un programa en Visual Basic que extraiga de los archivos de Word ".doc", los parrafos que esten en "Negrita" (Bold)... Mi problema es que estuve intentando leer archivos .doc y me di cuenta tarde que no son archivos de texto plano, sino qe tienen muchas mas componentes, lo que provoca que al leer el ".doc", el LOF (lenght of file) se hace "infinito" Por favor necesitaria que algun experto en esto me ayude con este tema de como leer archivos ".doc".... La verdad es que se lo agradeceria muchisimo! Gracias! Salu2

Respuesta:	pkj pkj
No se de cuando es este post ni si te sera util mi comentario, pero a riesgo de parecer tonto te dire: Puedes cargar en lugar de un textbox un richtextbox, que admite textos con formato doc y tiene un .Text que devuelve texto plano ademas del .textRTF que devuelve texto con formato. A partir de ahi, experimenta. Yo tuve algun problema y no lo domine bien. Suerte.

Contestar

Pregunta:	51399 - RESPALDO DE INFORMACIóN
Autor:	VERONICA GOITIA
HOLA, ESTOY REALIZANDO UN PROYECTO EN VISUAL BASIC 5.0 Y NECESITO SABER COMO REALIZAR EL RESPALDO DE INFORMACION GRACIAS POR SU AYUDA. SALUDOS.

Respuesta:	Saul Garay
Buenas noches, busca informacion sobre el filecopy cabe destacar que tienes que darle los parametros de origen y destino, en los codigos fuentes de esta pagina hay un codigo muy bueno que hace lo que deseas SALUDOS

Contestar

Pregunta:	51408 - COMO ALMACENO MAS DE 250 CARACTERES EN UNA VARIABLE STRING
Autor:	Catalina Bustamante
Estoy realizando una consulta a una base de datos informix para lo cual ejesuto desde una variable string el query, pero no puedo almacenar mas de 250 caracteres en este tipo de variable alguien me puede ayudar con este problema

Respuesta:	Alberto Lima
He buscado en la web informacion sobre este detalle lastimosamente no encontre una respuesta dentro de mis expectativas. Lo que te sugiero que realices y seguramente lo haz pensando es manejar esa informacion en mas de una variable de 250 caracteres que es lo que Crystal puede manejar, entiendo que no es lo mas optimo, pero hasta el momento es la unica solucion que se menciona. Saludos y exitos

Contestar

Pregunta:	51426 - PROBLEMA CON RESUMEN DE CUENTA EN CRYSTAL REPORTS
Autor:	Daniel Benitez
Hola soy nuevo con el crystal reports, tengo un formulario en VB6 donde selecciono el cliente a consultar para luego ver el resumen de cuenta, pero no se como llamar la consulta de Crystal R. y tampoco se como decirle al reporte que solamente me muestre la del cliente seleccionado en el formulario. Tengo el sistema listo, solamente me falta imprimir los resumenes y me quede estancado. Espero que me puedan ayudar con esta. Desde ya muchas gracias, Saludos.

Respuesta:

José Manuel Bustos

Aca estoy llamando a un reporte echo en crystal 7.0 y le estoy pasando parametros para mostrar solo un año o mes, espero que te sea de ayuda, no si funciona con otras versiones del crystal pero me imagino que sera algo parecido. Si tenes crystal report 7, solo deberias cambiar el nombre de lo parametros y pasandole el nombre del archivo que contiene el reporte funcionaria sin drama.

Sub ConfigurarReporte(strNombreArchivo As String, intAño As Integer, Optional intMes As Integer)

rptCrystal.ReportFileName = App.Path & "\Reportes\" & strNombreArchivo

rptCrystal.Destination = crptToWindow

rptCrystal.ParameterFields(1) = " año1; " & intAño & ";true"

If intMes > 0 Then
rptCrystal.ParameterFields(2) = " mes1;" & intMes & ";true"
Else
rptCrystal.ParameterFields(2) = ""
End If

rptCrystal.Action = 1

End Sub

Saludos

Contestar

Pregunta:	51490 - BUSCAR UN FICHERO VBS CON COMODINES
Autor:	prismaia
Hola, me gustaría saber como se puede saber si un fichero existe en un directorio, el fichero contiene comodines (ejemplo: fichero.) La funcion FileExists() hace una busqueda literal, de tal forma que los comodines los trata como caracteres, por lo tanto la funcion no hace lo que yo quiero: strSource="C:\fichero." Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strSource) then Alguien sabría decirme como saber si existe un fichero en un directorio, usando comodines? Gracias

Respuesta:	Yo
Hola, efectivamente parece que el metodo fileexists hace lo que comentas, aunque el articulo de microsoft : http://support.microsoft.com/kb/189751/es solo hace referencia al metodo getFolder Puedes hacer un dir( ruta nombre fich )<>"" que si admite comodines

Contestar

Pregunta:	51494 - MANEJADOR DE ARCHIVOS CON UN PROGRESS BAR
Autor:	Leonardo D'cesares
Buen dia a todos(as) los que se encuentran en este foro, necesito su colaboracion para generar respuesta a esta intriga y mejorar el codigo que tengo elaborado. La intriga es crear un manejador de archivo para crear un empaquetado de un sistema pero manejo muchos archivo externos que son tanto de audio como peliculas de flash que hacen muy pesado el sistema si los incluyo en el empaquetador de visual basic, por eso decide crear un formulario independiente que copie todos estos archivos y luego llame al setup creado por visual basic. El problema radica es que no hay nada que me determine cuanto ha transcurido este proceso, lo creado hasta el momento es este codigo que le muestro a continuación pero no se ve nada en el Progress Bar. les pido su colaboración y ayuda. Y agradezco de antemano a todos por dicha colaboración. ------------------------------------------------------------------------------------------------------------------------ Dim cont As Integer Private Sub Form_Activate() On Error Resume Next Set fs = CreateObject("Scripting.FileSystemObject") For i = 1 To cont Progreso.Value = i Set a = fs.CopyFile(".swf", App.Path + "\prueba") i = i + 1 Next i End Sub Private Sub Form_Load() on Error Resume Next Set fs = CreateObject("Scripting.FileSystemObject") File1 = App.Path ' esto es un filelistbox File1.Pattern = ".swf" cont = File1.ListCount Progreso.Min = 1 Progreso.Max = cont Progreso.Value = 1 MkDir app.path + "\prueba" End Sub

Respuesta:	Gabriel Memmel
Hola Leonardo, creo que lo que le esta faltando a tu codigo es una interrupción para que el programa pueda realizar otras tareas como actualizar el estado del ProgressBar, para hacer esto basta con agregar una linea con el comando DoEvents luego de asignar el valor a Progreso.value y asi podrá actualizar el progreso correspondiente.

Contestar

|< << 273 274 275 276 277 278 279 280 281 282 283 >> >|