PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	8156 - EJECUTAR .AVI DESDE UN .RES
Autor:	vampy
Por Fa... Tengo un AVI en un archivo de recursos .RES (en forma binaria) como lo ejecuto en visual Basic (NOTA: no me sirve el control Animation ya que este me solicita el archivo)

Respuesta:	Paul Guerra
Podes utilizar la función LoadResData para cargar los datos en una matriz de bytes. Después lo guardas en un archivo temporal AVI y listo.

Contestar

Pregunta:	8172 - ORACLE 8.0 CON VB 7.0 SENTENCIA UPDATE
Autor:	el Guille
Apelo a vuestros conocimientos pq los míos no dan para más de todas formas gracias por adelantado. Estoy haciendo un update contra una tabla de oracle, dentro de un bucle "do while not recordset.eof". La conexión que utilizo es un servicio que he generado para conectarme a la BD de oracle la aplicación con esta conexion va bien, el caso es que el update he probado a hacerlo de varias formas y todas sin resultado satisfactorio. Con el "Con.execute sql", (con es la conexion activa en ese momento y la sql contiene el update) si lo hago de esta forma hace el update(de unos 500 registros) y al final el proceso da el error "fin de fichero en el canal de comunicación" y se "muere" el proceso. Despues del fiasco obtenido probé de esta otra forma: Defino un recordset de tipo "New ADODB.CONNECTION" y la instrucción que utilizo es "Rd.open,sql(la del update)con(que es la conexion activa en ese momento),adOpenDynamic,adLockPessimistic , con esto lo único que consigo es aumentar un poco el nº de registros actualizados (unos 1500 + ó -) pero al final el proceso se muere y no me da ningún error(se queda colgado visual y tengo q recurrir al famoso Ctrl-Alt-Supr) la verdad es que ya no se si es problema del tipo de conexión , de la sql que utilizo, o de la base de datos Oracle. Si alguno de vosotros/as sabe porque ocurre esto y como solucionarlo os estaría eternamente agradecido. Un saludo, el Guille.

Respuesta:	César
Yo he usado VB 6.0 contra Oracle 8 usando ado y para hacer los updates los hago utilizando el recordset: Set res = New adodb.Recordset res.Open sql, conexion donde sql="UPDATE ...."

Contestar

Pregunta:	8173 - IMPRIMIR UN REGISTRO DE LA DB CON CRYSTAL REPORT
Autor:	lore Sánchez Chamoso
Hola me gustaría que me ayudarais a resolver un problema que tengo. Estoy creando un sistema en Visual Basic y en él utilizo informes creados con Crystal Reports. El problema viene al hacer que visualice una factura de la BD's que yo consulto en el momento de ejecución. Resumiendo: no sé con qué instrucción le indico a Crystal Report la factura que quiero que presente el informe. Me gustaría que me contestarais lo más pronto posible, lo necesito.Gracias.

Respuesta:

Sergio Durán

Hola, bueno se cuando pudiste efectuar la pregunta pero, de seguro mi respuesta le servirá a más de alguien. Para imprimir Facturas de Compra y Venta, Guías de Despacho, etc., desde VB6, utiliza el Objeto Printer y así te olvidas para siempre de Crystal Report y sus licencias y además de DataReport (propio de VB).
Yo programo con VB6 y uso el obeto printer en combinación con Impresoras matriciales Panasonic KX-P1150 y Epson LX-300 + II, sin ningún problema.

Hago algo así:

Nimp = rs26.Fields(0).Value



'Establece Impresora

For Each Prnt In Printers

    If Prnt.DeviceName = Nimp Then

        Set Printer = Prnt

        Exit For

    End If

    DoEvents

Next Prnt



With Printer

    'Dimensiones papel a usar

    .Width = Int(rs26.Fields(3).Value * 56.7)

    .Height = Int(rs26.Fields(4).Value * 56.7)

    

    'un de dibujo del papel a usar

    .ScaleMode = 0

    .ScaleWidth = rs26.Fields(3).Value * 10

    .ScaleHeight = rs26.Fields(4).Value * 10

    

    'Orientación papel a usar

    .Orientation = rs26.Fields(5).Value

    '.Port = Trim(CStr(rs26.Fields(1).Value))

    

    'Printer.PaperBin = 15 'Bandeja

    .PrintQuality = vbPRPQMedium

    .Zoom = 100

    

    .Font.Name = "Calibri"

    .FontSize = rs26.Fields(6).Value

    .FontBold = False

    .FontItalic = False

    .FontStrikethru = False

    .FontUnderline = False

    .ForeColor = vbBlack

    

    'CABECERA GUÍA

    .CurrentX = rs26.Fields(7).Value / 0.1: .CurrentY = rs26.Fields(8).Value / 0.1

    Printer.Print Format(Me.Gui1.Value, "dd")

    

    .CurrentX = rs26.Fields(9).Value / 0.1: .CurrentY = rs26.Fields(10).Value / 0.1

    Printer.Print Format(Me.Gui1.Value, "mmmm")

    

    .CurrentX = rs26.Fields(11).Value / 0.1: .CurrentY = rs26.Fields(12).Value / 0.1

    Printer.Print Format(Me.Gui1.Value, "yyyy")

    

