'Verbindung herstellen
 
Dim con As New SqlConnection
            con = New SqlConnection("Data" & _
              "Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Matthias\Document" & _
              "\Visual Studio" & _
              "2008\Projects\WebApplication1\WebApplication1\Testdatenbank.mdf" & _
              "Integrated Security=True;User ID=Matthias;Connect" & _
              "Timeout=30;User Instance=True; Asynchronous Processing=true")
            Try
                con.Open()
            Catch
                MsgBox("verbindung konnte nicht hergestellt werden")
 
            End Try
 
'Abfrage erstellen
 
            Dim comm As New SqlCommand
            comm.Connection = con
 
            comm.CommandText = ("SELECT * FROM Tabelle1 WHERE Benutzer = '" & _
              "w4hns1nn" & "'")
 
            Dim zeitraum, genre As String
 
 
            Dim reader As SqlDataReader = comm.ExecuteReader
            Dim ausführen As String
            Do While reader.Read
 
                If reader("spiel1") = 1 Then 
 
                    zeitraum = ListBox2.SelectedValue
                    genre = ListBox1.SelectedValue
                    reader.Close()
                    con.Close()
                    ausführen = ("INSERT INTO Tabelle1(Spiel1) where Benutzer =" & _
                      "'" & "w4hns1nn" & "') VALUES('" & TextBox1.Text & "#" & _
                      zeitraum & "#" & genre & "#" & "')")
                    eintragen(ausführen)  
 
 
 
                    Exit Sub
 
                    If reader("spiel2") = 1 Then
 
 
 
                        zeitraum = ListBox2.SelectedValue
                        genre = ListBox1.SelectedValue
 
                        ausführen = ("INSERT INTO Tabelle1(Spiel2) where" & _
                          "Benutzer = 'w4hns1nn') VALUES('" & TextBox1.Text & _
                          "#" & zeitraum & "#" & genre & "#" & "')")
                        eintragen(ausführen)
                        reader.Close()
                        con.Close()
 
                        Exit Sub
loop
 
 
end sub
 
 
 
 
 
Private Sub eintragen(ByVal ausführen As String)
 
 
        Dim con As New SqlConnection
        con = New SqlConnection("Data" & _
          "Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Matthias\Documents\Vi" & _
          "ual Studio" & _
          "2008\Projects\WebApplication1\WebApplication1\Testdatenbank.mdf;Int" & _
          "grated Security=True;User ID=Matthias;Connect Timeout=30;User" & _
          "Instance=True; Asynchronous Processing=true")
        Try
            con.Open()
        Catch
            MsgBox("verbindung konnte nicht hergestellt werden")
 
        End Try
 
        Dim comm As New SqlCommand
        comm.Connection = con
        comm.CommandText = ausführen
        comm.ExecuteNonQuery()
 
    End Sub