Visual Basic

General :: Visual Basic con CrystalReport

Autor: Ziortza
Asunto: Visual Basic con CrystalReport
Publicado: Vie Jul 04, 2008 11:18 am (GMT 0)
Tema Respuestas: 0

Me pongo en contacto contigo ya que llevo bastante tiempo intentando solucionar un problema que tengo con una aplicaci�n creada en Visual Basic con CrystalReport 4.6.

Tengo una aplicaci�n que hace una selecci�n de archivos y los saca en un impreso del crystalreport. El problema es que quiero pasar este impreso del crystalreport a formato .pdf o .doc para poder mandarlo por email a los promotores de nuestra empresa. Por ahora he tirado haciendo algunos truquillos pero quiero automatizar este punto de la aplicaci�n.

Perdona por la atrevida que puedo parecer pero buscando informaci�n en Internet he dado con tu correo y me parece que tal vez puedas ayudarme. Te indico abajo el c�digo que coloco y que no genera el fichero:

CrystalReport1.ReportFileName = App.Path & "\impresocuadricula.rpt"

CrystalReport1.Password = ""

CrystalReport1.DataFiles(0) = App.Path & "\naves industriales.mdb"

CrystalReport1.Destination = crptToFile

CrystalReport1.PrintFileName = App.Path & "Archivo.Doc"

CrystalReport1.PrintFileType = crptRTF

CrystalReport1.PrintReport

Estaba pensando que tal vez necesite incluir alguna librer�a en la aplicaci�n de VisualBasic para hacer exportaciones.

Aparte te comento que esta versi�n del CrystalReport tiene un bot�n de Exportar e Imprimir pero el primero no hace nada.

Gracias de antemano y espero noticias tuyas.

Un saludo

Mi correo es: ziorare@yahoo.es

General :: AYUDA

Autor: GERARDO
Asunto: AYUDA
Publicado: Mie Jul 02, 2008 12:56 am (GMT 0)
Tema Respuestas: 0

HOLA SOY NUEVO EN ESTE FORO, MI INTERES ES INFORMARME UN POCO SOBRE VISUAL BASIC. TENGO Q ENTREGAR UN PROGRAMA PARA LA ESCU EN LENGUAJE VISUAL. YA LO TNGO BASTANT ADELANTADO, PERO ME FALTAN ALGUNOS CODIGOS...EL PROGRAMA ES D STOCK... ALGUIEN PODRA AYUDARME...??? POR VIA MAIL O POR ESTE FORO...?? SI ES ASI EN OTRO MOMENTO LES DIGO Q ES...DESD YA...GRAXIAS--..-..
_________________
Gerardo.

General :: Como eliminar registros seleccionados de un MSFlexGrid

Autor: stevejobs
Asunto: Como eliminar registros seleccionados de un MSFlexGrid
Publicado: Lun Jun 16, 2008 3:33 am (GMT 0)
Tema Respuestas: 0

Hola
Deseo saber como eliminar varios registros a la vez de un msflexgrid, pero seleccionando con el teclado o con el cursor del mouse un rango de registros del msflexgrid y pulsar un boton y borrar la seleccion en tiempo de ejecucion, no de base de datos.

Pasos:

1. Tengo un msflexgrid con varios registros y n columnas (no importa el numero de columnas)

2. Supongamos que el msf tiene 10 registros y quiero eliminar del registro numero 3 al 6.

3. Asi que en mi aplicacion quiero sombrear con el cursor del mouse o con las teclas del teclado del 3er registro al 6to.

4. Una vez sombreados o seleccionados con el cursor procedo a presionar un boton o pulsar la tecla Delete del teclado y eliminar esos registros seleccionados a la vez. Esa accion es la que necesito (eliminar varios registros a la vez, dependiendo de la seleccion que haga con el teclado o el mouse y automaticamente se elimine ese rango de registros.)

Haber si me pueden ayudar.

Gracias

Bases de datos :: jhonny probelmita con db vb

Autor: jhonnyone1
Asunto: jhonny probelmita con db vb
Publicado: Mie Jun 11, 2008 12:43 am (GMT 0)
Tema Respuestas: 0

bueno ante todo buenas

eh tengo un problemita con mi programita de visual basic eh en una maquina con windows 2000 no me surge uningun problema el problema me sale cuando lo iunstalo en una pc con XP me salta el error 'Error 2147217900(80040e14) en tiempo de ejecucion Error de sintaxis en instrucion UPDATE '
y me cierra el programa nose bien que le pasa en XP una descripcion breve de con que trabaja: la base de datos esta echa en Acces 97 y captura datos de un Exel pero cuando quiero actualizar algo desde el programa no me toma el update :
Por favor ayudeme .....
Desde ya muchas gracias

General :: ayuda con codigo

Autor: ercruiz
Asunto: ayuda con codigo
Publicado: Sab May 24, 2008 4:12 am (GMT 0)
Tema Respuestas: 0

hola a todos soy nuevo en programacion, tengo una tarea en visual basic de crear un programa de calculo de numeros pares o impares.
tengo un codigo el cual me muestra el resultado de dicho numeros, pero tengo q ingresar en el codigo los numeros que deceo q me muestre y lo q me piden es que seleccione la persona dos numeros distintos y me de el resultado a continuacion pongo el codigo q tengo:

