Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Hola, tengo un problema para visualizar archivos de texto dentro de un formulario.

Dentro de un formulario tengo instalado un botón, un listview y un control adobe reader axacropdf. De este modo, al pulsar el botón,  el listview se carga con los archivos pdf que tengo en una carpeta, y al ir seleccionando cada uno de esos archivos en el listview, puedo visualizar el contenido de cada pdf en el control axacropdf.

El problema que tengo es que me gustaría poder hacer lo mismo pero con archivos de texto con extensión .doc (Microsoft Office Word). En este caso ¿que control habría que instalar en el formulario para poder visualizar este tipo de archivos?

Trabajo con el Visual studio 2010 express y con Visual Basic.

Gracias y saludos.

Hola a tod@s,

Estoy haciendo una aplicación con Visual Basic 2010 Express. En dicha aplicación tengo un formulario con un datagridview, un textbox y un botón. A parte en un base de datos MySQL tengo varias tablas (TABLA1, TABLA2, TABLA3, TABLA4, TABLA5, etc.)
Con el evento botón_click enlazo el datagridview con la tabla de la base de datos MySQL que tiene el nombre que me aparece en el textbox (el cual puedo ir cambiando mediante otro evento). Es decir, según el nombre de la tabla que aparece en el textbox y accionando el botón consigo que el datagridview1 se enlace con los datos de la tabla que me interesa.

Para el caso de la TABLA1, esto lo consigo mediante el siguiente código.


Private mysqldataadapterTABLA1 As MySqlDataAdapter
Private WithEvents xsTABLA1 As New BindingSource

Dim ms As New MySqlConnection("server= localhost; user id = root; password =; database = PRIMERA")

Private Sub cargar_registrosTABLA1(ByVal sql As String, ByVal dv As DataGridView)

        Try
            MysqldataadapterTABLA1 = New MySqlDataAdapter(sql, ms)

            Dim mysqlcommandbuilder As New MySqlCommandBuilder(mysqldataadapterTABLA1)
            Dim tablaTABLA1 As New DataTable()

            MysqldataadapterTABLA1.Fill(tablaTABLA1)
            XsTABLA1.DataSource = tablaTABLA1

            bEdit = False
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Textbox1.text = “Tabla 1” Then
                cargar_registrosTABLA1("select * from TABLA1", datagridview1)
                datagridview1.DataSource = xsTABLA1
End if

End sub


Seguidamente, mediante otro botón, lo que hago es insertar una fila en el datagridview1 (a continuación de la fila que tengo seleccionada) y en la fila que he creado nueva introduzco datos de un tabla llamada TABLADATOS (con las mimas columnas que la TABLA1).

Esto lo hago con el siguiente código.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim dt As DataTable = DirectCast(xs.TABLA1, DataTable)

Dim row As DataRow = dt.NewRow

Dim con As New MySqlConnection("server= localhost; user id = root; password =; database = PRIMERA")

Dim comando As New MySqlCommand("Select * from TABLADATOS where referencia = '" & DataGridView1.CurrentRow.Cells(1).Value & "'", con)

            Dim da As MySqlDataReader

            con.Open()

            da = comando.ExecuteReader()

            da.Read()

            With row
                .Item("COLUMNA1") = da.Item("1")
                .Item("COLUMNA2") = da.Item("2")
                .Item("COLUMNA5") = da.Item("3")
                .Item("COLUMNA6") = da.Item("4")

            End With

            Dim pos As Int32 = xs2.Position


                dt.Rows.InsertAt(row, pos + 1)
                con.Close()

End Sub



El problema que no consigo solucionar es el siguiente:

Según con que tabla tengo cargado el datagridview1, cuando necesito añadir la fila nueva, tengo que escribir el segundo código (PRIVATE SUB BUTTON2_CLICK) tantas veces como tablas tengo, cambiado el valor de la propiedad BINDINGSOURCE (XS.TABLA1) por el que corresponde a cada tabla.

Mi idea es que en un textbox2, aparezca el nombre del bindingsource correspondiente al nombre de la tabla que aparece en textbox1. Esto lo he conseguido,  pero a la hora de hacer la siguiente sustitución:

Dim dt As DataTable = DirectCast(textbox2.text, DataTable)
Dim pos As Int32 = textbox2.text.Position


me sale el error "Datasource no es miembro de string".


¿Alguien ha tenido el mismo problema alguna vez? ¿Podrían ayudarme a solucionarlo?
Gracias y saludos,

