لاضافة Table و Column

،،بســم الله الـرحمــن الرحيــم

الحمدلله والصلاة والسلام على رسول الله وعلى آله أجمعين

االسلام عليكم و رحمة الله و بركاته

وجدت في ال msdn الأكواد الآتية لاضافة table و column و لكن لاتضيف شيء

 

Imports System.Data

Imports System.Data.OleDb



Public Class FrmMakeTable

	Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

	   "Data Source =" & Application.StartupPath & "\a.mdb"

	Dim Con As New OleDbConnection(ConStr)

	Dim DS As New DataSet

	Dim DS2 As New DataSet



	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

		' Create a DataTable. 

		Dim table As DataTable = New DataTable("t")



		' Create a DataColumn and set various properties. 

		Dim column As DataColumn = New DataColumn

		column.DataType = System.Type.GetType("System.Decimal")

		column.AllowDBNull = False

		column.Caption = "Price"

		column.ColumnName = "Price"

		column.DefaultValue = 25



		' Add the column to the table. 

		table.Columns.Add(column)



		' Add 10 rows and set values. 

		Dim row As DataRow

		Dim i As Integer

		For i = 0 To 9

			row = table.NewRow()

			row("Price") = i + 1



			' Be sure to add the new row to 

			' the DataRowCollection. 

			table.Rows.Add(row)

		Next i





	End Sub

End Class

أرجو من الاخوة مساعدتي

لاضافة Table و Column

مواضيع مشابهة