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 - anmaroso

Páginas: 1 [2]
21
Aprender a programar desde cero / Re:Activar un form menú
« en: 13 de Octubre 2015, 12:44 »
Hola Mastermind,

Lo ejecuto con el triangulito verde que es lo mismo que F5.

He dado con ello. Ya puedes perdonar el tiempo que te he hecho perder por una simpleza.
El fallo estaba en las propiedades del proyecto que estaba indicado que la pantalla de presentación fuese MENU.
De momento al poner ninguna funciona.

Muchas gracias y saludos.

22
Aprender a programar desde cero / Re:Activar un form menú
« en: 13 de Octubre 2015, 10:22 »
Buenos días.

Hola Mastermind:

Clickeando en el botón "aceptar" del formulario LoginForm1.

He dado con ello. Ya puedes perdonar el tiempo que te he hecho perder por una simpleza.
El fallo estaba en las propiedades del proyecto que estaba indicado que la pantalla de presentación fuese MENU.
De momento al poner ninguna funciona.

Muchas gracias y saludos.

23
Aprender a programar desde cero / Insertar datos DataGridView consulta base datos Access SELECT WHERE con variable
« en: 12 de Octubre 2015, 16:39 »
Código: [Seleccionar]

Public Class FTRANSF_C
    Dim vpf1 As Date
    Dim strcnn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                           "Data Source=C:\GESTION\GESTION.mdb"
    Dim cnn As OleDb.OleDbConnection
    '    Dim orden As OleDb.OleDbCommand
    Dim da As OleDb.OleDbDataAdapter
    Dim ds As DataSet

    Private Sub FTRANSF_C_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        vpf1 = FTRANSF.vpf
        MsgBox(vpf1)
        FTRANSF.Close()
    End Sub

    Private Sub vencimiento(ByVal vpf1 As Date)
        cnn = New OleDb.OleDbConnection(strcnn)
        OleDbSelectCommand1.CommandText = "SELECT TFACTURASR.VENCIMIENTO, " & _
             "TPROVEEDORES.NOMBRE,TFACTURASR.IMPORTE,TFACTURASR.IMPORTET " & _
             "TFACTURASR.FACTURANE,TFACTURASR.CONCEPTOP,TFCTURASR.FECHAE, " & _
             "TFACTURASR.FACTURANR,TFACTURASR.FECHAP " & _
             "FROM TFACTURASR INNER JOIN TPROVEEDORES ON " & _
             "TPROVEEDORES.CLAVE = TFACTURASR.CPROVEEDOR " & _
             "WHERE TFACTURASR.VENCIMIENTO =" & vpf1 & " " & _
             "AND TFACTURASR.NOPAGAR = 0 AND TFACTURASR.PAGADA = FALSE " & _
             "AND TPROVEEDORES.NOPAGAR = 0 AND TFACTURASR.FPAGO LIKE '" & 4 & "%'" & _
             "ORDER BY TFACTURASR.VENCIMIENTO, TPROVEEDORES.NOMBRE"
        ds = New DataSet
        cnn.Open()
        da = New OleDb.OleDbDataAdapter
        OleDbSelectCommand1 = New OleDb.OleDbCommand
        OleDbUpdateCommand1 = New OleDb.OleDbCommand
        OleDbInsertCommand1 = New OleDb.OleDbCommand
        OleDbDeleteCommand1 = New OleDb.OleDbCommand
        da.SelectCommand = OleDbSelectCommand1
        da.UpdateCommand = OleDbUpdateCommand1
        da.InsertCommand = OleDbInsertCommand1
        da.DeleteCommand = OleDbDeleteCommand1
        OleDbSelectCommand1.Connection = OleDbConnection1
        OleDbUpdateCommand1.Connection = OleDbConnection1
        OleDbInsertCommand1.Connection = OleDbConnection1
        OleDbDeleteCommand1.Connection = OleDbConnection1
        da.Fill(ds, "TPROVEEDORES", "TFACTURASR")
        DG1.DataSource = ds.Tables("TPROVEEDORES", "TFACTURASR")
        DG1.Columns("VENCIMIENTO").HeaderText = "VENCIMIENTO"
        DG1.Columns("NOMBRE").HeaderText = "NOMBRE"
        DG1.Columns("IMPORTE").HeaderText = "IMPORTE"
        DG1.Columns("IMPORTET").HeaderText = "IMPORTET"
        DG1.Columns("FACTURANE").HeaderText = "FACTURANE"
        DG1.Columns("CONCEPTOP").HeaderText = "CONCEPTOP"
        DG1.Columns("FECHAE").HeaderText = "FECHAE"
        DG1.Columns("FACTURANR").HeaderText = "FACTURANR"
        DG1.Columns("FECHAP").HeaderText = "FECHAP"
        DG1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    End Sub

    Private Sub BS_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS.Click
        Me.Close()
    End Sub


End Class