Hola,
Lo siento, ya es la segunda vez que me pasa. Trabajo con lenguaje visual basic y con Visual Basic Studio 2010 express.
Gracias por la alternativa que me has pasado, pero ya lo había intentado y no he conseguido que funcione.
En cuanto a la segunda alternativa que me has dado, ¿podrías especificar un poco más como se podría hacer? como se puede pasar  de rtf a HTML en Visual Basic? Gracias.
Saludos.

Hola Alex, al final he podido encontrar una función que pasar los datos de la columna de la hoja excel al datagridview. No consigo que funciona la función insertar código, así que lo escribo a continuación tal cual:

'Primero en el formulario tengo un botón desde donde llama la función que inserta la columna excel

 Private Sub Button70_Click(sender As System.Object, e As System.EventArgs) Handle Button70.Click
     
        Dim col As New DataGridViewTextBoxColumn
        DataGridView42.Columns.Add(col)
       ImportExcellToDataGridView("\\server\Docs\Publicos\coeficiente\Viscosidad.xlsx",   DataGridView42)

    End Sub

'A continuación pongo la función ImportExceltoDataGridview, la cual pasa los datos de la columna A de la  hoja 2 de libro excel al datagridview.


    Public Function ImportExcellToDataGridView(ByRef path As String, ByVal Datagrid As DataGridView)

        Try
            Dim stConexion As String = ("Provider=Microsoft.ACE.OLEDB.12.0;" & ("Data Source=" & (path & ";Extended Properties=""Excel 12.0;Xml;HDR=NO;IMEX=2"";")))
            Dim cnConex As New OleDb.OleDbConnection(stConexion)
            Dim Cmd As New OleDb.OleDbCommand("Select * From [Hoja2$]")
            Dim Ds As New DataSet
            Dim Da As New OleDb.OleDbDataAdapter
            Dim Dt As New DataTable
            cnConex.Open()
            Cmd.Connection = cnConex
            Da.SelectCommand = Cmd
            Da.Fill(Ds)
            Dt = Ds.Tables(0)
            Datagrid.Columns.Clear()
            Datagrid.DataSource = Dt
            cnConex.Close()

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try
        Return True
End Function

Espero pueda servirle a alguien. Gracias y saludos.

Hola de nuevo,
he conseguido encontrar el error. Había que poner
For a = 1 to a +1
Ahora me copia la columna completamente en el datagridview.

  Dim a As Integer

        For j = 0 To DataGridView42.RowCount - 1
            For a = 1 To a + 1
                DataGridView42.Rows(j).Cells(0).Value = CDbl(oSheet1.Range("A" & a).Value)
            Next a
        Next j
Saludos.

Hola Alex,
es cierto, debí explicarlo con más detalle.
He seguido buscando y he conseguido, más o menos, obtener un gráfico de dispersión con lenguaje visual basic. Estoy haciendo la aplicación con Visual Basic 2010 Express. Tengo un Form donde he puesto un control Combobox, un control Button y un control Chart.  En una base de datos MySQl tengo una tabla con nombre 'grafico4' donde he puesto cinco columnas. Los nombres de cuatro de las columnas, son los elementos que he introducido en el Combobox. La idea es que al seleccionar un elemento del combobox y darle al control Button, en el grafico Chart1 me represente en el eje X la columna 1 de la tabla 'grafico4' y en el eje Y la columna de la tabla 'grafico4' que coincide con el elemento seleccionado en el Combobox. A continuación pongo el código:

Private Sub Button67_Click(sender As System.Object, e As System.EventArgs) Handles Button67.Click

Chart1.Series.Add(ComboBox281.Text)
        Chart1.Titles.Clear()   
        Chart1.Series(ComboBox281.Text).ChartType = SeriesChartType.Line
        Dim stConexion1 As New MySqlConnection("server= localhost; user id = root; password =; database = reyes") 'este es el codigo que funciona para office 2007 y 2010
        Dim READER As MySqlDataReader
        stConexion1.Open()
        Dim query As String
        query = "Select * From grafico4"
        Dim Command As New MySqlCommand(query, stConexion1)
        READER = Command.ExecuteReader
        While READER.Read
            Chart1.Series(ComboBox281.Text).Points.AddXY(READER.GetString(ComboBox281.Text), READER.GetString(ComboBox281.Text & "Log"))

        End While
        Chart1.ChartAreas(0).AxisX.Title = "Temperatura (ºC)"
       Chart1.ChartAreas(0).AxisX.TitleFont = New System.Drawing.Font("Segoe UI", 12, FontStyle.Bold)
       Chart1.ChartAreas(0).AxisX.TitleForeColor = Color.Maroon
        Chart1.ChartAreas(0).AxisX.TitleAlignment = StringAlignment.Center
        Chart1.ChartAreas(0).AxisX.IsMarginVisible = False
        Chart1.ChartAreas(0).AxisY.Title = "Fusión"
        Chart1.ChartAreas(0).AxisY.TitleFont = New System.Drawing.Font("Segoe UI", 12, FontStyle.Bold)

       Chart1.ChartAreas(0).AxisY.TitleForeColor = Color.Maroon
        Chart1.ChartAreas(0).AxisY.TitleAlignment = StringAlignment.Center
        Chart1.ChartAreas(0).AxisY.IsMarginVisible = False

        Chart1.Titles.Add(0)
        Chart1.Titles(0).Text = "Curva Fusión - Temperatura"
    Chart1.Titles(0).Font = New System.Drawing.Font("Segoe UI", 15, FontStyle.Bold)
        Chart1.Titles(0).ForeColor = Color.Maroon

        stConexion1.Close()

