Bonjour, et merci de votre aide.
Voici mon code au complet :
Tout d'abord, ma fenêtre principale :
<Window x:Class="Window1"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="MainWindow" Height="282" Width="550" Name="Window1">
<Window.Resources>
<CollectionViewSource x:Key="CustomerSource" />
</Window.Resources>
<Grid DataContext="{Binding Source={StaticResource CustomerSource}}">
<Grid.RowDefinitions>
<RowDefinition Height="44*" />
<RowDefinition Height="218*" />
</Grid.RowDefinitions>
<Grid.ColumnDefinitions>
<ColumnDefinition Width="115*" />
<ColumnDefinition Width="129*" />
<ColumnDefinition Width="142*" />
<ColumnDefinition Width="142*" />
</Grid.ColumnDefinitions>
<Button Grid.Column="3" HorizontalAlignment="Right" Name="btnSave" Width="60" Margin="0,0,0,17.978">Save</Button>
<Button Grid.Column="3" Margin="16,-0.001,66,17.978" Name="btnAdd">Add</Button>
<Button Margin="92,-0.001,132,17.978" Name="btnDelete" Grid.Column="2" Grid.ColumnSpan="2">Delete</Button>
<Button HorizontalAlignment="Left" Name="btnFirst" Width="35" Height="23" VerticalAlignment="Top">|<</Button>
<Button HorizontalAlignment="Left" Margin="41,0,0,0" Name="btnPrevious" Width="35" Height="23" VerticalAlignment="Top"><</Button>
<Button Margin="82,1,0,0" Name="btnNext" Height="23" VerticalAlignment="Top" HorizontalAlignment="Left" Width="35" Grid.ColumnSpan="2">></Button>
<Button HorizontalAlignment="Left" Margin="9,1,0,0" Name="btnLast" Width="35" Height="23" VerticalAlignment="Top" Grid.Column="1">>|</Button>
<StackPanel Grid.Column="1" Grid.Row="1" Name="StackPanel1">
<Label Height="28" Name="Label1" Width="Auto" Margin="3" HorizontalContentAlignment="Right">Customer ID:</Label>
<Label Height="28" Name="Label2" Width="Auto" Margin="3" HorizontalContentAlignment="Right">Last Name:</Label>
<Label Height="28" Name="Label3" Width="Auto" Margin="3" HorizontalContentAlignment="Right">First Name:</Label>
<Label Height="28" Name="Label4" Width="Auto" Margin="3" HorizontalContentAlignment="Right">City:</Label>
<Label Height="28" HorizontalContentAlignment="Right" Name="Label5" Width="123">Date:</Label>
</StackPanel>
<StackPanel Grid.Row="1" HorizontalAlignment="Left" Name="StackPanel2" VerticalAlignment="Top" Width="115" Height="202">
<TextBox Grid.Column="1" Height="23" Name="TextBox5" TextAlignment="Center" Width="Auto"/>
<ListBox Height="180" x:Name="lbContacts" ItemsSource="{Binding Source={StaticResource CustomerSource}}" Width="Auto" >
<ListBox.ItemTemplate>
<DataTemplate>
<StackPanel Orientation="Horizontal">
<TextBlock Text="{Binding FirstName}"/>
</StackPanel>
</DataTemplate>
</ListBox.ItemTemplate>
</ListBox>
</StackPanel>
<StackPanel Grid.Column="2" Grid.Row="1" Name="StackPanel3">
<TextBox Name="txtCustomerID" Width="Auto" Height="28" Margin="3"
IsReadOnly="True"
Text="{Binding ElementName=lbContacts, Path=SelectedItem.CustomerID, Mode=OneWay}"/>
<TextBox Name="txtLastName" Width="Auto" Height="28" Margin="3"
Text="{Binding ElementName=lbContacts, Path=SelectedItem.LastName}" />
<TextBox Name="txtFirstName" Width="Auto" Height="28" Margin="3"
Text="{Binding ElementName=lbContacts, Path=SelectedItem.FirstName}" />
<TextBox Name="txtCity" Width="Auto" Height="28" Margin="3"
Text="{Binding ElementName=lbContacts, Path=SelectedItem.City}" />
<TextBox Height="28" Name="TextBox1" Text="{Binding ElementName=lbContacts, Path=SelectedItem.Modified}" Width="136" />
</StackPanel>
<TextBox Grid.Column="1" Height="23" HorizontalAlignment="Left" Margin="51,2,0,0" Name="TextBox4" VerticalAlignment="Top" Width="72" TextAlignment="Center" />
<StackPanel Grid.Column="3" Grid.Row="1" Margin="0,0,0,1.022" Name="StackPanel4">
<Image Source="{Binding Path=Pic}" Height="150" Name="Image1" Stretch="Fill" Width="132" Margin="3"/>
<Button Height="23" Name="Button1" Width="Auto">Add Image</Button>
</StackPanel>
</Grid>
</Window>
Et le code behind associé:
Imports WpfEfDAL
Imports System.Collections.ObjectModel
Imports Microsoft.Win32.OpenFileDialog
Imports System.IO
Class Window1
Private db As New OMSEntities
Private CustomerData As New ObservableCollection(Of Customer)
Private View As ListCollectionView
Public Property Customer() As ObservableCollection(Of Customer)
Get
Return CustomerData
End Get
Set(ByVal value As ObservableCollection(Of Customer))
CustomerData = value
End Set
End Property
Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
Dim results = From c In db.Customers _
Select c
Me.CustomerData = New CustomerCollection(results, db)
Dim customerSource = CType(Me.Resources("CustomerSource"), CollectionViewSource)
customerSource.Source = Me.CustomerData
Me.View = CType(customerSource.View, ListCollectionView)
End Sub
Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnFirst.Click
Me.View.MoveCurrentToFirst()
End Sub
Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnPrevious.Click
If Me.View.CurrentPosition > 0 Then
Me.View.MoveCurrentToPrevious()
End If
End Sub
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnNext.Click
If Me.View.CurrentPosition < Me.View.Count - 1 Then
Me.View.MoveCurrentToNext()
End If
End Sub
Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnLast.Click
Me.View.MoveCurrentToLast()
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnDelete.Click
If Me.View.CurrentPosition > -1 Then
Me.View.RemoveAt(Me.View.CurrentPosition)
End If
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnAdd.Click
Dim window As New Window2
If window.ShowDialog = True Then
If window.lbContacts IsNot Nothing Then
Customer.Add(window.Customer)
End If
End If
Me.TextBox4.Text = lbContacts.Items.Count
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnSave.Click
Try
db.SaveChanges()
MessageBox.Show("Customer data was saved.", Me.Title, MessageBoxButton.OK, MessageBoxImage.Information)
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
Dim myDialog As New Microsoft.Win32.OpenFileDialog()
myDialog.Filter = "All Files|*.*|Image Files|*.jpg;*.gif;*.png;*.bmp"
myDialog.ShowDialog()
Image1.Source = New BitmapImage(New Uri(myDialog.FileName, UriKind.Absolute))
'ListBox1.Items.Add(myDialog.FileName)
BufferFromImage(Image1.Source)
End Sub
Public Function BufferFromImage(ByVal imageSource As BitmapImage) As Byte()
Dim memStream As MemoryStream = New MemoryStream()
Dim encoder As JpegBitmapEncoder = New JpegBitmapEncoder()
encoder.Frames.Add(BitmapFrame.Create(imageSource))
encoder.Save(memStream)
Return memStream.GetBuffer()
End Function
Public Function ConvertToImage(ByVal rawImageData As Byte()) As BitmapImage
Dim stream As MemoryStream = New MemoryStream(rawImageData)
stream.Position = 0
Dim bi As BitmapImage = New BitmapImage()
bi.BeginInit()
bi.StreamSource = stream
bi.EndInit()
Return bi
End Function
Private Function ImageToBytes(ByVal image As Image) As Byte()
Dim bytes As Byte() = Nothing
Dim width As Int32 = CInt(image.ActualWidth)
Dim height As Int32 = CInt(image.ActualHeight)
Dim bit As BitmapImage
bit = CType(image.Source, BitmapImage)
Dim bmpEnco As New BmpBitmapEncoder
bmpEnco.Frames.Add(BitmapFrame.Create(bit))
Dim ms As New MemoryStream
bmpEnco.Save(ms)
ms.Position = 0
bytes = ms.ToArray()
Return bytes
End Function
End Class
Donc au démarrage de mon application, tout se passe bien, ma listbox se rempli avec les items de ma base se données SQL server, ainsi que mes textbox associées.
Donc la textbox1 est bien bindée avec la colonne Modified de ma base.
Lorsque je souhaite ajouter un élément à ma base, j'appui sur le bouton Add, qui m'ouvre une nouvelle fenêtre, dont voici le code :
<Window x:Class="Window2"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="Window1" Height="282" Width="550" Name="Window2">
<Window.Resources>
<CollectionViewSource x:Key="CustomerSource" />
</Window.Resources>
<Grid>
<Grid.RowDefinitions>
<RowDefinition Height="44*" />
<RowDefinition Height="218*" />
</Grid.RowDefinitions>
<Grid.ColumnDefinitions>
<ColumnDefinition Width="115*" />
<ColumnDefinition Width="129*" />
<ColumnDefinition Width="142*" />
<ColumnDefinition Width="142*" />
</Grid.ColumnDefinitions>
<Button Grid.Column="3" HorizontalAlignment="Right" Name="btnAnnuler" Width="60" Margin="0,2,0,15.977">Annuler</Button>
<Button Grid.Column="3" Margin="16,1,66,16.978" Name="btnAdd">Add</Button>
<Button Margin="92,0,132,17.978" Name="btnDelete" Grid.Column="2" Grid.ColumnSpan="2">Delete</Button>
<Button HorizontalAlignment="Left" Name="btnFirst" Width="35" Margin="0,-0.001,0,17.978">|<</Button>
<Button Margin="41,-0.001,0,17.978" Name="btnPrevious" HorizontalAlignment="Left" Width="34.538"><</Button>
<Button Margin="82,0,0,17.977" Name="btnNext" HorizontalAlignment="Left" Width="35" Grid.ColumnSpan="2">></Button>
<Button HorizontalAlignment="Left" Margin="21,0,0,17.977" Name="btnLast" Width="35" Grid.Column="1">>|</Button>
<StackPanel Grid.Column="1" Grid.Row="1" Name="StackPanel1">
<Label Height="28" Name="Label2" Width="Auto" Margin="3" HorizontalContentAlignment="Right">Last Name:</Label>
<Label Height="28" Name="Label3" Width="Auto" Margin="3" HorizontalContentAlignment="Right">First Name:</Label>
<Label Height="28" Name="Label4" Width="Auto" Margin="3" HorizontalContentAlignment="Right">City:</Label>
<Label Height="28" HorizontalContentAlignment="Right" Name="Label1" Width="123">Date:</Label>
</StackPanel>
<StackPanel Grid.Row="1" HorizontalAlignment="Left" Name="StackPanel2" VerticalAlignment="Top" Width="115" Height="202">
<ListView Height="202" x:Name="lbContacts" ItemsSource="{Binding Source={StaticResource CustomerSource}}" Width="Auto" >
<ListView.ItemTemplate>
<DataTemplate>
<StackPanel Orientation="Horizontal" >
<TextBlock Text="{Binding FirstName}" />
</StackPanel>
</DataTemplate>
</ListView.ItemTemplate>
</ListView>
</StackPanel>
<StackPanel Grid.Column="2" Grid.Row="1" Name="StackPanel3">
<TextBox Text="{Binding Path=LastName}" Name="Textbox1" Width="Auto" Height="28" Margin="3" />
<TextBox Text="{Binding Path=FirstName}" Name="TextBox2" Width="Auto" Height="28" Margin="3" />
<TextBox Text="{Binding Path=City}" Name="TextBox3" Width="Auto" Height="28" Margin="3" />
<TextBox Height="28" Name="TextBox4" Width="136" />
<my:DatePicker Height="25" Name="DatePicker1" Width="142" xmlns:my="http://schemas.microsoft.com/wpf/2008/toolkit" />
</StackPanel>
<TextBox Grid.Column="1" Margin="62,1.52,29,16.458" Name="TextBox6" TextAlignment="Center" />
<StackPanel Grid.Column="3" Grid.Row="1" Margin="0,0,0,1.022" Name="StackPanel4">
<Image Height="150" Name="Image1" Stretch="Fill" Width="142" />
<Button Height="23" Name="Button1" Width="Auto">Add Image</Button>
</StackPanel>
</Grid>
</Window>
et le code behind associé :
Imports WpfEfDAL
Imports System.Collections.ObjectModel
Imports System.IO
Public Class Window2
Private db As New OMSEntities
Dim customerList As New List(Of Customer)
Private _Customer As New Customer()
Dim newCustomer As New Customer
Public Property Customer() As Customer
Get
Return _Customer
End Get
Set(ByVal value As Customer)
_Customer = value
End Set
End Property
Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
Me.DataContext = Customer
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnAdd.Click
'Dim newCustomer As New Customer
MsgBox(DateTime.Today())
newCustomer.FirstName = TextBox2.Text
newCustomer.LastName = Textbox1.Text
newCustomer.City = TextBox3.Text
newCustomer.Modified = TextBox4.Text
newCustomer.Pic = ConvertImage(Image1.Source)
Me.DialogResult = True
customerList.Add(newCustomer)
db.AddToCustomers(newCustomer)
db.SaveChanges()
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
Dim OpenFileDialog As New Microsoft.Win32.OpenFileDialog
OpenFileDialog.FileName = Nothing
OpenFileDialog.ShowDialog()
Dim bmp As New BitmapImage(New Uri(OpenFileDialog.FileName().Trim))
If Not OpenFileDialog.FileName = Nothing Then
Me.Image1.Source = bmp
End If
Dim stream As FileStream = New FileStream(OpenFileDialog.FileName, FileMode.Open, FileAccess.Read)
Dim reader As BinaryReader = New BinaryReader(stream)
Dim Data As Byte() = reader.ReadBytes(stream.Length)
reader.Close()
stream.Close()
newCustomer.Pic = Data
If Not OpenFileDialog.FileName = Nothing Then
Me.Image1.Source = bmp
End If
End Sub
Public Function ConvertImage(ByVal bmp As BitmapImage) As Byte()
Dim mstream As New MemoryStream()
Dim buffer As Byte() = Nothing
If Not mstream Is Nothing And mstream.Length > 0 Then
Using br As BinaryReader = New BinaryReader(mstream)
buffer = br.ReadBytes(mstream.Length)
End Using
End If
Return buffer
End Function
' public Byte[] BufferFromImage(BitmapImage imageSource)
'{
' Stream stream = imageSource.StreamSource;
' Byte[] buffer = null;
' if (stream != null && stream.Length > 0)
' {
' using (BinaryReader br = new BinaryReader(stream))
' {
' buffer = br.ReadBytes((Int32)stream.Length);
' }
' }
' return buffer;
'}
End Class
En compariason de ma précédente version, c'est que je n'affecte plus "DateTime.Now" (qui aurait dû m'afficher la date d'aujourd'hui mais au lieu de ceci, m'affiche 01/01/0001 12:00:00 AM), mais laisse à l'utilisateur le choix d'inserer lui même la date.
Une fois les différents champs remplis, j'appui sur Add (seconde fenêtre), pour valider cet ajout. Sur ma fenêtre principale, je retrouve l'élément ajouté(dans mes textboxes), par contre la date (dans la textbox bindée sur la colonne Modified), cela m'affiche
01/01/0001.
Lorsque j'appui sur le bouton "Save" (SaveChanges), cela m'affiche le message d'erreur.
Ce que je n'arrive pas à comprendre, c'est que l'ajout a bien lieu (Voir le log de SQL profiler), et la date correspondant à l'enregistrement est 01/01/0001.
Je vous remercie d'avance de l'intérêt que vous portez ce sujet, ainsi que de me venir en aide.
Cordialement.
