Hi alle zusammen!
Ich bin relativ neu in UWP Programmierung und VB.Net, also bitte nicht über meine blöde Frage wundern...
Ich habe ein ViewModel erstellt, kann meinen Datensatz auch anzeigen, aber wie speichere ich jetzt die Daten wenn ich was ändere? Ebenso würde ich gerne wissen wie ich es schaffe einen neuen Datensatz anzulegen.
Hier der Code von meinem ViewModel:
Ich hoffe ihr könnt mir helfen. Danke im Voraus
Ich bin relativ neu in UWP Programmierung und VB.Net, also bitte nicht über meine blöde Frage wundern...
Ich habe ein ViewModel erstellt, kann meinen Datensatz auch anzeigen, aber wie speichere ich jetzt die Daten wenn ich was ändere? Ebenso würde ich gerne wissen wie ich es schaffe einen neuen Datensatz anzulegen.
Hier der Code von meinem ViewModel:
VB.NET-Quellcode
- Imports System.ComponentModel
- Imports System.Data.SqlClient
- Imports Windows.UI.Popups
- Public Class MitarbeiterViewModel
- Implements INotifyPropertyChanged
- Private myConn As SqlConnection
- Private myCmd As SqlCommand
- Private _MitarbeiterListe As List(Of ModelMitarbeiter)
- Private ReadOnly _MyCommand As ICommand
- Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
- Public Property MitarbeiterListe As List(Of ModelMitarbeiter)
- Get
- Return _MitarbeiterListe
- End Get
- Set
- _MitarbeiterListe = Value
- NotifyPropertyChanged("MitarbeiterListe")
- End Set
- End Property
- Private Sub NotifyPropertyChanged(ByVal info As String)
- RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
- End Sub
- Public Sub GetMitarbeiter()
- Dim MyMitarbeiter As New List(Of ModelMitarbeiter)
- myConn = GetConnection()
- myCmd = myConn.CreateCommand
- myCmd.CommandText = "SELECT * FROM tblMitarbeiter"
- myConn.Open()
- Dim rdr As SqlDataReader = myCmd.ExecuteReader
- Try
- While rdr.Read()
- If rdr.HasRows() Then
- Dim M As New ModelMitarbeiter With {.Anrede = rdr("strAnrede"), .VName = rdr("strVName"), .NName = rdr("strNName"), .Strasse = rdr("strStrasse"), .PLZ = rdr("intPLZ"), .Ort = rdr("strOrt"), .SV = rdr("intSV"),
- .GebDat = rdr("dtGebDat"), .TelNr = rdr("strTelNr"), .Handy = rdr("strHandy"), .Email = rdr("strEmail"), .PersonalNr = rdr("intPersonalNr"), .BIC = rdr("strBIC"), .IBAN = rdr("strIBAN"),
- .Kontoinhaber = rdr("strKontoinhaber"), .Bemerkungen = rdr("strBemerkungen"), .PersNrBarCode = rdr("strPersNrBarCode"), .SollStunden = rdr("intSollStunden"), .SollUrl = rdr("intSollUrl")}
- MyMitarbeiter.Add(M)
- End If
- End While
- MitarbeiterListe = MyMitarbeiter
- Catch ex As Exception
- Return
- End Try
- End Sub
- Public Sub New()
- GetMitarbeiter()
- End Sub
Ich hoffe ihr könnt mir helfen. Danke im Voraus