Mostrar Mensajes

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.


Mensajes - solilopi

Páginas: [1]
1
Visual Basic .NET / C# / ¿Como cambiar la orientación de las etiquetas del eje X en grafica Excel?
« en: Noviembre 01, 2020, 06:18:37 am »
Hola, buenos días, tengo una gráfica de Excel generada dinámicamente desde una aplicación en Vb.net, el problema que tengo es que los datos del eje X al ser fechas se solapan, por lo que quiero ponerlos en vertical en vez de horizontal.
El código del gráfico es:
Código: [Seleccionar]

'CREAMOS EL GRÁFICO

            Dim chartPage As Chart
            Dim exCharts As ChartObjects = .ActiveSheet.ChartObjects
            Dim myChart As ChartObject = exCharts.Add(462, 2, 416, 400)

            chartPage = myChart.Chart

            'DAMOS VALORES A LOS EJES DE LA GRÁFICA

            Dim coleccion As SeriesCollection = chartPage.SeriesCollection
            Dim serie1, serie2, serie3, serie4 As Excel.Series

            serie1 = coleccion.NewSeries()
            serie1.Name = .ActiveSheet.Range("B1").Value
            serie1.XValues = .ActiveSheet.Range("A2:A32")
            serie1.Values = .ActiveSheet.Range("B2:B32")

            serie2 = coleccion.NewSeries()
            serie2.Name = .ActiveSheet.Range("C1").Value
            serie2.XValues = .ActiveSheet.Range("A2:A32")
            serie2.Values = .ActiveSheet.Range("C2:C32")

            serie3 = coleccion.NewSeries()
            serie3.Name = .ActiveSheet.Range("D1").Value
            serie3.XValues = .ActiveSheet.Range("A2:A32")
            serie3.Values = .ActiveSheet.Range("D2:D32")

            serie4 = coleccion.NewSeries()
            serie4.Name = .ActiveSheet.Range("E1").Value
            serie4.XValues = .ActiveSheet.Range("A2:A32")
            serie4.Values = .ActiveSheet.Range("E2:E32")

            chartPage.ChartType = Excel.XlChartType.xlXYScatterLinesNoMarkers

            chartPage.HasTitle = True
            chartPage.ChartTitle.Characters.Text = "TENSIÓN MENSUAL"
            chartPage.ChartTitle.Position = XlChartElementPosition.xlChartElementPositionAutomatic

            chartPage.HasLegend = True
            chartPage.Legend.Position = XlLegendPosition.xlLegendPositionRight

¿Puede alguien echarme una mano?. Gracias.

2
Visual Basic .NET / C# / Re:Problema con ejecutable VB.net + BBDD Firebird
« en: Enero 05, 2018, 10:15:14 am »
Hola de nuevo, lo he solucionado, era un problema de configuración del servidor de Firebird hay que buscar la línea:
#WireCrypt = Enabled (for client) / Required (for server)
y añadir en el hueco inmediatamente inferior:
WireCrypt = Enabled
Después con sólo reiniciar el servicio ya está todo solucionado.

3
Visual Basic .NET / C# / Re:Problema con ejecutable VB.net + BBDD Firebird
« en: Enero 03, 2018, 11:33:03 am »
Cita de: javierjava en Enero 02, 2018, 06:25:08 pm
tal ves la versión de FirebirdSql.Data.FirebirdClient no sea el mismo que tenias anteriormente
o se deba a la versión de windows 64bits o 32 bits
Hola, sí, es la misma versión del FirebirdSql.Data.FirebirdClient.dll, también es la misma versión de Windows 10 64Bits. No sé!!

4
Visual Basic .NET / C# / Re:Problema con ejecutable VB.net + BBDD Firebird
« en: Enero 02, 2018, 01:03:43 pm »
Cita de: javierjava en Enero 02, 2018, 11:28:02 am
tal vez  el error sea porque no tenes el conector instalado.

aquí los podes descargar por si no lo as instalado

https://firebirdsql.org/en/additional-downloads/


Hola, feliz 2018, sí si lo tengo instalado. Es una cosa muy rara pues no hay manera de que conecte, sin embargo desde Flame Robin conecta sin problemas.
Hasta que reinstalé Windows funcionaba a las 1000 maravillas. Tengo el ODBC, el conector, la dll, todo, pero no hay manera

