Combining datatables

[Bonzol]

Hey there, just starting out using data tables, can anyone tell me how
to combine 2 tables?

Ive tried just coyping the info from 1 table to another, which both
have exactly the same table layout
data is a datatable
data1 is a datatable

data.Rows.Add(d ata1.Rows(0).It em(0))

but it dosnt work, can anyone tall me what im doing wrong?

[Steven Nagy]

Not sure if I understand completely, but are you asking how you can
copy the CONTENTS of one datatable into another? Or do you want to
MERGE the two tables, creating a new table that has columns from both?
How are both tables constructed previously? Post code if necessary.

[Cor Ligthert [MVP]]

Bonzol,

One of the things you have to know when working with datarows and datatables
is that you never can have a datarow in more than one table. Simple because
of the fact that the datarow has a property that references to the table it
is in.

However you can use copies of datarow.

But first answer the question from Steven.

Cor

"Bonzol" <Bo****@hotmail .comschreef in bericht
news:11******** **************@ s13g2000cwa.goo glegroups.com.. .

Hey there, just starting out using data tables, can anyone tell me how
to combine 2 tables?

Ive tried just coyping the info from 1 table to another, which both
have exactly the same table layout
data is a datatable
data1 is a datatable

data.Rows.Add(d ata1.Rows(0).It em(0))

but it dosnt work, can anyone tall me what im doing wrong?

[Bonzol]

Ahh sorry for not being clear,

I want to copy the contents of one table to another

I have been playing around and have now tried

Dim itemadd As DataRow = data.NewRow()
itemadd = data1.Rows(0).I tem(0)
data.Rows.Add(i temadd)

but does not work.

[Bonzol]

tables were previously created via
Public Function jWildCard(ByVal table1 As String, ByVal returncolumn
As String, ByVal table2 As String, ByVal checkcolumn As String, ByVal
table1joinField As String, ByVal table2joinField As String, ByVal
checkvalue As String) As DataTable
'
Dim StringToReturn As String

StringToReturn = ""
Dim SQL As String
SQL = "SELECT " + table1 + "." + returncolumn + " FROM " +
table1 + " INNER JOIN " + table2 + " ON " + table1 + "." +
table1joinField + " = " + table2 + "." + table2joinField + " WHERE(" +
table2 + "." + checkcolumn + " LIKE '%" + checkvalue + "%')"
Dim dataAdapter As System.Data.Ole Db.OleDbDataAda pter
dataAdapter = New System.Data.Ole Db.OleDbDataAda pter(SQL,
Me.OleDbConnect ion1)

Dim dt As System.Data.Dat aTable
dt = New System.Data.Dat aTable
dataAdapter.Fil l(dt)
Return dt
this is done twice and both tables have the same Select table and
return coloumn.

[Steven Nagy]

Ok try this:

Dim newRow as datarow = secondtable.New Row()
newRow.ItemArra y = oldRow.Itemarra y()
secondtable.Row s.add(newRow)

.... where oldRow is a row from your old table.
This code would be inserted in a 'for each' loop to get each row from
the old table.

Good luck.

[Cor Ligthert [MVP]]

Bonzol,

Your select is impossible with a Option Strict on.

Therefore it can give unpredictiable results depending on the values that
are in your variables.

Therefore I doubt if it is wise to start with trying to use methods as
merge, importrow etc, if you have not solved this before and know what you
are doing.

Just my thought,

Cor
"Bonzol" <Bo****@hotmail .comschreef in bericht
news:11******** **************@ b28g2000cwb.goo glegroups.com.. .

tables were previously created via
Public Function jWildCard(ByVal table1 As String, ByVal returncolumn
As String, ByVal table2 As String, ByVal checkcolumn As String, ByVal
table1joinField As String, ByVal table2joinField As String, ByVal
checkvalue As String) As DataTable
'
Dim StringToReturn As String

StringToReturn = ""
Dim SQL As String
SQL = "SELECT " + table1 + "." + returncolumn + " FROM " +
table1 + " INNER JOIN " + table2 + " ON " + table1 + "." +
table1joinField + " = " + table2 + "." + table2joinField + " WHERE(" +
table2 + "." + checkcolumn + " LIKE '%" + checkvalue + "%')"
Dim dataAdapter As System.Data.Ole Db.OleDbDataAda pter
dataAdapter = New System.Data.Ole Db.OleDbDataAda pter(SQL,
Me.OleDbConnect ion1)

Dim dt As System.Data.Dat aTable
dt = New System.Data.Dat aTable
dataAdapter.Fil l(dt)
Return dt
this is done twice and both tables have the same Select table and
return coloumn.

[Rob Panosh]

Steven,

If you are using the 2.0 framwork you can to the following:

Dim newTable as New System.Data.Dat aTable = dt.DefaultView. ToTable

Just make sure you don't have any rowfilters set on the default view.

Cheers,
Rob Panosh
Steven Nagy wrote:

Ok try this:

Dim newRow as datarow = secondtable.New Row()
newRow.ItemArra y = oldRow.Itemarra y()
secondtable.Row s.add(newRow)

... where oldRow is a row from your old table.
This code would be inserted in a 'for each' loop to get each row from
the old table.

Good luck.

[Rob Panosh]

Sorry mean't to send to Bonzol.

Cheers,
Rob

Rob Panosh wrote:

Steven,

If you are using the 2.0 framwork you can to the following:

Dim newTable as New System.Data.Dat aTable = dt.DefaultView. ToTable

Just make sure you don't have any rowfilters set on the default view.

Cheers,
Rob Panosh
Steven Nagy wrote:

Ok try this:

Dim newRow as datarow = secondtable.New Row()
newRow.ItemArra y = oldRow.Itemarra y()
secondtable.Row s.add(newRow)

... where oldRow is a row from your old table.
This code would be inserted in a 'for each' loop to get each row from
the old table.

Good luck.

[Cor Ligthert [MVP]]

Rob,

Dim newTable as New System.Data.Dat aTable = dt.DefaultView. ToTable

Dim newTable as DataTable = dt.copy

does the same without thinking about the rowfilter and version.

http://msdn2.microsoft.com/en-us/lib...able.copy.aspx

I got the idea you did forever miss this one.
(However this cannot be the solution from the problem from the OP)

Cor