Datenvergleichen mit Farblicher Hervorhebung bei differenzen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Datenvergleichen mit Farblicher Hervorhebung bei differenzen

    Hallo zusammen,

    ich habe ein kleines Programm, mit dem ich eine EXCEL Datei in ein DataGidView rein lade und übertrage das an einen SQL Server. (einmalig)

    Jetzt möchte ich diese Daten mit anderen Daten vergleichen und farblich hervorheben bei Änderung im Datagridview, könnt Ihr mir einen Tipp geben wie ich hier am besten vorgehe kann?

    Danke für eure Unterstützung vorab.

    Anbei mein aktueller Code, bin noch am testen:

    Ps. Für Verbesserungsvorschläge wegen meinen Codes, würde ich mich auch freuen. Nur so kann lernen. :D

    VB.NET-Quellcode

    1. Option Strict Off
    2. Imports System.Data.OleDb
    3. Imports System.IO
    4. Imports System.Data.SqlClient
    6. Public Class Form1
    8. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    9. Dim conn As OleDbConnection
    10. Dim dtr As OleDbDataReader
    11. Dim dta As OleDbDataAdapter
    12. Dim cmd As OleDbCommand
    13. Dim dts As DataSet
    14. Dim excel As String
    15. Dim OpenFileDialog As New OpenFileDialog
    17. OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
    18. OpenFileDialog.Filter = "All Files (*.*)|*.*|Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls"
    20. If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
    22. Dim fi As New FileInfo(OpenFileDialog.FileName)
    23. Dim FileName As String = OpenFileDialog.FileName
    25. excel = fi.FullName
    26. conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel + ";Extended Properties=Excel 12.0;")
    27. dta = New OleDbDataAdapter("Select * From [Sheet1$]", conn)
    28. dts = New DataSet
    29. dta.Fill(dts, "[Sheet1$]")
    30. DataGridView1.DataSource = dts
    31. DataGridView1.DataMember = "[Sheet1$]"
    32. conn.Close()
    34. End If
    35. End Sub
    37. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    39. Dim sqlc As String = "insert into tbl_650 ([Werk],[Auftragsnr.],[Liefernummer],[WarenEm],[Name],[Straßenname],[PLZ Warenempf.],[Ort],[BestNr],[Versandbedingung],[Spalte K],[Liefersperre],[Wunschlieferdatum],[FA Paletten],[Spalte O],[Bruttoauftragsgew.],[Gew-ME]) values(@f1, @f2, @f3, @f4, @f5, @f6, @f7, @f8, @f9, @f10, @f11, @f12, @f13, @f14, @f15, @f16, @f17)"
    40. Dim dp As New SqlDataAdapter
    41. Dim p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17 As SqlParameter
    42. Dim ConString As String = "Data Source=SERVER1;Initial Catalog=Shared;Integrated Security=True;timeout=5"
    44. Using conn As New SqlConnection(ConString)
    45. Try
    47. conn.Open()
    49. dp.InsertCommand = New SqlCommand(sqlc, conn)
    50. p1 = dp.InsertCommand.Parameters.Add("@f1", SqlDbType.NVarChar)
    51. p2 = dp.InsertCommand.Parameters.Add("@f2", SqlDbType.Decimal)
    52. p3 = dp.InsertCommand.Parameters.Add("@f3", SqlDbType.Decimal)
    53. p4 = dp.InsertCommand.Parameters.Add("@f4", SqlDbType.Decimal)
    54. p5 = dp.InsertCommand.Parameters.Add("@f5", SqlDbType.NVarChar)
    55. p6 = dp.InsertCommand.Parameters.Add("@f6", SqlDbType.NVarChar)
    56. p7 = dp.InsertCommand.Parameters.Add("@f7", SqlDbType.NVarChar)
    57. p8 = dp.InsertCommand.Parameters.Add("@f8", SqlDbType.NVarChar)
    58. p9 = dp.InsertCommand.Parameters.Add("@f9", SqlDbType.NVarChar)
    59. p10 = dp.InsertCommand.Parameters.Add("@f10", SqlDbType.NVarChar)
    60. p11 = dp.InsertCommand.Parameters.Add("@f11", SqlDbType.NVarChar)
    61. p12 = dp.InsertCommand.Parameters.Add("@f12", SqlDbType.NVarChar)
    62. p13 = dp.InsertCommand.Parameters.Add("@f13", SqlDbType.DateTime)
    63. p14 = dp.InsertCommand.Parameters.Add("@f14", SqlDbType.Decimal)
    64. p15 = dp.InsertCommand.Parameters.Add("@f15", SqlDbType.Decimal)
    65. p16 = dp.InsertCommand.Parameters.Add("@f16", SqlDbType.Decimal)
    66. p17 = dp.InsertCommand.Parameters.Add("@f17", SqlDbType.NVarChar)
    68. With DataGridView1
    69. For i As Integer = 0 To .Rows.Count - 1
    71. With .Rows(i)
    73. If .Cells(0).Value = Nothing Then
    74. p1.Value = ""
    75. Else
    76. p1.Value = .Cells(0).Value
    77. End If
    79. If .Cells(1).Value = Nothing Then
    80. p2.Value = 0
    81. Else
    82. p2.Value = CDec(.Cells(1).Value)
    83. End If
    85. If .Cells(2).Value = Nothing Then
    86. p3.Value = 0
    87. Else
    88. p3.Value = CDec(.Cells(2).Value)
    89. End If
    91. If .Cells(3).Value = Nothing Then
    92. p4.Value = 0
    93. Else
    94. p4.Value = CDec(.Cells(3).Value)
    95. End If
    97. If .Cells(4).Value = Nothing Then
    98. p5.Value = ""
    99. Else
    100. p5.Value = .Cells(4).Value
    101. End If
    103. If .Cells(5).Value = Nothing Then
    104. p6.Value = ""
    105. Else
    106. p6.Value = .Cells(5).Value
    107. End If
    109. If .Cells(6).Value = Nothing Then
    110. p7.Value = ""
    111. Else
    112. p7.Value = .Cells(6).Value
    113. End If
    115. If .Cells(7).Value = Nothing Then
    116. p8.Value = ""
    117. Else
    118. p8.Value = .Cells(7).Value
    119. End If
    121. If .Cells(8).Value = Nothing Then
    122. p9.Value = ""
    123. Else
    124. p9.Value = .Cells(8).Value
    125. End If
    127. If .Cells(9).Value = Nothing Then
    128. p10.Value = ""
    129. Else
    130. p10.Value = .Cells(9).Value
    131. End If
    133. If .Cells(10).Value = Nothing Then
    134. p11.Value = 0
    135. Else
    136. p11.Value = .Cells(10).Value
    137. End If
    139. If .Cells(11).Value = Nothing Then
    140. p12.Value = ""
    141. Else
    142. p12.Value = .Cells(11).Value
    143. End If
    145. If .Cells(12).Value = Nothing Then
    146. p13.Value = "01.01.1900"
    147. Else
    148. p13.Value = .Cells(12).Value
    149. End If
    151. If .Cells(13).Value = Nothing Then
    152. p14.Value = 0
    153. Else
    154. p14.Value = CDec(.Cells(13).Value)
    155. End If
    157. If .Cells(14).Value = Nothing Then
    158. p15.Value = 0
    159. Else
    160. p15.Value = CDec(.Cells(14).Value)
    161. End If
    163. If .Cells(15).Value = Nothing Then
    164. p16.Value = 0
    165. Else
    166. p16.Value = CDec(.Cells(15).Value)
    167. End If
    169. If .Cells(16).Value = Nothing Then
    170. p17.Value = ""
    171. Else
    172. p17.Value = .Cells(16).Value
    173. End If
    175. Try
    176. dp.InsertCommand.ExecuteNonQuery()
    177. Catch ex As Exception
    178. MsgBox(ex.ToString)
    179. End Try
    181. End With
    182. Next
    184. End With
    185. Catch ex As Exception
    186. MsgBox(ex.ToString)
    187. Finally
    188. conn.Close()
    189. End Try
    191. End Using
    192. End Sub
    193. End Class

Facebook
Telefonspende