5
Visual Basic .NET / C# / Problema con ejecutable VB.net + BBDD Firebird
« en: Diciembre 30, 2017, 09:32:32 am »
Hola de nuevo y felices fiestas a todos,Tengo una aplicación que trabaja con una BBDD Firebird y que corría perfectamente antes de reinstalar Windows, tengo el ODBD y desde Flame Robin conecto sin problemas.
Estos son todos los mensajes que muestra al intentar ejecutarla:
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.InvalidOperationException: Connection must be valid and open.
   en FirebirdSql.Data.FirebirdClient.FbConnection.EnsureOpen(FbConnection connection)
   en FirebirdSql.Data.FirebirdClient.FbCommand.CheckCommand()
   en FirebirdSql.Data.FirebirdClient.FbCommand.ExecuteReader(CommandBehavior behavior)
   en FirebirdSql.Data.FirebirdClient.FbCommand.ExecuteReader()
   en Bicicleta_2017.Form1.Entradas_Load(Object sender, EventArgs e)
   en System.EventHandler.Invoke(Object sender, EventArgs e)
   en System.Windows.Forms.Form.OnLoad(EventArgs e)
   en System.Windows.Forms.Form.OnCreateControl()
   en System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   en System.Windows.Forms.Control.CreateControl()
   en System.Windows.Forms.Control.WmShowWindow(Message& m)
   en System.Windows.Forms.Control.WndProc(Message& m)
   en System.Windows.Forms.ScrollableControl.WndProc(Message& m)
   en System.Windows.Forms.Form.WmShowWindow(Message& m)
   en System.Windows.Forms.Form.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.7.2600.0 built by: NET471REL1LAST
    Código base: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
Bicicleta_2017
    Versión del ensamblado: 1.0.0.0
    Versión Win32: 1.0.0.0
    Código base: file:///C:/Users/Josevi/AppData/Local/Apps/2.0/D0C85D9A.9Q2/G8O9904L.8A8/bici..tion_33d55c79380a34db_0003.0001_803ddbdfe2c1e61d/Bicicleta_2017.exe
----------------------------------------
Microsoft.VisualBasic
    Versión del ensamblado: 10.0.0.0
    Versión Win32: 14.7.2556.0 built by: NET471REL1
    Código base: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.7.2556.0 built by: NET471REL1
    Código base: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Core
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.7.2600.0 built by: NET471REL1LAST
    Código base: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Windows.Forms
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.7.2556.0 built by: NET471REL1
    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.Drawing
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.7.2556.0 built by: NET471REL1
    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.7.2556.0 built by: NET471REL1
    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.7.2556.0 built by: NET471REL1
    Código base: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Runtime.Remoting
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.7.2556.0 built by: NET471REL1
    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
----------------------------------------
FirebirdSql.Data.FirebirdClient
    Versión del ensamblado: 5.11.0.0
    Versión Win32: 5.11.0.0
    Código base: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/FirebirdSql.Data.FirebirdClient/v4.0_5.11.0.0__3750abcc3150b00c/FirebirdSql.Data.FirebirdClient.dll
----------------------------------------
System.Data
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.7.2556.0 built by: NET471REL1
    Código base: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_32/System.Data/v4.0_4.0.0.0__b77a5c561934e089/System.Data.dll
----------------------------------------
System.Windows.Forms.resources
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.7.2556.0 built by: NET471REL1
    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
----------------------------------------
System.Data.DataSetExtensions
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.7.2556.0 built by: NET471REL1
    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
----------------------------------------
System.Numerics
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.7.2556.0 built by: NET471REL1
    Código base: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Numerics/v4.0_4.0.0.0__b77a5c561934e089/System.Numerics.dll
----------------------------------------
System.Transactions
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.7.2556.0 built by: NET471REL1
    Código base: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_32/System.Transactions/v4.0_4.0.0.0__b77a5c561934e089/System.Transactions.dll
----------------------------------------
mscorlib.resources
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.7.2556.0 built by: NET471REL1
    Código base: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_es_b77a5c561934e089/mscorlib.resources.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.
¿Podéis decirme algo?. Gracias y Feliz Navidad.