End With



'GLOSA GUÍA

rgl = CLng(rs26.Fields(39).Value / 0.1)

       

With Me.MSFlexGrid4

    For prt = 1 To .Rows - 1

        .Row = prt

        

        .Col = 1

        Printer.CurrentX = rs26.Fields(41).Value / 0.1: Printer.CurrentY = rgl

        Printer.Print .Text;

        

        rgl = rgl + CLng(rs26.Fields(45).Value / 0.1)

        If prt = CLng(rs26.Fields(44).Value) Then Exit For

        DoEvents

    Next prt

End With



'PIE GUÍA

With Printer

        .CurrentX = (rs26.Fields(35).Value / 0.1) - .TextWidth(Gui22.Text)  'TOTAL

        .CurrentY = (rs26.Fields(36).Value / 0.1)

        If Gui22.Text = 0 Then

            Printer.Print ""

        ElseIf Gui22.Text > 0 Then

            Printer.Print Gui22.Text

        End If

    

        '.NewPage

        'Printer.Print ""

        .EndDoc

        .KillDoc

        .TrackDefault = True

End With



'Cierra y descarga de memoria el recordset

If rs26.State = 1 Then rs26.Close

Set rs26 = Nothing

http://bio-soft.cl/
CONCEPCIÓN CHILE

Respuesta:

Juan Alvarez

Crea un reporte (Factura.rpt) en el cual se imprima todos los numeros de factura con su respectivos movimientos, al momento del diseño si le das una vista preliminar te daras cuenta que se veran todas tus facturas con sus respectivos movimientos, pero finalmente en el momento de la impresion osea cuando esta corriendo tu programa solo seleccionas uno y lo harias de la siguiente manera:

CR.ReportFileName = "Factura.rpt"
CR.SelectionFormula = "{Tabla.NoFactura}='" + Text1.Text + "'"
CR.Action = 1
Suponiendo que en text1.text esta el numero de la factura que quieres imprimir y que tengas una tabla con un campo llamado NoFactura, espero haberme explicado

Mas dudas me Escribes ok

Respuesta:	joaquin
BUSCA LA AYUDA DE CRYSTAL REPORT Y LEETE LA INSTUCCION "SELECTION FORMULA", AUNQUE HAY OTRAS MANERAS ESTA ES LA MAS SENCILLA

Contestar

Pregunta:	8183 - ENVIO DE MAIL EN FORMATO HTML
Autor:	Ivan Martinez Arce
Tengo un programa en V. Basic que envia e-mail pero necesito que el archivo adjunto que envio (un documento html o gif animado) se auto abra cuando el destinatario lee el mensaje. Gracias.

Respuesta:	Óscar Javier García Baudet
Asumo que ya tienes el código con la máquina de estados necesaria para conectarte al servidor de correo, etc... Paso a explicarte como adjuntar archivos: Por la largada de la respuesta, esta en el archivo resp8183.txt

Contestar

Pregunta:	8194 - PROBLEMA CON REGISTRO DE OCX
Autor:	Hugo Marin
Hola amigos, estoy usando Visual Basic 6.0 y al usar el componente ocx "DATA CONTROL FOR BTRIEVE PROFESIONAL" (BTRDCP32.OCX) puedo selecionarlo como componente pero al llevar el objeto al form me da el siguiente mensaje de error y no me deja trabajar "Usted no tiene una licencia para hacer uso de este componente en ambiente diseño". Gracias por la ayuda.

Respuesta:	Juan cecconi
El problema es que quie hizo ese control elijió la opción de pedir licencia para utilizar el control en otro proyecto. Para poder salvar este problema debes conseguir el archivo "xxxx.lic" ,donde xxx será el nombre del archivo de licencia con extencion "lic" (licencia). Una vez que lo consigues debes ponerlo en el directorio donde se encuentra el ocx (archivo del control)

Contestar

Pregunta:	8201 - COMO PODRIA COMPROBAR LA CONECCION A UNA RED
Autor:	Juan Alberto Hernandez Aco
Hola amigos. Estoy implementado un sistema que emplea ODBC para conectarme a una base de datos ACCESS, sin embargo he tenido problemas a la hora de manejar el error si intento conectarme a mi base de datos ubicada en el servidor y no hay coneccion. Ya que despues de mostrarme el error de coneccion, ODBC me solicita el usuario, password y direccion con lo cual el sistema dejaria de ser robusto. Utilizo VB 6.0, Access 97 y ODBC. Agradeceria cualquier comentario,sugerencia o un poco de codigo para manejar este tipo de errores cuando la red no este disponible.

Respuesta:	Bases de Datos Sistemas C.A.
Saludos, mira con respecto al ODBC configuralo y dile que grabe contraseña, pero si yo lo hiciera utilizaria OLEDB es mejor, mas rapido, robusto, configurable etc. si necesitas mas yuda informicion, etc. no dudes en escribirme. Nota: disculpa si me tardo en contestar un poco pero es que estoy viajando mucho.

