Merhaba arkadaşlar bu makalemizde console uygulamasında datatable uygulaması nasıl yapılır onu göreceğiz.
Şekil 1
Program.vb
Imports System
Imports System.Data
Module Program
Sub Main(args As String())
Dim table As DataTable = New DataTable("WorldClassics")
' add 4 columns. 4 sutun ekliyoruz.
table.Columns.Add(New DataColumn("Id", GetType(Integer)))
table.Columns.Add(New DataColumn("Author", GetType(String)))
table.Columns.Add(New DataColumn("Book", GetType(String)))
table.Columns.Add(New DataColumn("Price", GetType(Integer)))
' add 10 rows. 10 satir ekliyoruz.
table.Rows.Add(1, "Fyodor Mihailoviç Dostoyevski", "Suç ve Ceza", 12)
table.Rows.Add(2, "Honere de Balzac", "Vadideki Zambak", 15)
table.Rows.Add(3, "Viktor Hugo", "Sefiller", 20)
table.Rows.Add(4, "John Steinbeck", "Fareler ve İnsanlar", 15)
table.Rows.Add(5, "Jane Austen", "Aşk ve Gurur", 15)
table.Rows.Add(6, "Honere de Balzac", "Goriot Baba", 15)
table.Rows.Add(7, "Lev Nikolayeviç Tolstoy", "Anna Karenina", 13)
table.Rows.Add(8, "Gustave Flaubert", "Madam Bovary", 10)
table.Rows.Add(9, "Ernest Hemingway", "Çanlar Kimin İçin Çalıyor", 11)
table.Rows.Add(10, "Maksim Gorki", "Ana", 8)
' get world classics above 12 price with "Honere de Balzac" author.
' dunya klasikleri serisinde fiyati 12 ustu ve yazari "Honere de Balzac" olanlari aliyoruz.
Dim result() As DataRow = table.Select("Price >= 12 And Author = 'Honere de Balzac'")
' loop and display. donguyu yapıyoruz ve yukaridaki kritere gore gosterimi sagliyoruz.
For Each row As DataRow In result
Console.WriteLine("{0}, {1}, {2}, {3}", row(0), row(1), row(2), row(3))
Next
End Sub
End Module
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder