Hi Jungs,
ich habe noch ein kleines Problem was ich nicht weiss wie ich es zu lösen habe
Und zwar importiere ich listen in meine Datenbank. Per Mysql Query. Um doppelte Einträge zu vermeiden habe ich eine Unique Spalte gesetzt. Wenn ich importiere, klappt auch alles nur wenn es einen gleichen Eintrag gibt, dann setzt er die Auto_increment ein höher obwohl er nicht einträgt. Und dann könnter euch vorstellen,falls ich schon mal ne Liste mit 2000 Datensätze schon mal importiert habe und ausversehen die gleiche liste noch mal importiere eine differenz in der ID von 2000 habe. Das ist doof... hier mal mein Code...
Dankeschonmal
ich habe noch ein kleines Problem was ich nicht weiss wie ich es zu lösen habe
Und zwar importiere ich listen in meine Datenbank. Per Mysql Query. Um doppelte Einträge zu vermeiden habe ich eine Unique Spalte gesetzt. Wenn ich importiere, klappt auch alles nur wenn es einen gleichen Eintrag gibt, dann setzt er die Auto_increment ein höher obwohl er nicht einträgt. Und dann könnter euch vorstellen,falls ich schon mal ne Liste mit 2000 Datensätze schon mal importiert habe und ausversehen die gleiche liste noch mal importiere eine differenz in der ID von 2000 habe. Das ist doof... hier mal mein Code...
VB.NET-Quellcode
- Private Sub btnImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImport.Click
- Dim result As DialogResult
- Dim Zeile As Integer
- Dim ex As Object
- result = MessageBox.Show("Möchten Sie wirklich die Liste in die Datenbank importieren?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
- If result = Windows.Forms.DialogResult.Yes Then
- 'Excel Dokument wird geöffnet
- ex = CreateObject("Excel.Application")
- ex.Workbooks.Open(OpenFileDialog1.FileNames)
- 'Datenbankverbindung öffnen
- db_verbindung_öffnen()
- reader = Nothing
- 'erste Zeile ist der Spaltenname,daher Zeile = 2
- For Zeile = 2 To 1000
- If ex.Cells(Zeile, 1).value = "" Then
- Exit For
- End If
- Dim einfuegen As String = "INSERT INTO servicecontracts (sno,type,customer,vatnumber,email,repairtime,deliverydate,expiredate,serviceversion,nextday,twoway,software) Values('" & ex.Cells(Zeile, 1).value & "','" & ex.Cells(Zeile, 2).value & "','" & ex.Cells(Zeile, 3).value & "','" & ex.Cells(Zeile, 4).value & "','" & ex.Cells(Zeile, 5).value & "','" & ex.Cells(Zeile, 6).value & "','" & ex.Cells(Zeile, 7).value & "','" & ex.Cells(Zeile, 8).value & "','" & ex.Cells(Zeile, 9).value & "','" & ex.Cells(Zeile, 10).value & "','" & ex.Cells(Zeile, 11).value & "','" & ex.Cells(Zeile, 12).value & "')"
- Dim xyz As Integer = 0
- Dim cmd As New MySqlCommand(einfuegen, conn)
- Try
- xyz = cmd.ExecuteNonQuery()
- Catch exe As Exception
- End Try
- Next
- ex = Nothing
- MessageBox.Show("Erfolgreich importiert!", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
- conn.Close()
- 'Neu Laden
- SVListeholen()
- Else
- MsgBox("cu")
- End If
- End Sub
Dankeschonmal