كيفية ربط dataset فى wpf

في WPF نستخدم كثير من التطبيقات،انه احد اهم التطبيقات فى wpf ربط dataset هو اشبه بwindows forms application (الموضوع منقول من احد المواقع الاجنبية )

1.استخدم التعليمات البرمجية التالية في صفحة Window.xaml

الكود:


<Window x:Class="WpfApplication1.Window1"
xmlns=http://schemas.microsoft.com/winfx/2006/xaml/presentation
xmlns:x=http://schemas.microsoft.com/winfx/2006/xaml
xmlns:c="clr-namespace:WpfApplication2" Title="ADODataSetSample" Loaded="OnInit" Background="White" Height="250" ">
<StackPanel><StackPanel.Resources>
<DataTemplate x:Key="BookItemTemplate"><Grid><Grid.ColumnDefinitions>
<ColumnDefinition Width="250" />
<ColumnDefinition Width="100" />
<ColumnDefinition Width="*"/></Grid.ColumnDefinitions>
<TextBlock Text="{Binding Path=name}" Grid.Column="0"/>
<TextBlock Text="{Binding Path=address}" Grid.Column="1" />
<TextBlock Grid.Column="2" Text="{Binding Path=Email_id}" ="{Binding _id}"/>
</Grid></DataTemplate></StackPanel.Resources>
<ListBox Name="myListBox" Height="200"ItemsSource="{Binding Path=BookTable}"
ItemTemplate ="{StaticResource BookItemTemplate}"/>
<Button Click="OnClick">Add Record</Button></StackPanel></Window>


2.استخدم التعليمات البرمجية التالية في صفحة Window.xaml.vb

الكود:


Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Globalization
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Collections.Generic

Namespace WpfApplication1
Partial Public Class Window1

Inherits Window
Public Sub New()
Me.InitializeComponent()
End Sub

Private myDataSet As DataSet
Private Sub OnInit(ByVal sender As Object, ByVal e As EventArgs)
Dim conn As New SqlConnection("Data Source=MCNDESKTOP06;Initial Catalog =empinfo; User ID= sa;Password =wintellect")
Dim adapter As New SqlDataAdapter("SELECT * from emp_info;", conn)
myDataSet = New DataSet()
adapter.Fill(myDataSet, "emp_info")
myListBox.DataContext = myDataSet
End Sub

Private Sub OnClick(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim myDataTable As DataTable = myDataSet.Tables("emp_info")
Dim row As DataRow = myDataTable.NewRow()
row("Name") = "brijesh"
row("address") = "kanpur"
row("email_id") = [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
myDataTable.Rows.Add(row)
End Sub
End Class

Public Class IntColorConverter
Implements IValueConverter
Public Function Convert(ByVal value As Object, ByVal targetType As Type, ByVal parameter As Object, ByVal culture As CultureInfo) As Object Implements IValueConverter.Convert
Dim numValue As Integer = CInt(value)
If numValue < 50 Then
Return System.Windows.Media.Brushes.Green
Else
Return System.Windows.Media.Brushes.Red
End If
End Function

Public Function ConvertBack(ByVal value As Object, ByVal targetType As Type, ByVal parameter As Object, ByVal culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
Return Nothing
End Function
End Class
End Namespace


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]