473,322 Members | 1,781 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,322 software developers and data experts.

Quick and easy copy of a Row to another Row

How would I quickly read several records (rows) from a SQL table, change the
key in each (recordid) and insert them back into the same table thus
creating duplicates.

I'm reading the rows like this:

Dim strSQL As String = _
"SELECT * FROM XMMProjDet " & _
"WHERE Project = '" & Trim(txtProject.Text) & "' and
ProposalNbr = " & Trim(txtCopyFrom.Text)

Dim scnnSol As New SqlConnection(SQL_CONNECTION_STRING)
Dim scmd As New SqlCommand(strSQL, scnnSol)
scnnSol.Open()
Dim myReader As SqlDataReader = scmd.ExecuteReader()

Thanks much.
--
LUIS ESTEBAN VALENCIA
MICROSOFT DCE 3.
MIEMBRO ACTIVO DE ALIANZADEV
http://spaces.msn.com/members/extremed/
Nov 19 '05 #1
3 1130
Select into

--
Curt Christianson
Site: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Luis Esteban Valencia" <lu*******@haceb.com> wrote in message
news:O8*************@TK2MSFTNGP10.phx.gbl...
How would I quickly read several records (rows) from a SQL table, change
the
key in each (recordid) and insert them back into the same table thus
creating duplicates.

I'm reading the rows like this:

Dim strSQL As String = _
"SELECT * FROM XMMProjDet " & _
"WHERE Project = '" & Trim(txtProject.Text) & "' and
ProposalNbr = " & Trim(txtCopyFrom.Text)

Dim scnnSol As New SqlConnection(SQL_CONNECTION_STRING)
Dim scmd As New SqlCommand(strSQL, scnnSol)
scnnSol.Open()
Dim myReader As SqlDataReader = scmd.ExecuteReader()

Thanks much.
--
LUIS ESTEBAN VALENCIA
MICROSOFT DCE 3.
MIEMBRO ACTIVO DE ALIANZADEV
http://spaces.msn.com/members/extremed/

Nov 19 '05 #2
Yes, this would work BUT the recordid would be duplicated. I need to be
able to change just one or two fields in each record as they are copied.
I'm trying to avoid reading the row and copying ALL the values out to
individual vars (there are a lot of columns), change the two vars that I
need and then insert them into the table

--
LUIS ESTEBAN VALENCIA
MICROSOFT DCE 3.
MIEMBRO ACTIVO DE ALIANZADEV
http://spaces.msn.com/members/extremed/
"Curt_C [MVP]" <software_AT_darkfalz.com> escribió en el mensaje
news:uk**************@TK2MSFTNGP11.phx.gbl...
Select into

--
Curt Christianson
Site: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Luis Esteban Valencia" <lu*******@haceb.com> wrote in message
news:O8*************@TK2MSFTNGP10.phx.gbl...
How would I quickly read several records (rows) from a SQL table, change
the
key in each (recordid) and insert them back into the same table thus
creating duplicates.

I'm reading the rows like this:

Dim strSQL As String = _
"SELECT * FROM XMMProjDet " & _
"WHERE Project = '" & Trim(txtProject.Text) & "' and
ProposalNbr = " & Trim(txtCopyFrom.Text)

Dim scnnSol As New SqlConnection(SQL_CONNECTION_STRING)
Dim scmd As New SqlCommand(strSQL, scnnSol)
scnnSol.Open()
Dim myReader As SqlDataReader = scmd.ExecuteReader()

Thanks much.
--
LUIS ESTEBAN VALENCIA
MICROSOFT DCE 3.
MIEMBRO ACTIVO DE ALIANZADEV
http://spaces.msn.com/members/extremed/


Nov 19 '05 #3
Select ...fields...(ID + 1) as ID, into....

--
Curt Christianson
Site: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Luis Esteban Valencia" <lu*******@haceb.com> wrote in message
news:%2****************@TK2MSFTNGP15.phx.gbl...
Yes, this would work BUT the recordid would be duplicated. I need to be
able to change just one or two fields in each record as they are copied.
I'm trying to avoid reading the row and copying ALL the values out to
individual vars (there are a lot of columns), change the two vars that I
need and then insert them into the table

--
LUIS ESTEBAN VALENCIA
MICROSOFT DCE 3.
MIEMBRO ACTIVO DE ALIANZADEV
http://spaces.msn.com/members/extremed/
"Curt_C [MVP]" <software_AT_darkfalz.com> escribió en el mensaje
news:uk**************@TK2MSFTNGP11.phx.gbl...
Select into

--
Curt Christianson
Site: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Luis Esteban Valencia" <lu*******@haceb.com> wrote in message
news:O8*************@TK2MSFTNGP10.phx.gbl...
> How would I quickly read several records (rows) from a SQL table,
> change
> the
> key in each (recordid) and insert them back into the same table thus
> creating duplicates.
>
> I'm reading the rows like this:
>
> Dim strSQL As String = _
> "SELECT * FROM XMMProjDet " & _
> "WHERE Project = '" & Trim(txtProject.Text) & "' and
> ProposalNbr = " & Trim(txtCopyFrom.Text)
>
> Dim scnnSol As New SqlConnection(SQL_CONNECTION_STRING)
> Dim scmd As New SqlCommand(strSQL, scnnSol)
> scnnSol.Open()
> Dim myReader As SqlDataReader = scmd.ExecuteReader()
>
> Thanks much.
>
>
> --
> LUIS ESTEBAN VALENCIA
> MICROSOFT DCE 3.
> MIEMBRO ACTIVO DE ALIANZADEV
> http://spaces.msn.com/members/extremed/
>
>



Nov 19 '05 #4

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
1
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.