none
Guardar datos en BD según condición RRS feed

  • Pregunta

  • Hola a todos.

    Estoy empezando a desarrollar un pequeño programa en VB.net 

    Tengo la necesidad de guardar en mi BD access los datos de un datagridview previamente importado desde una tabla excel.

    El datagridview donde importo estos datos tiene ya varias columnas enlazadas a datos. Quiero que una de esas columnas haga de condición para que esa fila sea exportada a la BD. Osea que si una de esas columnas tiene un dato, exporte la fila sino no.

    No encuentro nada por ahí similar a esto, a ver si alguien me puede echar una cable.

    Gracias, saludos.


    _MSA_

    martes, 20 de febrero de 2018 20:55

Respuestas

  • Hola:
    Si tienes el datagridview cargado, prueba con algo como esto
               
           Try
               Dim lsQuery As String = "Insert Into TU_TABLA (CAMPO1, CAMPO2) Values (@Campo1, @Campo2)"
                Using MiTransaccion As New TransactionScope
                    Using loConexion As New OledbConnection(TU_CADENA_DE_CONEXION)
                        loConexion.Open()   ' abrir conexión
                        For Each Fila As DataGridViewRow In Me.dgvDatos.Rows
                           If Fila.Cells("CAMPO_COMPARACION")) = True Then
                              ' crear comando
                              Using loComando As New OledbCommand(lsQuery, loConexion)
                                  'añadir parametros al comando
                                  loComando.Parameters.Add(New OledbParameter("@Campo1", Fila.Cells("CAMPO1"))
                                  loComando.Parameters.Add(New OledbParameter("@Campo2", Fila.Cells("CAMPO2"))
                                  loComando.ExecuteNonQuery()
                              End Using
                           End If
                        Next
                    End Using
                    MiTransaccion.Complete()
                End Using
            Catch Exp As Exception
                MessageBox.Show(Exp.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
           
    Un saludo desde Bilbo
    Carlos

    martes, 20 de febrero de 2018 23:51