BUSCAR EN PREGUNTAS Y RESPUESTAS

 Se han encontrado 2654 coincidencias.<<  >> 

Visual Basic
    Pregunta:  55191 - COMO PASAR UNA VARIABLE DE VB A UN REPORTE EN CRYSTAL REPORT
Autor:  Hernan Romo
Gracias por su tiempo, desearia saber como hago para pasar una variable que cree y tiene un dato a un reporte, el programa es visual basic 6.0 y el Crystal Report es 4.5
  Respuesta:  Henry Imbacuan
Para cada f贸rmula que desee cambiar en el informe, introduzca el nombre de la f贸rmula y la cadena que desea que sustituya a la cadena existente.

Por ejemplo, para cambiar una f贸rmula @COMISI脫N a {archivo.VENTAS}*.1 y una segunda f贸rmula @TOTAL a {archivo.VENTAS} + {archivo.COMISI脫N}, escriba lo siguiente:

Informe1.Formulas(0) = "COMISI脫N= {archivo.VENTAS} * .1"

Informe1.Formulas(1) = "TOTAL= {archivo.VENTAS} + {archivo.COMISI脫N}"

    Pregunta:  55234 - PASAR PARAMETROS MEDIANTE VB 6.0 A REPORT MANAGER
Autor:  Manuel Ramirez
Tengo una peque帽a aplicaci贸n con Visual Basic 6.0, en la que necesitaba un generador de reportes que fuese simple de usar, por eso llegue a REPORT MANAGER, pero no existe mucha documentaci贸n de su utilizaci贸n, lo que necesito resolver es como pasarle par谩metros al reporte de modo que pueda extraer solamente la informaci贸n que necesito.
Si alguien me puede ayudar, le estoy agradecido desde ya.
  Respuesta:  Gonzalo Zapata
Yo tambien estoy usando el report manager, no se mucho pero al menos para poder pasar parametros lo haces con:

rep.Report.Params.Items(0).Value = i

en el reporte tienes que ir agregando parametros y en el orden de creaci贸n es el indice de items. Lo que no he descubierto todavia es como pasas a un nuevo registro ya que no estoy usando una base de datos, le env铆o los datos desde el visual basic directo. Si lo descubres me avisas.

Saludos
  Respuesta:  Juan carlos nAVA
YO UTILIZO UNA TABLA DINAMICA OSEA EN MI APLICACION ESCRIBO DATOS EN UN REGISTRO DE LA BASE DE DATOS Y EL REPORTE ME LEE LA BASE DE DATOS PARA CAPTURAR EL PARAMETRO .. SI HAY ALGUNA OTRA FORMA ME GUSTARIA SABERLO

SALUDOS
MARACAIBO
VENEZUELA

    Pregunta:  55257 - CONVERTIR UNICODE/ANSI/UNICODE
Autor:  manuel sabogal
Estoy desarrollando una aplicacion con sockets en visual basic 6 y requiero hacer una conversion de codigo para disminuir el peso de los paquetes enviados.

Solo requiero enviar Stream, pero para ello hago una conversion de codigo de ANSI a UTF8, pero a la hora de recivir los Stream en UTF8 no puedo convertirlos de nuevo a ANSI, solo logro tomar los caracteres en ASCII.

El codigo q uso para enviar convertir los datos a UTF8 es:

Public Declare Function WideCharToMultiByte Lib "kernel32" _
(ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long

Public Const CP_UTF8 = 65001

Public Function WideToUnicode(ByVal StrWide As String) As String
Dim stBuffer() As Byte
Dim cwch As Long
Dim pwzBuffer As Long

If Len(StrWide) = 0 Then Exit Function

pwzBuffer = Len(StrWide) * 3 + 1
ReDim stBuffer(pwzBuffer - 1)
cwch = WideCharToMultiByte(CP_UTF8, 0&, StrPtr(StrWide), Len(StrWide), stBuffer(0), pwzBuffer, vbNullString, ByVal 0&)

If cwch Then
cwch = cwch - 1
ReDim Preserve stBuffer(cwch)
WideToUnicode = StrConv(stBuffer, vbUnicode)
End If
End Function

Como puedo mejorar este codigo lograr una conversion de UTF8 a ANSI correcta???
  Respuesta:  manuel sabogal
Ya he trabajado en un nuevo codigo pero aun no logro conseguir la tan esperada conversion de codigo que requiero para mi programa.

El codigo q estoy usando para recivir y convertir los datos de UTF8 a ANSI es:

Public Declare Function MultiByteToWideChar Lib "kernel32" _
(ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Public Const CP_ACP = 0

Public Function UnicodeToWide(ByVal StrUnicode As String) As String
Dim stBuffer() As Byte
Dim cwch As Long
Dim pwzBuffer As Long

If Len(StrUnicode) = 0 Then Exit Function

pwzBuffer = Len(StrUnicode) / 3 + 1
ReDim stBuffer(pwzBuffer - 1)
cwch = MultiByteToWideChar(CP_ACP, 0&, StrPtr(StrUnicode), Len(StrUnicode), stBuffer(0), pwzBuffer)

If cwch Then
cwch = cwch - 1
ReDim Preserve stBuffer(cwch)
UnicodeToWide = StrConv(stBuffer, vbWide)
End If
End Function

Tal vez con este codigo es mas facil armar el rompecabezas. Por favor ayudenme a desifrar este problema.

    Pregunta:  55518 - ERROR 3021 AL LANZAR CONSULTA SQL UTILIZANDO UN TEXTBOX
Autor:  david piedrahita
Buenas:
Intento algo que supuestamente debe ser muy sencillo. Quiero desde visual lanzar una consulta sql sobre una base de datos de access utilizando un textbox para que desde 茅l recoja un dato que uso en el where de la sql. El c贸digo lo he puesto para un bot贸n de comando y el error que d谩 es error 3021 en tiempo de ejecuci贸n. No hay registro activo. Todo lo que he encontrado sobre este error no me ayuda. El c贸digo es:
Private Sub Command1_Click()
Dim BDD As Database
Dim TBL As Recordset
Set BDD = OpenDatabase("c:\Documents and Settings\A126813\Escritorio\db1.mdb")
Dim SQL As String
SQL = "select nombre from tabla1 where nombre like '" & Text3.Text & "%'"
Set TBL = BDD.OpenRecordset(SQL)
TBL.MoveFirst
Do Until TBL.EOF
List5.AddItem TBL("nombre") & " " & TBL("apellido") & " tiene " & TBL("edad")
TBL.MoveNext
Loop
End Sub
y el error da en TBL.MoveFirst
Alguien puede ayudarme? Gracias de ante mano.
  Respuesta:  Bismarck Pineda
Cuando yo he tenido ese problema es porque no he colocado el cursor en un registro activo, normalmente lo hago poniendo el evento refresh, ejemplo TBL.Refresh, con esto el cursor se coloca en el primer registro de la base de datos. Es aconsejable revisar antes si la tabla tiene registros grabados.

Espero te ayude

    Pregunta:  55589 - C脫MO HACER UN BACKUP DE UNA BASE SQL DESDE UN VISUALBASIC
Autor:  luis francisco
A los genios: Estoy haciendo un sistema en Visual con base SQL server7, y quiero que desde un bot贸n de un formulario poder hacer un backup de la base. si alguno de ustedes puede orientarme, desde ya, muchas gracias, soy nuevo en esto
  Respuesta:  JOSE PASTOR LEZCANO LOPEZ
Hola espero que esto te sirva.

Coloca esto en declaraciones

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Lo siguiente en el boton.

Dim t As Long, cTmp as String, cDataBase as String

'Donde cTmp es el nuevo nombre de la copia de la base de datos original, cDataBase es el nombre de la base datos original.

t = CopyFile(cTmp, cDataBase, False)

    Pregunta:  55683 - VISUAL BASIC "KEYBD_EVENT"???
Autor:  Chelix23 23
Usando el Api "keybd_event" declarado

Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Se que para emular una tecla despues de declarar esta funcion solo tengo que hacer lo siguiente:

Call keybd_event(Tecla, 0, 0, 0)
Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)

Pero, 驴Cual es el numero de tecla para una barra invertida osea " \ " he intentado poniendo Tecla=&HDC pero esta es de una barra osea " | ".
Ojala que puedan ayudarme.
  Respuesta:  PEDRO MARTIN
el c贸digo asscii de es el 92

    Pregunta:  55698 - ERROR EN VB4 RUNTIME ERROR 2004
Autor:  victor hugo ramirez
al ejecutar una aplicaci贸n desarrollada en visual basic 4 manda el siguiente error Run-time error '2004' Out of memory, como puedo solucionar dicho problema.
De antemano gracias por la ayuda.
  Respuesta:  Saul Garay
Buenos dias Victor, verifica lo siquiente: que no tengas muchos programas residentes en memoria, que tienes la memoria suficiente, sino es ninguna de las anteriores verifica que dentro del procedimiento no estas llamando a una rutina varias veces sin cerrarla, si es asi, divide el programa en modulos mas peque帽os, asi aprovechas al maximo la memoria virtual.

EXITO

SAUL GARAY

    Pregunta:  55706 - LA CONTRASE脩A QUE PUSE EN CODIGO ME APEREZCA *** AL EJECUTAR
Autor:  Miguel Ramirez
Solicito su ayuda tengo un libro en excel, al cual para accesar hice que me pidiera una clave de acceso y despues de tres intentos equivocados se me cerrara el libro. (visual basic en excel)

la duda que tengo es que cuando me mande el mensaje para introducir la clave, no me aparezca la contrase帽a en el cuadro de texto.
ejemplo: en lugar de 1234 me aparezca( ****) que es lo correcto

de antemano les agradezco su atencion.
  Respuesta:  luis errante
hola Miguel! soy yo de nuevo.
la propiedad del textbox es PASSWORDCHAR,

    Pregunta:  55966 - VISUAL BASIC 4.0 DESIGN TIME ENVIRONMENT HA DETECTADO
Autor:  adrian meads
Que tal , tengo un problema con una aplcaci貌n de vb4 , esta corria perfectamente en una pc dell optiplex con windows xp , ahora me han cambiado mi pc por una optiplex con el mismo so , version y service pack solo camio el procesador a core2 duo pero me manda un error cada vez que trato de ejecutar el programa.

tambien instale el vb4 y el problema es cuando trata de conectarse con la base, cuando ejecuta esta parte manda el error que ha detectado un problema y debera cerrarse

Set db = DBEngine(0).OpenDatabase(DBName, False, False, DBConnect & Command$)

Alguien me puede ayudar?
ya probe con dlls , ya instale nuevamente el sistema operativo

les mando el mensaje
Visual Basic 4.0 Design Time Environment ha detectado un problema y debe cerrarse.

firma del error
AppName: vb32.exe AppVer: 4.0.24.22 ModName: ntdll.dll
ModVer: 5.1.2600.2180 Offset: 00018fea
  Respuesta:  David Boonzaayer
VB4 doest work with 1Gb of RAM using MSaccess data base
Reduce ram to 750Mb. All will be OK. IF you find a better solution, please let me know. Thanks

    Pregunta:  56009 - ACTUALIZAR EL CRYSTAL REPORT EN TIEMPO DE EJEUCION
Autor:  priscilla alfonso medina
Hola mi problema es el siguiente: estoy tratando de unir una tabla de access al crystal report con el siguiente codigo

Form5.CrystalReport1.ReportFileName = pathstring & "Documents and SettingspriscillaEscritorioDescuentos2REPORTE_DESCUENTOS.rpt"
Form5.CrystalReport1.WindowState = crptMaximized
Form5.CrystalReport1.Destination = crptToWindow
Form5.CrystalReport1.Action = 1
Form5.CrystalReport1.DiscardSavedData = True

despues que recorre el codigo y pasa por el discardsavedata me manda un error y no me despliega nada, pero si le quito el discardsavedata me muestra el reporte con los mismos datos y no los actualiza.

Cabe mencionar que yo nunca he utilizado el crystal report antes ya que generaba los reportes con el datareport de visual y en este momento ya no se que hacer ojala me puedas ayudar gracias.

Tambien te menciono que la tabla a la que esta ligado el crystal report es temporal y se actualiza en tiempo de ejecucion.
  Respuesta:  LUIS SANTOS
buenas tardes...

mira en primer lugar. carga el reporte con el REPORT DESIGNER y le desactivas la opcion de GUARDAR DATOS CON EL INFORME y Activas la opcion de VERIFICAR EN CADA IMPRESION con eso queda listo.

|<  <<  237 238 239 240 241 242 243 244 245 246 247  >>  >|