private sub command1_click( )
for a=0 to 100 step 2
text1.text = text1.text + str(a) + vbcrlf
next a
end sub

gracias por su ayuda

General :: Ayuda con visual basic

Autor: Mousemaster2010
Asunto: Ayuda con visual basic
Publicado: Vie May 23, 2008 9:41 pm (GMT 0)
Tema Respuestas: 0

Hola. Necesito saber porque motivo al querer abrir un programa con otro que cree no me lo abre. utilizo el comando .visible = true pero no me funciona, intente hacerlo con .show pero tampoco.

lo que quiero es que una ventana, que la llame principal, me abra por medio de un menu una calculadora, y asi otros programas que ire creando. pero no logro poder abrir la calculadora. la cual cree en el mismo proyecto.

gracias.

General :: Como crear evento en caja de texto al clickear en boton

Autor: tolkiencba20
Asunto: Como crear evento en caja de texto al clickear en boton
Publicado: Lun May 19, 2008 4:07 am (GMT 0)
Tema Respuestas: 0

Hola gente!!! estoy aprendiendo a usar el visual basic 6 y quiero hacer una aplicacion que obviamente no tengo mucho conocimiento en hacerla, pero queria ver si uds me podian ayudar. ya cree los controles en el formulario y escribi sus respectivas propiedades a cada uno; ahora la ignorancia se centra en el codigo.
estuve haciendo una calculadora en donde al presionar unos botones se producia un evento en una caja de texto. pero la verdad, me quedo perdido. mi idea es hacer una tabla de posiciones de 10 equipos, que cuando un equipo gane en una caja de texto aparezca un numero 3, si empata 1 y si pierde 0, y obviamente en el segundo partido gane, pierda o empate calcular la suma entre los neuvos puntos y los que ya tienen.

esa es la idea, por los partidos y resultados no se preocupen ese es otro tema. pero segun el resultado hago click en el boton G(ganar) E(empatar) o P(perder) y ya saben como sigue.

si alguien me puede ayudar, ense�andome el codigo para que una caja de texto responda al hacer click en un boton, les agradeceria . . . ah y otra cosa sin importancia pero seria interesente saberlo, como hacer para que el programa calcule las posiciones en la tabla segun los puntos que sume cada equipo en cada resultado.

pd: si no se entendio . . . avisen y disculpen . . .

General :: encontrar error

Autor: juaneto
Asunto: encontrar error
Publicado: Mar May 13, 2008 1:16 am (GMT 0)
Tema Respuestas: 0

estoy creando algo basico, calculadora de cr�ditos el que sigue es el c�digo y lo pongo a correr y registra un error, alguien me puede decir en que consiste, les envio el programa:

Private Sub cmdCalcular_Click()

Dim cCantidad As Currency
Dim fTipoInt As Single
Dim nPlazo As Integer, cPago As Currency
'Almacenar la cantidad en la variable cCantidad
cCantidad = Val(txtCantidad.Text)

'Convertir tipo de interes en su equivalente decimal
'Ej. 12.75 se convierte en 0,1275
fTipoInt = Val(txtTipoInt.Text) / 100

'Convertir tipo de interes anual en mensual
'Dividiendo por 12 (meses en un a�o)
fTipoInt = fTipoInt / 12

'Convertir n�mero de a�os en n�mero de meses
'Multiplicando por 12 (meses en un a�o)
nPlazo = Val(txtPlazo.Text) * 12

'Calcular y mostrar el pago mensual
'la funcion Format hace que el n�mero tenga buen aspecto
cPago = cCantidad * (fTipoInt / (1 - (1 + fTipoInt) ^ -nPlazo))
txtPago.Text = Format(cPago, "Fixed")

End Sub

Private Sub Salir_Click(Index As Integer)
End

End Sub

Bases de datos :: RE: ERROR AL EJECUTAR EJEMPLO MISDATOS.MDB

Autor: islaprogramacion
Publicado: Jue Abr 10, 2008 9:26 am (GMT 0)
Tema Respuestas: 1

Para cada tipo de base de datos, se usan diferentes librer�as en referencias.
Revisa en el men� proyecto referencias que librer�as tienes cargadas.

Bases de datos :: ERROR AL EJECUTAR EJEMPLO MISDATOS.MDB

Autor: choro539
Asunto: ERROR AL EJECUTAR EJEMPLO MISDATOS.MDB
Publicado: Jue Abr 10, 2008 5:33 am (GMT 0)
Tema Respuestas: 1

KYUVO,
EL ERROR ME APARECE AL EJECUTAR EL EJEMPLO QUE DAN AQUI EN SU PAGUINA PARA RELLENAR EL DATAGRID CON LO QUE HAY EN LA BASE DE DATOS EN SU EJEMPLO MISDATOS.MDB

PUES COPIE TAL CUAL Y REALICE LOS QUE SE EXPLICA EN SU TOTORIAL
NO SE SI ME FALTA AGREGAR REFERENCIAS O ALGO ASI.