Contestar

Pregunta:	8203 - DONDE ESTá EL ISAM INSTALLABLE
Autor:	Oscar Hofman
Estoy trabajando en VisualBasic 6.0 bajo Windows ME, asi que trato de importar y vincular las tablas de FoxPro 2.0 para las aplicaciones hechas por VB 6.0. Hice las instrucciones para ejecutar las tareas de importación y vinculación de las mismas tablas: Set DB = OpenDatabase (\"C:\\foxpro2\", False, False, \"FoxPro2.0\") Se me dio el error reclamando \"ISAM Installable..\" entonces buscaba el componente de Installable ISAM por medio de Windows a traves de archivos con INI peor no lo encontraba.

Respuesta:	tovares cr
Estimado Oscar Tienes un poblema que es dificil y facil de solucionar a la vez Lo veras !!! Por la largada de la respuesta, esta en el archivo resp8203.txt.

Contestar

Pregunta:	8204 - DATA REPORT SIN DATA ENVIRONMENT
Autor:	Esteban Eduardo Tripodi Gauthier
¿Cómo puedo enlazar las propiedades DataMember y DataSource de un Data Report a través de código, sin usar el Data Environment y abriendo una base de datos con contraseña?

Respuesta:

Bases de Datos Sistemas C.a.

Saludos, Primero que todo creas el reporte en el data report, de manera similar con la diferencia
que los campos que tu quieres que salgan en el detalle le colocas el nombre del campo en el
datasourse solamente, no llenes mas nada.

en el codigo del formulario del VB que llama al datareport haces los siguiente
dim rs as new adodb.recordset
.
.
.
cnstring=Entorno.conection ' o algo asi total el que te da el string o lo pones a mano
rs.open "nombreTabla",cnstring, y demas parametros
set datareport.source=rs
.
.
.
y con esto te sale personalizado, de todas manera si tienes dudas o quieres un ejemplo elaborado
y funcional escribeme.

Nota: No te lo envio de una vez porque no estoy en mi computador sino que estoy por fuera.

www.bdsca.com

Contestar

Pregunta:	8245 - EXPORTAR RECORDSETS A UN ARCHIVO
Autor:	julio cesar FONTANILLA IGIRIO
hola necesito urgentemente saber como exporto un recordset a un archivo txt, el cual extrae de una consulta alrededor de 15 campos; intento exportarlo con las siguientes instrucciones: datareport1.ExportFormats.Add Key:="REPORTE", FormatType:=rptFmtText, FileFormatString:="PAGOS (.TXT)", FileFilter:=".TXT", Template:=STRTEMPLATE datareport1.ExportReport FORMATINDEXORKEY:="REPORTE", FileName:="d:\temporal\pagos.txt", SHOWDIALOG:=False, RANGE:=RPTRANGALLPAGES pero me sale un mensaje diciendo que el ancho del informe es mas grande que el ancho del papel. como puedo solucionar este problema.

Respuesta:	alice queen
Hola julio, yo en lugar de exportar, me crearía un archivo de texto y escribiría en él, haría algo así: MiArchivo = \"nombre.txt\" Open MiArchivo for output as # 1 do while MiRecordset.eof = false Milinea = (acá concatená los campos del recordset) MiRecordset.movenext print #1, MiLinea loop close #1 espero que te sirva, cualquier cosa a las órdenes. Alice

Contestar

Pregunta:	8250 - IMPRIMIR TEXTO ROTADO
Autor:	ALEJANDRO COZART PEÑA
Cómo puedo hacerle para imprimir texto en diferentes ángulos sin perder las características como la fuente, bold, subrayado, tamaño, etc. y enviar el resultado a la impresora

Respuesta:

José Ariel Limandri

Proba con este código.
Cualquier duda mandame un mail

Option Explicit

Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub DrawRotatedText(ByVal target As Object, _
ByVal txt As String, _
ByVal X As Single, ByVal Y As Single, _
ByVal font_name As String, ByVal size As Long, _
ByVal weight As Long, ByVal escapement As Long, _
ByVal use_italic As Boolean, ByVal use_underline As Boolean, _
ByVal use_strikethrough As Boolean)

Const CLIP_LH_ANGLES = 16 ' Needed for tilted fonts.
Const PI = 3.14159625
Const PI_180 = PI / 180#

Dim newfont As Long
Dim oldfont As Long

newfont = CreateFont(size, 0, _
escapement, escapement, weight, _
use_italic, use_underline, _
use_strikethrough, 0, 0, _
CLIP_LH_ANGLES, 0, 0, font_name)

' Select the new font.
oldfont = SelectObject(target.hdc, newfont)

' Display the text.
target.CurrentX = X
target.CurrentY = Y
target.Print txt

' Restore the original font.
newfont = SelectObject(target.hdc, oldfont)

' Free font resources (important!)
DeleteObject newfont
End Sub

Contestar

|< << 97 98 99 100 101 102 103 104 105 106 107 >> >|