Buenas tardes.
Quisiera saber si el código precitado es correcto para pasar datos a un DataGridView, basado en una consulta con variable incluida.
El código está basado siguiendo las instrucciones de un libro y a parte de que no me funciona, creo que es excesivo... tiene que haber algo más conciso.

Muchas gracias y saludos.

24
Aprender a programar desde cero / Re:Activar un form menú
« en: 11 de Octubre 2015, 23:22 »
Lamento indicar que a mí no me funciona. Es obvio que algo se me escapa... algo tengo mal y no sé que es. He puesto el mismo código que a ti te funciona.
Lo paso a ver, aunque no creo que sea problema de código.

Código: [Seleccionar]
Public Class MENU
    ' Private m_frm As FTRANSF = New FTRANSF()
    '  Private m_frm As FCLIEN = New FCLIEN()
    ' Private m_frm As FACREE = New FACREE()
    'Private m_frm As FALBA = New FALBA()

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub CLIENTES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CLIENTES.Click
        FTRANSF.Show() ' clientes_load()
    End Sub

    Private Sub ACREEDORES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ACREEDORES.Click
        'acreedores_load
    End Sub

    Private Sub ALBARANES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ALBARANES.Click
        'albaranes_load
    End Sub

    Private Sub CAJA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAJA.Click
        'caja_load
    End Sub

    Private Sub CAJAP_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAJAP.Click
        ' cajap_load
    End Sub

    Private Sub CARGOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CARGOS.Click
        ' cargos_LOAD
    End Sub

    Private Sub CHEQUES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CHEQUES.Click
        ' cheques_load
    End Sub

    Private Sub CODIGOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CODIGOS.Click
        ' codigosc_load
    End Sub

    Private Sub DESTINOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DESTINOS.Click
        ' destinos_load
    End Sub

    Private Sub DIVISAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DIVISAS.Click
        ' divisas_load
    End Sub

    Private Sub ENTIDADES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ENTIDADES.Click
        ' entidades load
    End Sub

    'linea 50
    Private Sub FACTURAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FACTURAS.Click
        'facturas_load
    End Sub

    Private Sub FACTURASV_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FACTURASV.Click
        'facturasv_load
    End Sub

    Private Sub GESTIONC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GESTIONC.Click
        ' gestionc_load
    End Sub

    Private Sub GESTIONCC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GESTIONCC.Click
        ' gestioncc_load
    End Sub

    Private Sub INGRESOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INGRESOS.Click
        ' ingresos_load
    End Sub

    Private Sub PEDIDOSCLIENTES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PEDIDOSCLIENTES.Click
        ' pedidos_load
    End Sub

    Private Sub PROVEEDORES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PROVEEDORES.Click
        ' proveedores_load
    End Sub

    Private Sub RECIBOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RECIBOS.Click
        ' recibos_load
    End Sub

    Private Sub SALIRToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SALIR.Click
        MyBase.Finalize()
    End Sub

    '  Protected Overrides Sub Finalize()
    '     MyBase.Finalize()
    'End Sub

    Private Sub TIVA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TIVA.Click
        ' tiva_load
        MsgBox("HOLA")
    End Sub

    Private Sub TRANSFERENCIAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TRANSFERENCIAS.Click

        ' m_frm.Show()
        'FTRANSF.Show()

    End Sub

    Private Sub TRANSPORTISTAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TRANSPORTISTAS.Click
        'transportistas_load
    End Sub

    Private Sub VALIDARF_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles VALIDARF.Click
        'validad_load
    End Sub

    Private Sub COBROS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COBROS.Click
        MsgBox("COBROS")
    End Sub

End Class

Código: [Seleccionar]
Option Explicit On
Option Strict On
Imports System
Imports System.Object
Imports System.Data
Imports System.String
Imports Microsoft
Imports Microsoft.VisualBasic

Module Module1
    Public mfrm As MENU = New MENU()

    Sub Main()
        mfrm.Show()
    End Sub

End Module

25
Aprender a programar desde cero / Re:Activar un form menú
« en: 11 de Octubre 2015, 22:13 »
Buenas noches: Voy a probarlo de la forma que me indicas a ver si así logro que funcione.
Ya te mantendré informado.

26
Aprender a programar desde cero / Re:Activar un form menú
« en: 08 de Octubre 2015, 10:49 »
Cita de: Mastermind en 07 de Octubre 2015, 13:25
Hola he intentado ejecutarlo pero me indica que falta la clase FTRANSF...

Buenos días:

Eso que falta es un formulario al que se accede cuando clicleas PAGO>TRANSFERENCIAS
Se puede desactivar o si quieres te lo envío, pero para ver el menú no hace falta.

Yo estoy venga probar y solo lo puedo ejecutar cuando lo pongo desde inicio, si lo pongo que acceda desde otro formulario no hay forma.

Saludos.

