Quantcast
Channel: COMO MANDAR REGISTROS A EXCEL
Viewing all articles
Browse latest Browse all 7

COMO MANDAR REGISTROS A EXCEL

0
0

Hola amigos me podrian ayudar estoy haciendo un modulo donde quiero insertar registros desde una hoja de excel pero lo que estoy intentando hacer es lo siguente,

 

tengo una tabla llamada PARTES donde estoy validando si existe la parte el la tabla PARTES insertame los valores que encuentres identicos.

este es el codigo que estoy utilizando.

            Try
                Using conn As New SqlConnection(ConfigurationManager.ConnectionStrings("WindowsApplication1.My.MySettings.ComprasConnectionString").ToString())
                    cmdguardar.CommandText = "INSERT INTO Inv_paneles(prensa, parte, mes, año, total, NUMERO) VALUES (@prensa, @parte, @mes, @año, @total, @NUMERO)"
                    Dim n As Integer = 0
                    For j = 0 To dsexcel.Tables(0).Rows.Count - 1
                        cmdexis.CommandText = "SELECT COUNT(*) " & _
                                                "FROM partes " & _
                                               "WHERE parte= @NUMERO"
                        cmdexis.Connection = conn
                        cmdexis.Parameters.Add(New SqlParameter("@NUMERO", SqlDbType.VarChar, 50)).Value = dsexcel.Tables(0).Rows(j)("NUMERO DE PARTE").ToString

                        conn.Open()
                        Dim count As Integer = Convert.ToInt32(cmdexis.ExecuteScalar)
                        cmdexis.Parameters.Clear()
                        conn.Close()
                        If count <> 0 Then
                            cmdguardar.Connection = conn
                            cmdguardar.Parameters.Add(New SqlParameter("@parte", SqlDbType.VarChar, 50)).Value = dsexcel.Tables(0).Rows(j)("NUMERO DE PARTE").ToString
                            cmdguardar.Parameters.Add(New SqlParameter("@total", SqlDbType.Decimal)).Value = dsexcel.Tables(0).Rows(j)("TOTAL")
                            cmdguardar.Parameters.Add(New SqlParameter("@NUMERO", SqlDbType.VarChar, 50)).Value = dsexcel.Tables(0).Rows(j)("NUMEROPANELES").ToString
                            cmdguardar.Parameters.Add(New SqlParameter("@mes", SqlDbType.VarChar, 50)).Value = CmbMes.Text.Trim
                            cmdguardar.Parameters.Add(New SqlParameter("@prensa", SqlDbType.VarChar, 50)).Value = cmbprensas.Text.Trim
                            cmdguardar.Parameters.Add(New SqlParameter("@año", SqlDbType.Decimal)).Value = TxtAño.Text.Trim
                            conn.Open()
                            cmdguardar.ExecuteNonQuery()
                            cmdguardar.Parameters.Clear()
                            DataGridView1.DataSource = dsexcel.Tables(0)
                            conn.Close()
                            n += 1
                        End If

                    Next
                    MessageBox.Show(CStr(n) & " registros.")
                End Using
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End If

 

asta ahi todo bien, como podran ver leo de excel e inserto en sql ya tengo esa validacion bien donde le digo que me inserte la parte que trae el excel si es que la parte es igual a la que trae el excel, lo que necesto hacer es que las que no sean iguales que me imprima un  reporte para que pueda saber cuale estan mal y corregirlas, me podrian ayudar

 


Viewing all articles
Browse latest Browse all 7

Latest Images

Vimeo 10.7.0 by Vimeo.com, Inc.

Vimeo 10.7.0 by Vimeo.com, Inc.

HANGAD

HANGAD

MAKAKAALAM

MAKAKAALAM

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Vimeo 10.6.2 by Vimeo.com, Inc.

Vimeo 10.6.2 by Vimeo.com, Inc.

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Re:

Re:





Latest Images

Vimeo 10.7.0 by Vimeo.com, Inc.

Vimeo 10.7.0 by Vimeo.com, Inc.

HANGAD

HANGAD

MAKAKAALAM

MAKAKAALAM

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Re:

Re:

Re:

Re: