VB.NET DataTable oluşturmak ve satır eklemek

Yeni datatable oluşturma:
Dim dtResult As New DataTable

Kolonları oluşturma
If dtResult.Columns.Count = 0 Then
dtResult.Columns.Add("TCKimlikNo", Type.GetType("System.Double"))
dtResult.Columns.Add("Adi", Type.GetType("System.String"))
dtResult.Columns.Add("Soyadi", Type.GetType("System.String"))
dtResult.Columns.Add("DogumYili", Type.GetType("System.Int32"))
End If

Oluşturduğumuz datatable'a satır ekleme:


Bu işlem için ya bir Object array ya da bir datarow oluşturarak datatable'a yeni satır ekleme işlemini gerçekleştiririz.

- ParamArray ile :

Dim str(3) As Object
str(0) = dt.Rows(i)("TCKimlikNo").ToString()
str(1) = dt.Rows(i)("Adi").ToString().Trim()
str(2) = dt.Rows(i)("Soyadi").ToString().Trim()
str(3) = dt.Rows(i)("DogumYili").ToString().Trim()
dtResult.Rows.Add(str)

- DataRow ile :

Dim drow As DataRow = dtResult.NewRow()
drow(0) = dt.Rows(i)("TCKimlikNo").ToString()
drow(1) = dt.Rows(i)("Adi").ToString().Trim()
drow(2) = dt.Rows(i)("Soyadi").ToString().Trim()
drow(3) = dt.Rows(i)("DogumYili").ToString().Trim()
dtResult.Rows.Add(drow)