6
Visual Basic .NET / C# / Conectar con Firebird desde Vb.net
« en: Septiembre 06, 2017, 08:43:00 am »
Hola de nuevo, estoy migrando mi Bd de MySQL a Firebird y remodelando el programa que la gestiona y me acabo de topar con un problema que no entiendo puesto que, cuando atacaba a MySQL no daba problemas y ahona sí.
El código que me da problemas es en un botón donde muestro algunas consultas a la Bd. El código es:
Código: [Seleccionar]
Private Sub estadisticas_btn_Click(sender As Object, e As EventArgs) Handles estadisticas_btn.Click

        maximos_gb.Visible = True
        torta_grf.Visible = True

        Dim diasin As Integer = 0
        Dim valor As Decimal
        Dim totaldias As Integer = 0
        Dim totalrecorrido As Integer = 0
        Dim recorrido As String = ""
        Dim maxcalSQL As String = "SELECT MAX(a.calorias) FROM datos a"
        Dim maxDistanciaSQL As String = "SELECT MAX(a.distancia) FROM datos a"
        Dim repetidoSQL As String = "SELECT a.recorrido,COUNT(*)as veces,ROUND(AVG(a.distancia),2) FROM datos a GROUP BY a.recorrido ORDER BY veces desc"
        Dim velmaxSQL As String = "SELECT MAX(a.kmh)FROM datos a"
        Dim distmaxSQL As String = "SELECT SUM(a.distancia) FROM datos a"
        Dim maxdiasSql As String = "dias_sin"

        MiConexion.Open()

        'RELLENAMOS LOS VALORES MÁXIMOS

        Dim comando As FbCommand = New FbCommand(maxcalSQL, MiConexion)
        Dim comando1 As FbCommand = New FbCommand(maxDistanciaSQL, MiConexion)
        Dim comando2 As FbCommand = New FbCommand(repetidoSQL, MiConexion)
        Dim comando3 As FbCommand = New FbCommand(velmaxSQL, MiConexion)
        Dim comando4 As FbCommand = New FbCommand(distmaxSQL, MiConexion)
        Dim comando5 As FbCommand = New FbCommand(maxdiasSql, MiConexion)

        'AÑADO ESTO POR VER SI FUNCIONA PERO NO

        comando.CommandType = CommandType.Text
        comando1.CommandType = CommandType.Text
        comando2.CommandType = CommandType.Text
        comando3.CommandType = CommandType.Text
        comando4.CommandType = CommandType.Text
        comando5.CommandType = CommandType.StoredProcedure

        'HASTA AQUÍ LO AÑADIDO

        Dim lector As FbDataReader
        Dim lector1 As FbDataReader
        Dim lector2 As FbDataReader

        valor = CType(comando.ExecuteScalar(), Decimal)
        maxCal_tb.Text = Convert.ToString(valor)
        valor = 0
        valor = CType(comando1.ExecuteScalar(), Decimal)
        max_tb.Text = Convert.ToString(valor)

        lector = comando2.ExecuteReader
        lector.Read()

        masVeces_tb.Text = lector(0)
        veces_tb.Text = lector(1)
        km_tb.Text = lector(2)

        lector.Close()

        lector1 = comando3.ExecuteReader
        lector1.Read()
        velmax_tb.Text = lector1(0)
        lector1.Close()

        lector2 = comando4.ExecuteReader
        lector2.Read()
        disTotal_tb.Text = lector2(0)

        lector2.Close()

        'MOSTRAMOS LA MAYOR DIFERENCIA ENTRE SALIDAS

        totaldias = CType(comando5.ExecuteScalar(), Integer)
        maxSin_tb.Text = Convert.ToString(totaldias)

        MiConexion.Close()

        'PREPARAMOS EL GRÁFICO ESTADÍSTICO DE LAS SALIDAS

        Dim tortaSql As String = "select * from NPrimeros(7)"
        Dim dtorta As FbCommand = New FbCommand(tortaSql, MiConexion)
        dtorta.CommandType = CommandType.Text
        Dim datorta As New FbDataAdapter(dtorta)
        Dim dttorta As New DataTable

        datorta.Fill(dttorta)

        'LIMPIAMOS LOS PUNTOS X, Y DEL GRÁFICO

        torta_grf.Series(0).Points.Clear()

        'HACEMOS QUE APAREZCAN LOS VALORES SOBRE CADA PORCIÓN

        torta_grf.Series(0).IsValueShownAsLabel = True

        'TIPO DE GRÁFICO

        torta_grf.Series(0).ChartType = SeriesChartType.Doughnut
        torta_grf.Titles.Add("ESTADÍSTICA DE RECORRIDOS")

        'GRÁFICO 3D

        torta_grf.ChartAreas(0).Area3DStyle.Enable3D = True
        torta_grf.ChartAreas(0).BackColor = Color.Khaki
        torta_grf.ChartAreas(0).Area3DStyle.PointDepth = 300

        'COLOR DEL GRÁFICO

        torta_grf.Series(0).Color = Color.RoyalBlue

        'VALORES DE LOS EJES X e Y

        torta_grf.Series(0).XValueMember = "RECORRIDO"
        torta_grf.Series(0).YValueMembers = "veces"

        'ASIGNAMOS EL ORIGEN DE DATOS

        torta_grf.DataSource = dttorta

    End Sub
El error es: System.ArgumentException: 'No se ha encontrado la columna con el nombre 'RECORRIDO'.'

La Bd tiene los campos:
SALIDA_NUM -->Numérico auto incremental.
RECORRIDO--> Varchar(50)
TIEMPO-->Varchar (8)
DISTANCIA--> Decimal (5,2)
CALORIAS--> Decimal (6,2)
KMH--> Decimal (4,2)
FECHA--> Date

¿Alguien puede echarme un cable?. Gracias.

7
Visual Basic .NET / C# / problema con ListView
« en: Junio 15, 2016, 01:26:14 pm »
Hola de nuevo, tengo un ListView que relleno desde una Bd, mi problema es que una de las columnas es una fecha que en la Bd está como tal (formato date) pero al mostrarla en el ListView la muestra como DateTime. ¿Cómo puedo mostrar sólo la fecha?. Gracias.

8
Visual Basic .NET / C# / Pasar listView a Excel
« en: Abril 10, 2014, 11:48:28 am »
Hola tengo un listView donde muestro el resultado de la manipulación de un fichero de texto en columnas y quiero exprotar el resultado a Excel sin resultado, lo tengo hecho con Vb. net en Visual Studio 2010. os agradecería una ayuda. Gracias.

Páginas: [1]