Createing identity column in datatable

[Omavlana Omav]

Hi,

I have created a datatable, dataadapter, added the table to a dataset
and filling the table.

Here I want to add an identity column to the above datatable and Later I
will use this identity colum for printing the records using print
document.

How to create an identity column that increments its value when each row
added to it.

Here is the code snippet... Pls help.

myCommand = New SqlClient.SqlCo mmand(mySql, gSQLConnection)
UsrAdapter = New SqlClient.SqlDa taAdapter(myCom mand)
myDataSet = New DataSet

Dim myDataTable As New DataTable("Shar eHoldersAuditRe port")
myDataSet.Table s.Add("ShareHol dersAuditReport ")
Dim aColumn As DataColumn
aColumn = myconstraint
aColumn = New DataColumn("aaa a")
myDataSet.Table s("ShareHolders AuditReport").C olumns.Add(aCol umn)
aColumn = New DataColumn("bbb b")
myDataSet.Table s("ShareHolders AuditReport").C olumns.Add(aCol umn)
aColumn = New DataColumn("ccc c")
myDataSet.Table s("ShareHolders AuditReport").C olumns.Add(aCol umn)
UsrAdapter.Fill (myDataSet, "ShareHoldersAu ditReport")
myTable = myDataSet.Table s("ShareHolders AuditReport")
gSQLConnection. Close()

Regards.
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Ken Tucker [MVP]]

Hi,

You have to make the column auto increment. Set the auto increment
seed to the starting value.
dsPriceList.Tab les(0).Columns( "ID").AutoIncre ment = True

dsPriceList.Tab les(0).Columns( "ID").AutoIncre mentSeed = 1

Ken

------------------------

"Omavlana Omav" <ki***@boardroo mlimited.com> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

Hi,

I have created a datatable, dataadapter, added the table to a dataset
and filling the table.

Here I want to add an identity column to the above datatable and Later I
will use this identity colum for printing the records using print
document.

How to create an identity column that increments its value when each row
added to it.

Here is the code snippet... Pls help.

myCommand = New SqlClient.SqlCo mmand(mySql, gSQLConnection)
UsrAdapter = New SqlClient.SqlDa taAdapter(myCom mand)
myDataSet = New DataSet

Dim myDataTable As New DataTable("Shar eHoldersAuditRe port")
myDataSet.Table s.Add("ShareHol dersAuditReport ")
Dim aColumn As DataColumn
aColumn = myconstraint
aColumn = New DataColumn("aaa a")
myDataSet.Table s("ShareHolders AuditReport").C olumns.Add(aCol umn)
aColumn = New DataColumn("bbb b")
myDataSet.Table s("ShareHolders AuditReport").C olumns.Add(aCol umn)
aColumn = New DataColumn("ccc c")
myDataSet.Table s("ShareHolders AuditReport").C olumns.Add(aCol umn)
UsrAdapter.Fill (myDataSet, "ShareHoldersAu ditReport")
myTable = myDataSet.Table s("ShareHolders AuditReport")
gSQLConnection. Close()

Regards.
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Cowboy \(Gregory A. Beamer\)]

AutoIncrement and AutoIncrementSe ed are the properties you need to set.

NOTE: Be careful of database concurrency, et al, when heading this
direction, as it is easy to get the auto-increment out of touch with the
database.

--
Gregory A. Beamer
MVP; MCP: +I, SE, SD, DBA

*************** *************** *************** *************** **********
Think Outside the Box!
*************** *************** *************** *************** **********
"Omavlana Omav" <ki***@boardroo mlimited.com> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

Hi,

I have created a datatable, dataadapter, added the table to a dataset
and filling the table.

Here I want to add an identity column to the above datatable and Later I
will use this identity colum for printing the records using print
document.

How to create an identity column that increments its value when each row
added to it.

Here is the code snippet... Pls help.

myCommand = New SqlClient.SqlCo mmand(mySql, gSQLConnection)
UsrAdapter = New SqlClient.SqlDa taAdapter(myCom mand)
myDataSet = New DataSet

Dim myDataTable As New DataTable("Shar eHoldersAuditRe port")
myDataSet.Table s.Add("ShareHol dersAuditReport ")
Dim aColumn As DataColumn
aColumn = myconstraint
aColumn = New DataColumn("aaa a")
myDataSet.Table s("ShareHolders AuditReport").C olumns.Add(aCol umn)
aColumn = New DataColumn("bbb b")
myDataSet.Table s("ShareHolders AuditReport").C olumns.Add(aCol umn)
aColumn = New DataColumn("ccc c")
myDataSet.Table s("ShareHolders AuditReport").C olumns.Add(aCol umn)
UsrAdapter.Fill (myDataSet, "ShareHoldersAu ditReport")
myTable = myDataSet.Table s("ShareHolders AuditReport")
gSQLConnection. Close()

Regards.
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!