none
Pasando de Visual basic 6.0 a visual studio 2015 con windows form

    Pregunta

  • Buenas tardes, hace muchos años hice un programa para mi negocio en visual basic 6.0, estudie ingenieria en sistemas hace mucho tiempo pero no lo practico, despues de XP he venido esquivando los inconvenientes en los nuevos windows hasta que ahora me he decidido a actualizar el programa y trabajar con VISUAL STUDIO 2015 COMUNITY, desconozco si es la mejor opción pero ya he empezado a trabajar con los windows form, el detalle es que lógicamente hay muchas cosas nuevas para mí y diferentes en este lenguaje, yo trabajo con una base de datos mysql y en primera instancia no quiero perder nada de la información de hace 15 años que manejo en ella sino sólo actualizar el programa que me ha sido muy eficiente porque lo construí a mi medida.

    El detalle es que necesito trabajar con la base de datos y no se como empezar en Visual Studio, por ahí conseguí información de como conectar la base de datos y cerrarla pero no encuentro ejemplos de como generar una consulta y mostrar los datos, modificarlos y guardarlos nuevamente en la base de datos por lo que acudo a ustedes para que me ayuden con lo básico que sería declarar las instancias para conectar y abrir la base de datos, generar consulta y luego mostrar esos datos ya sea en una tabla o en cualquier otro elemento; un ejemplo de lo que hacia en Visual basic
        Set Base_Datos = New ADODB.Connection
        Set Hoja_Trabajo = New ADODB.Recordset
        
        Base_Datos.ConnectionString = "driver={MySQL ODBC 3.51 Driver}; Option=3;" _
        & "server=OFICINA;uid=root;pwd=liberiano;database=ciclo taller frank;connection="
                
        Base_Datos.Open
        
        ConsultaSql = "SELECT MAX(Numero_Orden) AS Ultimo FROM Encabezado_Hoja_Trabajo"
        
        Set Hoja_Trabajo = Base_Datos.Execute(ConsultaSql)
        
        If Hoja_Trabajo.BOF = True Then
            Codigo = 100
        Else
            Codigo = Hoja_Trabajo!Ultimo + 1
        End If

        Hoja_Trabajo.Close
        Base_Datos.Close
        Set Hoja_Trabajo = Nothing
        Set Base_Datos = Nothing

    viernes, 11 de noviembre de 2016 20:42

Respuestas

  • Hola:
    El codigo que has puesto, convertido a VB.NET seria asi

        Private Function lF_iValorMaximo() As Integer
            Try
                Dim lsCadenaMySQL As String = "data source=TU_DIRECCION_IP;user id=root;password='TU_PASSWORD';database=TU_BASE"
                Dim loResultado As Object = Nothing
                Using loConexion As New MySqlConnection(lsCadenaMySQL)
                    Dim lsQuery As String = "SELECT MAX(Numero_Orden) AS Ultimo FROM Encabezado_Hoja_Trabajo"
                    Using loComando As New MySqlCommand(lsQuery, loConexion)
                        loConexion.Open()
                        loResultado = loComando.ExecuteScalar()
                    End Using
                End Using
                If IsDBNull(loResultado) = True Then
                    Return 1
                Else
                    Return CInt(loResultado) + 1
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message, "lF_iValorMaximo", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Return 0
            End Try
        End Function

    Su uso seria : Me.txtULTIMO.Text = Convert.ToString(lF_iValorMaximo())

    Un saludo desde Bilbo
    Carlos

    sábado, 12 de noviembre de 2016 7:49
  • Hola Frank Jarquin

    Podrías utilizar ADO.NET guiate de la nutrida información que MSDN nos proporciona ADO.NET

    En este post tienes un ejemplo sencillo: Insertar, Editar, COnsultar MySql y C#

    Suerte y saludos


    Javier

    sábado, 12 de noviembre de 2016 2:19

Todas las respuestas

  • Hola Frank Jarquin

    Podrías utilizar ADO.NET guiate de la nutrida información que MSDN nos proporciona ADO.NET

    En este post tienes un ejemplo sencillo: Insertar, Editar, COnsultar MySql y C#

    Suerte y saludos


    Javier

    sábado, 12 de noviembre de 2016 2:19
  • Hola:
    El codigo que has puesto, convertido a VB.NET seria asi

        Private Function lF_iValorMaximo() As Integer
            Try
                Dim lsCadenaMySQL As String = "data source=TU_DIRECCION_IP;user id=root;password='TU_PASSWORD';database=TU_BASE"
                Dim loResultado As Object = Nothing
                Using loConexion As New MySqlConnection(lsCadenaMySQL)
                    Dim lsQuery As String = "SELECT MAX(Numero_Orden) AS Ultimo FROM Encabezado_Hoja_Trabajo"
                    Using loComando As New MySqlCommand(lsQuery, loConexion)
                        loConexion.Open()
                        loResultado = loComando.ExecuteScalar()
                    End Using
                End Using
                If IsDBNull(loResultado) = True Then
                    Return 1
                Else
                    Return CInt(loResultado) + 1
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message, "lF_iValorMaximo", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Return 0
            End Try
        End Function

    Su uso seria : Me.txtULTIMO.Text = Convert.ToString(lF_iValorMaximo())

    Un saludo desde Bilbo
    Carlos

    sábado, 12 de noviembre de 2016 7:49
  • Muchas gracias Javier.
    sábado, 12 de noviembre de 2016 13:51
  • Muchas gracias Juan Carlos Herrero, necesito ese empujoncito para arrancar e ir entendiendo este nuevo lenguaje. (y)
    sábado, 12 de noviembre de 2016 13:54