EL ERROR 3343 ME DICE QUE NO SE RECONOCE EL FORMATO DE LA BASE DE DATOS

LA BASE DE DATOS LA HIZE EN OFFICE 2007 PERO LA GUARDE PARA OFFICE 2000

Y PUES SI EXISTE LA BASE DE DATOS

ESPERO Y ME HAIGA EXPLICADO BIEN.

SALUDOS...

PD.. APENAS EMPIEZO EN ESTO DEL VB

General :: RE: Enlace con Corel Draw

Autor: jcmm
Asunto: Enlace con Corel Draw
Publicado: Mie Mar 12, 2008 10:13 am (GMT 0)
Tema Respuestas: 4

Gracias por tu ayuda, de momento no he encontrado nada que pueda servirme as� que seguir� buscando

General :: RE: Enlace con Corel Draw

Autor: islaprogramacion
Publicado: Jue Mar 06, 2008 5:07 pm (GMT 0)
Tema Respuestas: 4

Hay un programa llamado DLLfunctions 1.01 que sirve para ver las funciones que est�n dentro de una DLL, es freeware y tal vez te sirva para explorar las dll del Corel.

Con DLLViewer 2.2.153 puedes analizar que funciones se est�n ejecutando en los procesos de llamadas a una DLL, �ste muestra informaci�n de todos los procesos que se est�n ejecutando en ese momento, incluyendo la lista de librer�as DLLs que est�n cargadas para cada uno de esos procesos. este no es free, es Shareware

Tal vez con ellos puedas encontrar algo que te sirva en las DLLs del Corel.

General :: RE: Enlace con Corel Draw

Autor: jcmm
Asunto: Enlace con Corel
Publicado: Mie Mar 05, 2008 10:49 am (GMT 0)
Tema Respuestas: 4

Gracias por tu respuesta. Lo que pretendo hacer es convertir un fichero vectorial realizado con cualquier CAD y que est� en el formato EPS (*.eps) a formato HPGL (*.plt) de forma autom�tica (de forma parecida a comose hace con Excel, por ejemplo) pero con el Corel

General :: RE: Enlace con Corel Draw

Autor: islaprogramacion
Publicado: Mar Mar 04, 2008 12:10 am (GMT 0)
Tema Respuestas: 4

Tendr�s que buscar informaci�n sobre que funciones contienen las DLLs del Corel, para ver si puedes usar alguna desde VB, aunque lo dudo mucho, las automatizaciones con programas externos, que no pertenecen a microsoft, carecen de documentaci�n la mayor�a de las veces y no creo que encuentres nada en la red.

Creo comprender que quieres hacer una importaci�n en otro formato, de los cuales se pueden hacer desde Corel, tal vez alguno de los programas contenidos en el paquete de Office, tengan esas librer�as de exportaci�n y lo puedas hacer desde uno de esos programas.

Se m�s explicativo en que tipo de archivo del paquete Corel te refieres y ver� de buscarte alguna soluci�n.

General :: Enlace con Corel Draw

Autor: jcmm
Asunto: Enlace con Corel Draw
Publicado: Lun Mar 03, 2008 1:12 pm (GMT 0)
Tema Respuestas: 4

Buenos d�as a todos, quisiera saber si desde el VB se puede cargar un fichero en Corel y acto seguido exportarlo o guardarlo con otra extensi�n.
Ejemplo: Importar un urchivo Grafico1.eps y exportarlo como Grafico1.plt

He intentado lo siguiente pero de da errores:

Dim s1 As Shape
Dim impflt As ImportFilter
Dim impopt As StructImportOptions
Dim grp1 As ShapeRange
Dim doc1 As Document
Dim expflt As ExportFilter
Dim expopt As StructExportOptions

ActiveDocument.Pages(1).Activate 'Error de Automatizaci�n (Error 440) Documento no encontrado
ActivePage.Layers("Dummy%Layer%Dummy%Layer").Activate 'Error de Automatizaci�n (Error 440) Capa fuera de rango
ActiveLayer.Name = "Dummy%Layer%Dummy%Layer" ''Error de Automatizaci�n (Error 440) Documento no encontrado
Set impopt = New StructImportOptions
impopt.MaintainLayers = True
Set impflt = ActiveLayer.ImportEx("C:\Gr�fico1.eps", cdrPSInterpreted, impopt) ''Error de Automatizaci�n (Error 440) Documento no encontrado
impflt.Finish 'La variable de objeto o la variable de bloque With no est� establecida (Error 91)
Set s1 = ActiveShape
ActiveLayer.Name = "Capa 1" 'Error de Automatizaci�n (Error 440) Documento no encontrado
Set grp1 = s1.UngroupEx 'No se encontr� el m�todo o el dato miembro (Error 461)
Set doc1 = OpenDocument("C:\Gr�fico1.eps")
Set expopt = New StructExportOptions
expopt.UseColorProfile = False
Set expflt = doc1.ExportEx("C:\Gr�fico1.plt", cdrHPGL, cdrAllPages, expopt)
expflt.Finish
doc1.Close

Gracias y un saludo