SoloCodigo

Buenas,

Tengo el siguiente código y funciona perfectamente, salvo que exporta todas las columnas de mi datagrid mientras que solo necesito que exporte las que son visibles.

¿alguno sabe como conseguirlo?

Gracias!

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'Creamos las variables

        Dim exApp As New Microsoft.Office.Interop.Excel.Application

        Dim exLibro As Microsoft.Office.Interop.Excel.Workbook

        Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet

        Try

            'Añadimos el Libro al programa, y la hoja al libro

            exLibro = exApp.Workbooks.Add

            exHoja = exLibro.Worksheets.Add()

            ' ¿Cuantas columnas y cuantas filas?


            Dim NCol As Integer = DataGridView1.ColumnCount


            Dim NRow As Integer = DataGridView1.RowCount



            'Aqui recorremos todas las filas, y por cada fila todas las columnas

            'y vamos escribiendo.

            For i As Integer = 1 To NCol


                exHoja.Cells.Item(1, i) = DataGridView1.Columns(i - 1).Name.ToString

            Next

            For Fila As Integer = 0 To NRow - 1

                For Col As Integer = 0 To NCol - 1

                    exHoja.Cells.Item(Fila + 2, Col + 1) = DataGridView1.Rows(Fila).Cells(Col).Value()

                Next

            Next

            'Titulo en negrita, Alineado al centro y que el tamaño de la columna

            'se ajuste al texto

            exHoja.Rows.Item(1).Font.Bold = 1

            exHoja.Rows.Item(1).HorizontalAlignment = 3

            exHoja.Columns.AutoFit()

            'Aplicación visible

            exApp.Application.Visible = True

            exHoja = Nothing

            exLibro = Nothing

            exApp = Nothing

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error al exportar a Excel")

        End Try

    End Sub

Muy buenas,

De nuevo me encuentro con un problema con los datagrid.

He creado un segundo form que recupera los datos de una tabla en Access y los filtra en base a un textbox del formulario principal. También tengo unos textbox que al rellenarlos crean un nuevo registro en el datagrid junto a los recuperados de la BBDD.

El problema es que, cuando lo cierro, los datos no se guardan en la tabla de access, quedando solo los que ya existian.

¿alguien podría indicarme como realizar esto?

Este es el código que tengo hasta ahora:

Public Class Form2


    Dim conexion As OleDb.OleDbConnection
    Dim MiDt As New DataTable
    Dim BdS As Windows.Forms.BindingSource
    Dim Scon As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=BBDD.mdb"
   

    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        conexion = New OleDb.OleDbConnection(Scon)
        conexion.Open()
        Try
            Dim MiDa As New OleDbDataAdapter("SELECT siniestro, fecha, obs FROM evolutivo WHERE siniestro = '" & Form1.NumeroTextBox.Text & "'", conexion)
            MiDt.Clear()
            MiDa.Fill(MiDt)
            BdS = New BindingSource
            BdS.DataSource = MiDt
            Me.DataGridView1.DataSource = BdS.DataSource

        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dt As DataTable = DirectCast(DataGridView1.DataSource, DataTable)

        Dim row As DataRow = dt.NewRow()

        'asignas los campos

        dt.Rows.Add(Form1.NumeroTextBox.Text, DateTimePicker1.Text, TextBox2.Text)

    End Sub

End Class
He intentado añadir al evento Button1_Click lo siguiente:

        With MiDa
            .InsertCommand = New System.Data.OleDb.OleDbCommand
            .InsertCommand.Connection = conexion
            .InsertCommand.CommandText = "INSERT INTO evolutivo(siniestro,fecha,obs) VALUES (@siniestro,@fecha,@obs)"
        End With

        Me.MiDa.Update(CType(Me.MiDt, DataTable))
Pero me al ejecutarlo me salta el siguiente error: "No se han especificado valores para algunos de los parámetros requeridos."

Muchas gracias!