27
Aprender a programar desde cero / Re:Activar un form menú
« en: 05 de Octubre 2015, 16:34 »
Cita de: Mastermind en 05 de Octubre 2015, 13:55
Hola anmaroso

¿puedes poner el código de la clase MENU y de otras clases o módulos si existen?

Gracias:

Ahí va.
Código: [Seleccionar]
Public Class MENU
    Private m_frm As FTRANSF = New FTRANSF()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub CLIENTES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CLIENTES.Click
        ' clientes_load()
    End Sub

    Private Sub ACREEDORES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ACREEDORES.Click
        'acreedores_load
    End Sub

    Private Sub ALBARANES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ALBARANES.Click
        'albaranes_load
    End Sub

    Private Sub CAJA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAJA.Click
        'caja_load
    End Sub

    Private Sub CAJAP_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAJAP.Click
        ' cajap_load
    End Sub

    Private Sub CARGOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CARGOS.Click
        ' cargos_LOAD
    End Sub

    Private Sub CHEQUES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CHEQUES.Click
        ' cheques_load
    End Sub

    Private Sub CODIGOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CODIGOS.Click
        ' codigosc_load
    End Sub

    Private Sub DESTINOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DESTINOS.Click
        ' destinos_load
    End Sub

    Private Sub DIVISAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DIVISAS.Click
        ' divisas_load
    End Sub

    Private Sub ENTIDADES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ENTIDADES.Click
        ' entidades load
    End Sub

    'linea 50
    Private Sub FACTURAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FACTURAS.Click
        'facturas_load
    End Sub

    Private Sub FACTURASV_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FACTURASV.Click
        'facturasv_load
    End Sub

    Private Sub GESTIONC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GESTIONC.Click
        ' gestionc_load
    End Sub

    Private Sub GESTIONCC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GESTIONCC.Click
        ' gestioncc_load
    End Sub

    Private Sub INGRESOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INGRESOS.Click
        ' ingresos_load
    End Sub

    Private Sub PEDIDOSCLIENTES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PEDIDOSCLIENTES.Click
        ' pedidos_load
    End Sub

    Private Sub PROVEEDORES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PROVEEDORES.Click
        ' proveedores_load
    End Sub

    Private Sub RECIBOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RECIBOS.Click
        ' recibos_load
    End Sub

    Private Sub SALIRToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SALIR.Click
        MyBase.Finalize()
    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub

    Private Sub TIVA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TIVA.Click
        ' tiva_load
        MsgBox("HOLA")
    End Sub

    Private Sub TRANSFERENCIAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TRANSFERENCIAS.Click

        m_frm.Show()
        'FTRANSF()

    End Sub

    Private Sub TRANSPORTISTAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TRANSPORTISTAS.Click
        'transportistas_load
    End Sub

    Private Sub VALIDARF_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles VALIDARF.Click
        'validad_load
    End Sub

    Private Sub COBROS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COBROS.Click
        MsgBox("COBROS")
    End Sub
End Class
 

28
Aprender a programar desde cero / El formulario desaparece en Visual Basic Activar un form menú
« en: 05 de Octubre 2015, 12:43 »
Me abre el MENU pero no se para, sigue y finaliza el proceso. ¿Qué puede estar ocurriendo?

Código: [Seleccionar]
Option Explicit On
Option Strict On
Imports System
Imports System.Object
Imports System.Data
Imports System.String
Imports Microsoft
Imports Microsoft.VisualBasic
Module Module1
    Public mfrm As MENU = New MENU()
    Sub Main()
        mfrm.Show()
    End Sub
 

29
Comunidad / Presentación jubilado que pretende aprender programación con práctica autodidact
« en: 05 de Octubre 2015, 12:32 »
Buenos días:

Soy un jubilado que pretende aprender Visual Basic NET pues de siempre me ha gustado la programación, lo hacía hace bastantes años con Open Acces en MS2. Ya sé que es un poco tarde pero ahora el tiempo me lo permite.

Mi lema es aprender con la práctica, así, en plan autodidacta, aprendí anteriormente, no obstante me leeré todos los manuales. Ya estoy leyendo un libro que compré.

Solo ruego un poco de respeto y paciencia.

Muchas gracias y saludos para tod@s.

Muchas gracias

Páginas: 1 [2]

Sobre la educación, sólo puedo decir que es el tema más importante en el que nosotros, como pueblo, debemos involucrarnos.

Abraham Lincoln (1808-1865) Presidente estadounidense.

aprenderaprogramar.com: Desde 2006 comprometidos con la didáctica y divulgación de la programación

Preguntas y respuestas

¿Cómo establecer o cambiar la imagen asociada (avatar) de usuario?
  1. Inicia sesión con tu nombre de usuario y contraseña.
  2. Pulsa en perfil --> perfil del foro
  3. Elige la imagen personalizada que quieras usar. Puedes escogerla de una galería de imágenes o subirla desde tu ordenador.
  4. En la parte final de la página pulsa el botón "cambiar perfil".