Imports System.Data.Linq.SqlClient
Imports System.Data.SqlClient
 
Public Class frmTest
 
    Private db As New MWdatenDataContext
 
 
    Private Sub btnSuche_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnSuche.Click
 
        Dim MarkeSrch As String = "%"
 
        Dim filteredMWlist = From c In db.MietwagenListe _
                             Where SqlMethods.Like(c.Marke, MarkeSrch) _
                             Order By c.Marke, c.Modell _
                             Select c
 
 
        Me.bsMWliste.DataSource = filteredMWlist
        grdMWliste.DataSource = Me.bsMWliste
        grdMWliste.RetrieveStructure()
        grdMWliste.Refresh()
 
 
    End Sub
 
    Private Sub btnEinfugen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnEinfugen.Click
 
        Dim FzDaten As New MietwagenListe
        Dim FzID As Integer = 11
 
        FzDaten.Marke = "Toyota"
        FzDaten.Modell = "Sienna"
        FzDaten.Chassisnr = "5TDB"
 
        Call MWeintragen(FzDaten, FzID)
 
    End Sub
 
    Private Sub MWeintragen(ByVal FzDaten As MietwagenListe, ByVal FzID As _
      Integer)
 
        'sp_MietwagenNeuEintragen
        Dim cnDaten As New SqlConnection
        Dim cmdSelect As SqlCommand
 
 
        cmdSelect = New SqlCommand("sp_MietwagenNeuEintragen", cnDaten)
        cmdSelect.CommandType = CommandType.StoredProcedure
        cmdSelect.Parameters.AddWithValue("FzID", FzID)
        cmdSelect.Parameters.AddWithValue("Marke", FzDaten.Marke)
        cmdSelect.Parameters.AddWithValue("Modell", FzDaten.Modell)
        cmdSelect.Parameters.AddWithValue("Chassisnr", FzDaten.Chassisnr)
 
        Try
            'Verbindung
            cnDaten.ConnectionString = My.Settings.CarInfoConnectionString
            cnDaten.Open()
            cmdSelect.ExecuteNonQuery()
            cnDaten.Close()
 
 
        Catch ex As Exception
 
            MsgBox("Fehler bei MWeintragen: " & ex.Message)
            cnDaten.Close()
 
        End Try
 
    End Sub
 
End Class