Victor Charles
asked on
How to update column in TableA based on matching IDs in TableB
Hello,
TableA contains:
ID ITEM COUNTRY
10411 ItemNameA
10412 ItemNmaeB
TableB contains
ID COUNTRY
10411 BEL,CAN,USA
10412 FRA,GBR,NLD
How do you loop through TableA add COUNTRY data from TableB based on matching IDs from both tables?
ID ITEM COUNTRY
10411 ItemNameA BEL,CAN,USA
10412 ItemNmaeB FRA,GBR,NLD
Thanks,
Victor
TableA contains:
ID ITEM COUNTRY
10411 ItemNameA
10412 ItemNmaeB
TableB contains
ID COUNTRY
10411 BEL,CAN,USA
10412 FRA,GBR,NLD
How do you loop through TableA add COUNTRY data from TableB based on matching IDs from both tables?
ID ITEM COUNTRY
10411 ItemNameA BEL,CAN,USA
10412 ItemNmaeB FRA,GBR,NLD
Thanks,
Victor
It should be something like:
UPDATE TableA
SET COUNTRY = (SELECT TableB.COUNTRY FROM TableB WHERE TableB.ID = TableA.ID)
UPDATE TableA
SET COUNTRY = (SELECT TableB.COUNTRY FROM TableB WHERE TableB.ID = TableA.ID)
ASKER
Thanks for the code, will try them when I return home later.
Update TableA Inner Join TableB
On TableA.ID=TableB.ID
Set TableA.Country=TableB.Coun try
On TableA.ID=TableB.ID
Set TableA.Country=TableB.Coun
ASKER
Hello,
I tried the code below, but the receive the following error: Operation must use an updateable query.
on line da.Fill(dt1).
Dim ConnectionString As String = "Provider=Microsoft.Jet.OL EDB.4.0;Da ta Source=|DataDirectory|\aop t2002org.m db;Persist Security Info=True;Jet OLEDB:Database Password=test"
Dim da As New OleDb.OleDbDataAdapter("Up date AOP6A AOP5 Set CA2=(Select Country From AOP5 Where SN=AOP5.SN)", ConnectionString)
objConnection.Open()
Dim dt1 As New DataSet
da.Fill(dt1)
da.Update(dt1)
Thanks,
Victor
I tried the code below, but the receive the following error: Operation must use an updateable query.
on line da.Fill(dt1).
Dim ConnectionString As String = "Provider=Microsoft.Jet.OL
Dim da As New OleDb.OleDbDataAdapter("Up
objConnection.Open()
Dim dt1 As New DataSet
da.Fill(dt1)
da.Update(dt1)
Thanks,
Victor
post the actual names of the tables and field names
ASKER
Tables: AOP6A, AOP5
FIELDS: CA2 FOR AOP6A
Country FOR AOP5
I need to separate the countries in CA2 by a ",", for example BEL,CAN,FRA,USA
Thanks,
Victor
FIELDS: CA2 FOR AOP6A
Country FOR AOP5
I need to separate the countries in CA2 by a ",", for example BEL,CAN,FRA,USA
Thanks,
Victor
Update AOP6A Inner Join AOP5
On AOP6A.ID=AOP5.ID
Set AOP6A.CA2=AOP5.Country
On AOP6A.ID=AOP5.ID
Set AOP6A.CA2=AOP5.Country
ASKER
I am trying your code but I'm receiving the following error on line da.Fill(dt1):
Syntax error (missing operator) in query expression 'AOP6A.ID=AOP5.ID AOP6A.CA2 = AOP5.Country'.
Code:
Dim ConnectionString As String = "Provider=Microsoft.Jet.OL EDB.4.0;Da ta Source=|DataDirectory|\aop t2002org.m db;Persist Security Info=True;Jet OLEDB:Database Password=testaopupdate"
Dim da As New OleDb.OleDbDataAdapter("Up date AOP6A Inner Join AOP5 On AOP6A.ID=AOP5.ID AOP6A.CA2 = AOP5.Country)", ConnectionString)
objConnection.Open()
Dim dt1 As New DataSet
da.Fill(dt1)
da.Update(dt1)
dt1.Tables(0).AcceptChange s()
Syntax error (missing operator) in query expression 'AOP6A.ID=AOP5.ID AOP6A.CA2 = AOP5.Country'.
Code:
Dim ConnectionString As String = "Provider=Microsoft.Jet.OL
Dim da As New OleDb.OleDbDataAdapter("Up
objConnection.Open()
Dim dt1 As New DataSet
da.Fill(dt1)
da.Update(dt1)
dt1.Tables(0).AcceptChange
vcharles,
copy the whole statement
copy the whole statement
ASKER
Hello,
Below is the full statement
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim ConnectionString As String = "Provider=Microsoft.Jet.OL EDB.4.0;Da ta Source=|DataDirectory|\aop t2002org.m db;Persist Security Info=True;Jet OLEDB:Database Password=testaopupdate"
' Dim da As New OleDb.OleDbDataAdapter("Up date AOP6A AOP5 Set CA2=(Select Country From AOP5 Where SN=AOP5.SN)", ConnectionString)
Dim da As New OleDb.OleDbDataAdapter("Up date AOP6A Inner Join AOP5 On AOP6A.ID=AOP5.ID AOP6A.CA2 = AOP5.Country)", ConnectionString)
objConnection.Open()
Dim dt1 As New DataSet
'da.Fill(dt1)
da.Fill(dt1)
da.Update(dt1)
dt1.Tables(0).AcceptChange s()
End Sub
Below is the full statement
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim ConnectionString As String = "Provider=Microsoft.Jet.OL
' Dim da As New OleDb.OleDbDataAdapter("Up
Dim da As New OleDb.OleDbDataAdapter("Up
objConnection.Open()
Dim dt1 As New DataSet
'da.Fill(dt1)
da.Fill(dt1)
da.Update(dt1)
dt1.Tables(0).AcceptChange
End Sub
vcharles, this is what i posted
Update AOP6A Inner Join AOP5 On AOP6A.ID=AOP5.ID Set AOP6A.CA2=AOP5.Country
can't you see which one you omitted? Dim da As New OleDb.OleDbDataAdapter("Update AOP6A Inner Join AOP5 On AOP6A.ID=AOP5.ID Set AOP6A.CA2 = AOP5.Country", ConnectionString)
ASKER
Thanks, will let you know how it works tomorrow.
Victor
Victor
Dont use Fill. Fill works with Select query not Update. Try this code
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\aopt2002org.mdb;Persist Security Info=True;Jet OLEDB:Database Password=testaopupdate"
Dim dbcon As New OleDbConnection(connectionstring)
dbcon.Open
Dim dbcmd As New OleDbCommand
dbcmd.Connection = dbcon
dbcmd.CommandText = "Update AOP6A AOP5 Set CA2=(Select Country From AOP5 Where SN=AOP5.SN)"
dbcmd.ExecuteNonQuery()
dbcmd.Dispose
dbcon.Close
dbcon.Dispose
End Sub
ASKER
Hello,
I tried the code from the last post, but I received the folowing error:
Operation must use an updateable query.
on line:
dbcmd.ExecuteNonQuery()
Thanks,
Victor
I tried the code from the last post, but I received the folowing error:
Operation must use an updateable query.
on line:
dbcmd.ExecuteNonQuery()
Thanks,
Victor
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Do I need to import something? I'm getting an error on dbcmd.SelectCommand (Error: SelectCommand is not a member of System.Data.OleDb.OleDbCom mand)
ASKER
I am getting Data type mismatch in criteria expression.error. The ID in your code was replaced by SN which is a text field, could that be the problem?
Dim ConnectionString As String = "Provider=Microsoft.Jet.OL EDB.4.0;Da ta Source=|DataDirectory|\aop t2002org.m db;Persist Security Info=True;Jet OLEDB:Database Password=testaopupdate"
Dim dbcon As New OleDbConnection(Connection String)
dbcon.Open()
Dim dbcmd As New OleDbCommand
dbcmd.Connection = dbcon
dbcmd.CommandText = "Select * From AOP5"
Dim dTable As New DataTable
Dim dbadp As New OleDbDataAdapter(dbcmd)
dbadp.Fill(dTable)
For i As Integer = 0 To dTable.Rows.Count - 1
dbcmd.CommandText = "Update AOP6A Set CA2='" & dTable.Rows(i).Item(1) & "' Where SN=" & dTable.Rows(i).Item(0)
dbcmd.ExecuteNonQuery()
Next
dTable.Dispose()
dbcmd.Dispose()
dbcon.Close()
dbcon.Dispose()
Dim ConnectionString As String = "Provider=Microsoft.Jet.OL
Dim dbcon As New OleDbConnection(Connection
dbcon.Open()
Dim dbcmd As New OleDbCommand
dbcmd.Connection = dbcon
dbcmd.CommandText = "Select * From AOP5"
Dim dTable As New DataTable
Dim dbadp As New OleDbDataAdapter(dbcmd)
dbadp.Fill(dTable)
For i As Integer = 0 To dTable.Rows.Count - 1
dbcmd.CommandText = "Update AOP6A Set CA2='" & dTable.Rows(i).Item(1) & "' Where SN=" & dTable.Rows(i).Item(0)
dbcmd.ExecuteNonQuery()
Next
dTable.Dispose()
dbcmd.Dispose()
dbcon.Close()
dbcon.Dispose()
If its a Text field, change
dbcmd.CommandText = "Update AOP6A Set CA2='" & dTable.Rows(i).Item(1) & "' Where SN=" & dTable.Rows(i).Item(0)
to
dbcmd.CommandText = "Update AOP6A Set CA2='" & dTable.Rows(i).Item(1) & "' Where SN='" & dTable.Rows(i).Item(0) & "'"
dbcmd.CommandText = "Update AOP6A Set CA2='" & dTable.Rows(i).Item(1) & "' Where SN=" & dTable.Rows(i).Item(0)
to
dbcmd.CommandText = "Update AOP6A Set CA2='" & dTable.Rows(i).Item(1) & "' Where SN='" & dTable.Rows(i).Item(0) & "'"
ASKER
It worked! but I'm confused. I have another column COUNTRYALL in AOP5 which contains a string of countries:BEL,CAN,FRA,USA etc..
When I replace the code with the one below, countryall is the 11th column in the table.
dbcmd.CommandText = "Update AOP6A Set CA2='" & dTable.Rows(i).Item(11) & "' Where SN='" & dTable.Rows(i).Item(0) & "'"
It doesn't copy the countryall data to the CA2 table in AOP6A, How do I choose another column in AOP5 to populate CA2?
Thanks,
Victor
When I replace the code with the one below, countryall is the 11th column in the table.
dbcmd.CommandText = "Update AOP6A Set CA2='" & dTable.Rows(i).Item(11) & "' Where SN='" & dTable.Rows(i).Item(0) & "'"
It doesn't copy the countryall data to the CA2 table in AOP6A, How do I choose another column in AOP5 to populate CA2?
Thanks,
Victor
ASKER
Please disregard my last post.
It's working great!
Thank You very much.
Victor
It's working great!
Thank You very much.
Victor
ASKER
Thank You!
Glad to help :-)
Update TableA TA Set Country=(Select Country From TableB Where ID=TA.ID)