1
Visual Basic 6 / Re:Problemas con busqueda por rango en VB6 y access
« en: Noviembre 26, 2022, 07:38:26 pm »
Hola pero nunca mencionas cual es el problema...
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Dim vBingo As New Collection
Private Sub Command1_Click()
Dim vNumero As Integer
Dim vMinimo As Integer, vMaximo As Integer
Dim vCadena As String
Dim vFila As Integer, vColumna As Integer
For n = 0 To 10000 'cantidad de combinaciones
For vFila = 1 To 5 'Filas
vMinimo = IIf(vFila = 1, 1, ((vFila - 1) * 15) + 1)
vMaximo = (vFila * 15)
Dim ret() As Variant
ret = Generar(vMaximo, vMinimo, 5)
For vColumna = 0 To 4 'Columnas
vCadena = vCadena & ret(vColumna) & ","
Next vColumna
vCadena = vCadena & vbNewLine
Next vFila
vBingo.Add vCadena
vCadena = ""
Next n
End Sub
Sabes!! No se de que me perdí, pero sé que estoy perdido. Siempre me ha gustado Visual basic y lo aprendí hace 20 años, no lo he usado pero ahora que he decidido dedicarme no comprendo lo que dices respecto al VB6. ¿Es que acaso ya no se puede trabajar con eso?
Ninguna maquina va a responder lo que uno haga en la programación con VB6??
Si es así entonces que es lo que ahora definitivamente cuenta al respecto??, porque este foro es de Visual basic y se menciona que eso ya no va??
¿Que me recomiendas entonces usar para programación al respecto???
Te agradezco mucho que me ayudes a alcarme
Ah!!! Pero eso me vendría de maravillas entonces.
Puedes ponerme algún link para ayudarme a conocer mas de esa forma fe proceder?.
Gracias!!!
estoy haciendo un tutorial de este tema y lo voy a publicar aca, porque me parece realmente util que lo sepan.
Consulte el final de este mensaje para obtener más detalles sobre cómo invocar a la depuración
Just-In-Time (JIT) en lugar de a este cuadro de diálogo.
************** Texto de la excepción **************
System.TypeInitializationException: Se produjo una excepción en el inicializador de tipo de 'CrystalDecisions.CrystalReports.Engine.ReportDocument'. ---> System.BadImageFormatException: No se puede cargar el archivo o ensamblado 'CrystalDecisions.ReportAppServer.CommLayer, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304' ni una de sus dependencias. Se ha intentado cargar un programa con un formato incorrecto.
en CrystalDecisions.CrystalReports.Engine.ReportDocument..cctor()
--- Fin del seguimiento de la pila de la excepción interna ---
en CrystalDecisions.CrystalReports.Engine.ReportDocument..ctor()
en CrystalDecisions.CrystalReports.Engine.ReportClass..ctor()
en Sistema_de_Cobro.crpusu..ctor()
en Sistema_de_Cobro.alta_de_usuarios.btnreporgral_Click(Object sender, EventArgs e)
en System.Windows.Forms.Control.OnClick(EventArgs e)
en System.Windows.Forms.Button.OnClick(EventArgs e)
en System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
en System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
en System.Windows.Forms.Control.WndProc(Message& m)
en System.Windows.Forms.ButtonBase.WndProc(Message& m)
en System.Windows.Forms.Button.WndProc(Message& m)
en System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
en System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
en System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
************** Ensamblados cargados **************
mscorlib
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.18408 built by: FX451RTMGREL
Código base: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
Sistema de Cobro
Versión del ensamblado: 1.0.0.0
Versión Win32: 1.0.0.0
Código base: file:///C:/Program%20Files%20(x86)/DeSof%20System/Sistema%20de%20Cobro/Sistema%20de%20Cobro.exe
----------------------------------------
Microsoft.VisualBasic
Versión del ensamblado: 10.0.0.0
Versión Win32: 11.0.50709.17929 built by: FX45RTMREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System.Windows.Forms
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.34250 built by: FX452RTMGDR
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.18408 built by: FX451RTMGREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Drawing
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.18408 built by: FX451RTMGREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Configuration
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.18408 built by: FX451RTMGREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.18408 built by: FX451RTMGREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
Accessibility
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.17929 built by: FX45RTMREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Accessibility/v4.0_4.0.0.0__b03f5f7f11d50a3a/Accessibility.dll
----------------------------------------
System.Runtime.Remoting
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.18408 built by: FX451RTMGREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
FlashControlV71
Versión del ensamblado: 1.0.3187.32366
Versión Win32: 1.0.3187.32366
Código base: file:///C:/Windows/assembly/GAC/FlashControlV71/1.0.3187.32366__692fbea5521e1304/FlashControlV71.dll
----------------------------------------
mscorlib.resources
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.18408 built by: FX451RTMGREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_es_b77a5c561934e089/mscorlib.resources.dll
----------------------------------------
System.Windows.Forms.resources
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_es_b77a5c561934e089/System.Windows.Forms.resources.dll
----------------------------------------
MySql.Data
Versión del ensamblado: 6.9.6.0
Versión Win32: 6.9.6.0
Código base: file:///C:/Program%20Files%20(x86)/DeSof%20System/Sistema%20de%20Cobro/MySql.Data.DLL
----------------------------------------
System.Data
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.18408 built by: FX451RTMGREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Data/v4.0_4.0.0.0__b77a5c561934e089/System.Data.dll
----------------------------------------
System.Core
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.18408 built by: FX451RTMGREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Transactions
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.18408 built by: FX451RTMGREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Transactions/v4.0_4.0.0.0__b77a5c561934e089/System.Transactions.dll
----------------------------------------
System.EnterpriseServices
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.17929 built by: FX45RTMREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.EnterpriseServices/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.EnterpriseServices.dll
----------------------------------------
System.Numerics
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.17929 built by: FX45RTMREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Numerics/v4.0_4.0.0.0__b77a5c561934e089/System.Numerics.dll
----------------------------------------
Microsoft.VisualBasic.PowerPacks.Vs
Versión del ensamblado: 10.0.0.0
Versión Win32: 10.0.30319.1
Código base: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic.PowerPacks.Vs/10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.PowerPacks.Vs.dll
----------------------------------------
System.Data.DataSetExtensions
Versión del ensamblado: 4.0.0.0
Versión Win32: 4.0.30319.17929 built by: FX45RTMREL
Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Data.DataSetExtensions/v4.0_4.0.0.0__b77a5c561934e089/System.Data.DataSetExtensions.dll
----------------------------------------
CrystalDecisions.CrystalReports.Engine
Versión del ensamblado: 13.0.2000.0
Versión Win32: 13.0.13.1597
Código base: file:///C:/Windows/assembly/GAC_MSIL/CrystalDecisions.CrystalReports.Engine/13.0.2000.0__692fbea5521e1304/CrystalDecisions.CrystalReports.Engine.dll
----------------------------------------
CrystalDecisions.Shared
Versión del ensamblado: 13.0.2000.0
Versión Win32: 13.0.13.1597
Código base: file:///C:/Windows/assembly/GAC_MSIL/CrystalDecisions.Shared/13.0.2000.0__692fbea5521e1304/CrystalDecisions.Shared.dll
----------------------------------------
CrystalDecisions.Windows.Forms
Versión del ensamblado: 13.0.2000.0
Versión Win32: 13.0.13.1597
Código base: file:///C:/Windows/assembly/GAC_MSIL/CrystalDecisions.Windows.Forms/13.0.2000.0__692fbea5521e1304/CrystalDecisions.Windows.Forms.dll
----------------------------------------
************** Depuración JIT **************
Para habilitar la depuración Just In Time (JIT), el archivo de configuración de esta
aplicación o equipo (machine.config) debe tener el
valor jitDebugging establecido en la sección system.windows.forms.
La aplicación también se debe compilar con la depuración
habilitada
Por ejemplo:
<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>
Cuando esté habilitada la depuración JIT, cualquier excepción no controlada
se enviará al depurador JIT registrado en el equipo
en lugar de controlarlo mediante el cuadro de diálogo.