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