Hola a tod@s, he terminado de realizar una aplicación con lenguaje visual basic que conecta con una base de datos MySQL. La aplicación la he realizado con Visual Studio Express 2010, que me descargué gratuitamente de la página de visual studio. Me gustaría poder ampliar y mejorar la aplicación y poder realizar otras, por lo que he pensado en adquirir algún paquete de pago de visual studio. ¿Alguien podría aconsejarme cuál adquirir? He entrado en la página de microsoft pero no consigo decidirme por ninguno.

Gracias y saludos.

Hola, estoy haciendo una nueva aplicación con visual studio. Comencé utilizando las herramientas gratuitas que ofrece Visual Studio 2010 Express, pero hace poco me descargue las herramientas de Devcomponents Dotnetbar. Lo que sucede es que si en el Form sólo utilizo las herramientas de Visual Studio 2010 Express no tengo problema, pero si utilizo en el Form herramientas de Visual Studio 2010 Express y herramientas de DevComponents Dotnetbar, entonces la aplicación no me funciona poruqe todas las instrucciones que he puesto en el Form1_load es como si no hiciera ni caso.
Mi pregunta es si ¿es posible en un mismo Formulario utilizar herramientas de distintos paquetes? o por el contrario ¿sólo se puede utilizar herramientas de DevComponents o herramientas de Visual Studio?

Espero que haberme podido explicar bien y  que alguien pueda aclararme mis dudas.

Saludos.

Hola, estoy intentando pasar los datos de un datagridview a otro datagridview, de forma que los HeaderText del primer datagridview se me copian en las filas de la primera columna del segundo datagridview (sería algo así como transponer filas por columnas en los datagridviews)

Como el primer datagridview tiene muchas columnas, me gustaría poder hacerlo mediante bucles: el datagridview25 es el que tiene los 79 Headertext que hay que poner en las filas de la primera columna del datagridview31


For i = 0 To DataGridView25.ColumnCount - 1

            Dim j As Integer

            For j = 0 To DataGridView31.RowCount - 1
                DataGridView31.Rows(j + 1).Cells(0).Value = DataGridView25.Columns(i).HeaderText
            Next


        Next

Pero cuando aplico el código me sale error:
El índice estaba fuera del intervalo. Debe ser un valor no negativo e inferior al tamaño de la colección.
Nombre del parámetro: index


Básicamente lo que necesito conseguir es lo siguiente

datagridview25

id    nombre      código       color
0      Luis             95           azul
1      José            102          verde
2      Eva             200          rojo



datagridview31

nombre     Luis
código       95
color          azul

¿Alguien sabría que hay incorrecto en el bucle? Gracias.

Hola,
Tengo que sumar una fila en un datagridview similar a la siguiente:

Columna 1  columna 2    Columna 3   Columna 4      Columna 5
      As.            Re.                1,2             0,15
      Po.            Fu.                0,12
      Po.            Re.                                  4,5
      As.            Lo.                1,56            3,56

Los valores de la columna 1 y 2 son letras pero los valores de las columnas 3 y 4 son numéricos. La idea es que cuando modificó o introduzco un dato en las columnas 3 o 4, automáticamente aparezca la suma en la columna 5.

El datagridview esta enlazado a una base de datos sql.

He estado buscando por los foros y aparte de que todo lo que encuentro es para sumar columnas, no se cómo aplicar la función SUM a mi caso particular.

Alguien sabe o tiene alguna idea de cómo podría hacerse esto?

Espero alguien pueda ayudarme...