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

Hola,

Tengo dos formularios. En el primero se muestran varios textbox de un mismo registro de access y en el segundo, un formulario de búsqueda apuntando a la misma BBDD que filtra los resultados en base a los criterios que se introduzcan.

Mi problema es que necesito que al seleccionar del datagrid una columna los datos de dicho registro se vuelquen al form principal.
No puedo asignarle que celda del datagrid corresponde a cada textbox porque son muchísimos, la idea es que como se trata de la misma tabla, cargue todo el registro.

Este es el código que tengo.

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Windows.Forms
Imports System.Data.OleDb

Public Class FormBuscar


    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 BindingSource As Windows.Forms.BindingSource = New BindingSource

    Private Sub Aplicar_Filtro()

        conexion = New OleDb.OleDbConnection(Scon)
        conexion.Open()

        Dim MiDa As New OleDbDataAdapter("SELECT General.Numero, General.Nombre, General.Vehículo, General.matricula, General.Ciudad,
General.dni FROM [general] WHERE General.Nombre like '%" & TextBox1.Text.Trim & "%' and General.Vehículo like '%" & TextBox2.Text.Trim & "%'
and General.matricula like '%" & TextBox3.Text.Trim & "%' and General.ciudad like '%" & TextBox4.Text.Trim & "%'", conexion)
        MiDt.Clear()
        MiDa.Fill(MiDt)
        BdS = New BindingSource
        BdS.DataSource = MiDt
        Me.DataGridView1.DataSource = BdS.DataSource

    End Sub

 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Aplicar_Filtro()
    End Sub
End Class
Espero que me puedan ayudar.
Gracias!

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!

Muy buenas ProfesorX,

Siento no ser muy especifico, tampoco es que me entere mucho todavía, la verdad.

La cosa es que no tengo el código, lo único que hice fue incluir un dataGridview con los datos de la tabla2 en el formulario que contiene los datos de la tabla1 esperando que solo mostrara los registros cuyo ID coincidiera en ambas ya que en la BBDD de Access existe una relación entre ellas.

He probado lo siguiente:

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)

        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=NOMBRE BBDD"

        Dim ocom As New OleDb.OleDbConnection(connectionString)
        Dim ds As New DataSet

        Dim OleComand As New OleDbCommand
        Dim da As New OleDbDataAdapter
        da.SelectCommand = OleComand
        da.SelectCommand.Connection = ocom
        '--------------------
        OleComand.CommandText = "SELECT ID_TABLA2, Fecha, OBS FROM TABLA2 WHERE ID_TABLA2=" & ID_TABLA1TextBox.Text

        da.Fill(ds, "seguimiento")

        DataGridView1.DataSource = ds.Tables("seguimiento")
Lo he compuesto a partir de lo que he podido averiguar por ahí pero el datagrid aparece vacío en el form.

Gracias