Einfügen meherer Datensätze in eine Accesstabelle Ein kleine Routine, die zeigt, wie man mehrere Datensätze in eine Access-Datenbank einfügen kann.
Autor:   Rainer Henke	Bewertung:	Views:  6.962
ohne Homepage	System:  Win7, Win8, Win10, Win11	kein Beispielprojekt

Mit dieser kurzen Routine lassen sich mehrere Datensätze mittels einer For/Next Schleife in eine Access Datenbank einfügen. Im Beispiel werden aus einer Listbox alle Einträge ausgelesen, sowie eigene Angaben in die Datenbank Datenbank.mdb, die hier 3 Spalten beinhaltet, geschrieben.

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=C:\Test\Datenbank.mdb;" & _
  "Jet OLEDB:Database Password=Passwort;"
 
Using conn As New OleDbConnection(connString)
  conn.Open()
 
  Dim oString As String = String.Empty
 
  For a As Integer = 0 To Me.ListBox1.Items.Count - 1
    oString = "INSERT INTO Tabelle (Columne1, Columne2, Columne3) VALUES (@1, @2, @3)"
    Using cmd As New OleDbCommand(oString, conn)
      cmd.CommandType = CommandType.Text
 
      Try
        cmd.Parameters.AddWithValue("@1", "Eintrag " & a.ToString)
        cmd.Parameters.AddWithValue("@2", Me.ListBox1.Items.Item(a))
        cmd.Parameters.AddWithValue("@3", Date.Now.ToShortDateString)
        cmd.ExecuteNonQuery()
      Catch ex As Exception
        MsgBox("Fehler beim Einfügen" & vbCrLf & ex.Message, MsgBoxStyle.Information)
      End Try
    End Using
  Next 
End Using

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.