473,707 Members | 2,309 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

insert multiple records

I have a recordset that contains multiple records of product a user is
purchasing. For clarity, I converted the recordset fields to variables. I
need to take that entire recordset and insert it into another table on a
remote server. The below code only inserts 1 record. How do I change the
code to get all records inserted?
thanks!

<%
Dim DataConn2
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
DataConn2.Execu te(SQL)
%>
Jul 19 '05 #1
10 3228
Run multiple INSERT INTO statements.

or .... use a disconnected recordset, manipulate it by adding records and
setting the field values and then pass it back using BatchUpdate to get the
updates back to the database [which is how I would do it].

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:u3******** ********@TK2MSF TNGP10.phx.gbl. ..
I have a recordset that contains multiple records of product a user is
purchasing. For clarity, I converted the recordset fields to variables. I
need to take that entire recordset and insert it into another table on a
remote server. The below code only inserts 1 record. How do I change the
code to get all records inserted?
thanks!

<%
Dim DataConn2
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
DataConn2.Execu te(SQL)
%>

Jul 19 '05 #2
.... then again, I already have a custom DLL that I wrote some time ago that
gets me disconnected recordset for Access and SQL Server allowing me to
concentrate on the program as opposed to the ADO.

If you want it may be useful - not sure) then your welcome to it (VB
project and optional MSI installer):
http://ftp.belper.blue-canoe.net/RSAccess/

I have updated it for my own development to handle DBFs and also to allow
specification of the cursor location so that you can elect to get an active
server-side cursor recordset. If you need either of these then email me and
I'll update the ZIP and MSI.

Hope this helps.

Chris.

"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:%2******** **********@TK2M SFTNGP10.phx.gb l...
Run multiple INSERT INTO statements.

or .... use a disconnected recordset, manipulate it by adding records and
setting the field values and then pass it back using BatchUpdate to get the
updates back to the database [which is how I would do it].

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:u3******** ********@TK2MSF TNGP10.phx.gbl. ..
I have a recordset that contains multiple records of product a user is
purchasing. For clarity, I converted the recordset fields to variables. I
need to take that entire recordset and insert it into another table on a
remote server. The below code only inserts 1 record. How do I change the
code to get all records inserted?
thanks!

<%
Dim DataConn2
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
DataConn2.Execu te(SQL)
%>


Jul 19 '05 #3
>>Run multiple INSERT INTO statements.<<
do you have an example of this?
thanks
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:%2******** **********@TK2M SFTNGP10.phx.gb l...
Run multiple INSERT INTO statements.

or .... use a disconnected recordset, manipulate it by adding records and
setting the field values and then pass it back using BatchUpdate to get the updates back to the database [which is how I would do it].

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:u3******** ********@TK2MSF TNGP10.phx.gbl. ..
I have a recordset that contains multiple records of product a user is
purchasing. For clarity, I converted the recordset fields to variables. I
need to take that entire recordset and insert it into another table on a
remote server. The below code only inserts 1 record. How do I change the
code to get all records inserted?
thanks!

<%
Dim DataConn2
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
DataConn2.Execu te(SQL)
%>

Jul 19 '05 #4
You already have an example - just loop through the array or recordset of
values that you have to insert and run your current code for each one.

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:ev******** ********@TK2MSF TNGP10.phx.gbl. ..
Run multiple INSERT INTO statements.<<
do you have an example of this?
thanks
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:%2******** **********@TK2M SFTNGP10.phx.gb l... Run multiple INSERT INTO statements.

or .... use a disconnected recordset, manipulate it by adding records and
setting the field values and then pass it back using BatchUpdate to get the updates back to the database [which is how I would do it].

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:u3******** ********@TK2MSF TNGP10.phx.gbl. ..
I have a recordset that contains multiple records of product a user is
purchasing. For clarity, I converted the recordset fields to variables. I
need to take that entire recordset and insert it into another table on a
remote server. The below code only inserts 1 record. How do I change the
code to get all records inserted?
thanks!

<%
Dim DataConn2
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
DataConn2.Execu te(SQL)
%>


Jul 19 '05 #5
I'm not that familiar with looping through recordsets. On the following
code, I get this error...

Expected end of statement
Dim i As Integer
------^
What do I need to change?
thanks
<%
Dim DataConn2
Dim i As Integer
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
For i = 0 To wsOrderDetails. ListCount -1 Step 1
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
Next i
DataConn2.Execu te(SQL)
%>
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:em******** **********@tk2m sftngp13.phx.gb l...
You already have an example - just loop through the array or recordset of
values that you have to insert and run your current code for each one.

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:ev******** ********@TK2MSF TNGP10.phx.gbl. ..
Run multiple INSERT INTO statements.<< do you have an example of this?
thanks
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:%2******** **********@TK2M SFTNGP10.phx.gb l...
Run multiple INSERT INTO statements.

or .... use a disconnected recordset, manipulate it by adding records

and setting the field values and then pass it back using BatchUpdate to get

the
updates back to the database [which is how I would do it].

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:u3******** ********@TK2MSF TNGP10.phx.gbl. ..
I have a recordset that contains multiple records of product a user is
purchasing. For clarity, I converted the recordset fields to variables. I need to take that entire recordset and insert it into another table on a
remote server. The below code only inserts 1 record. How do I change the
code to get all records inserted?
thanks!

<%
Dim DataConn2
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
DataConn2.Execu te(SQL)
%>


Jul 19 '05 #6
Hmm.

OK.

1. You can't Dim *as* in ASP - everything is a variant.

So you now have:

<%
Dim DataConn2
Dim i
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
For i = 0 To wsOrderDetails. ListCount -1 Step 1
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "

'Where are the values for iod_OrderID etc. coming from?
'You need to set them here to be values relevant to the current index of
wsOrderDetails.

SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
Next i
DataConn2.Execu te(SQL)
%>

What is wsOrderDetails (I know that its obviously a table in your database)?

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:Za******** ************@tw ister.tampabay. rr.com...
I'm not that familiar with looping through recordsets. On the following
code, I get this error...

Expected end of statement
Dim i As Integer
------^
What do I need to change?
thanks
<%
Dim DataConn2
Dim i As Integer
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
For i = 0 To wsOrderDetails. ListCount -1 Step 1
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
Next i
DataConn2.Execu te(SQL)
%>
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:em******** **********@tk2m sftngp13.phx.gb l...
You already have an example - just loop through the array or recordset of
values that you have to insert and run your current code for each one.

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:ev******** ********@TK2MSF TNGP10.phx.gbl. ..
Run multiple INSERT INTO statements.<< do you have an example of this?
thanks
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:%2******** **********@TK2M SFTNGP10.phx.gb l...
Run multiple INSERT INTO statements.

or .... use a disconnected recordset, manipulate it by adding records

and setting the field values and then pass it back using BatchUpdate to get

the
updates back to the database [which is how I would do it].

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:u3******** ********@TK2MSF TNGP10.phx.gbl. ..
I have a recordset that contains multiple records of product a user is
purchasing. For clarity, I converted the recordset fields to variables. I need to take that entire recordset and insert it into another table on a
remote server. The below code only inserts 1 record. How do I change the
code to get all records inserted?
thanks!

<%
Dim DataConn2
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
DataConn2.Execu te(SQL)
%>



Jul 19 '05 #7
1) I changed wsOrderDetails to rsOrderDetails which is the recordset I am
getting records from. That was a typo on my part.

2) I am now getting the following error...
Expected end of statement
Next i
-----^
How do I fix that?
thanks!

<%
Dim DataConn2
Dim i
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
For i = 0 To rsOrderDetails. ListCount -1 Step 1
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
Next i
DataConn2.Execu te(SQL)
%>
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:OS******** *******@tk2msft ngp13.phx.gbl.. .
Hmm.

OK.

1. You can't Dim *as* in ASP - everything is a variant.

So you now have:

<%
Dim DataConn2
Dim i
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
For i = 0 To wsOrderDetails. ListCount -1 Step 1
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "

'Where are the values for iod_OrderID etc. coming from?
'You need to set them here to be values relevant to the current index of
wsOrderDetails.

SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
Next i
DataConn2.Execu te(SQL)
%>

What is wsOrderDetails (I know that its obviously a table in your database)?
Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:Za******** ************@tw ister.tampabay. rr.com...
I'm not that familiar with looping through recordsets. On the following
code, I get this error...

Expected end of statement
Dim i As Integer
------^
What do I need to change?
thanks
<%
Dim DataConn2
Dim i As Integer
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
For i = 0 To wsOrderDetails. ListCount -1 Step 1
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
Next i
DataConn2.Execu te(SQL)
%>
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:em******** **********@tk2m sftngp13.phx.gb l...
You already have an example - just loop through the array or recordset of
values that you have to insert and run your current code for each one.

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:ev******** ********@TK2MSF TNGP10.phx.gbl. ..
>Run multiple INSERT INTO statements.<< do you have an example of this?
thanks
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:%2******** **********@TK2M SFTNGP10.phx.gb l...
Run multiple INSERT INTO statements.

or .... use a disconnected recordset, manipulate it by adding records and setting the field values and then pass it back using BatchUpdate to get the
updates back to the database [which is how I would do it].

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:u3******** ********@TK2MSF TNGP10.phx.gbl. ..
I have a recordset that contains multiple records of product a user is
purchasing. For clarity, I converted the recordset fields to
variables. I need to take that entire recordset and insert it into another table on

a remote server. The below code only inserts 1 record. How do I change the code to get all records inserted?
thanks!

<%
Dim DataConn2
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" & iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
DataConn2.Execu te(SQL)
%>



Jul 19 '05 #8
Try this:

<%
Dim DataConn2
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
'Presumes that rsOrderDetails is a recordset with 1 or more records that
contain order data.
With rsOrderDetails
If Not(.EOF) Then .MoveFirst
'Loop through the recordset and apply the data using an INSERT INTO sql
statement.
Do Until .EOF
'Get the relevant recordset field values.
iod_OrderID = .Fields("FieldN ame).Value
iod_OrderNo = .Fields("FieldN ame).Value
iod_Description = .Fields("FieldN ame).Value
iod_Qty = .Fields("FieldN ame).Value
iod_PriceEach = .Fields("FieldN ame).Value
iod_PriceLine = .Fields("FieldN ame).Value
'Construct the SQL
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description,
Qty, PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "',
'" & iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", &
iod_Priceline & ")"
'Execute the SQL
DataConn2.Execu te(SQL)
.MoveNext
Loop
End With
%>

Obviously you have to change the fieldnames to be whatever they should be.

NB: Learn the value of indentation and comments when doing ASP - your
scripts will be spaghetti and unfathomable without it. Also, never ever
release a script or ASP page that doesn't use Option Explicit at the top -
you *will* regret it if you don't.

Hope this helps.

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:07******** ************@tw ister.tampabay. rr.com...
1) I changed wsOrderDetails to rsOrderDetails which is the recordset I am
getting records from. That was a typo on my part.

2) I am now getting the following error...
Expected end of statement
Next i
-----^
How do I fix that?
thanks!

<%
Dim DataConn2
Dim i
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
For i = 0 To rsOrderDetails. ListCount -1 Step 1
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
Next i
DataConn2.Execu te(SQL)
%>
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:OS******** *******@tk2msft ngp13.phx.gbl.. .
Hmm.

OK.

1. You can't Dim *as* in ASP - everything is a variant.

So you now have:

<%
Dim DataConn2
Dim i
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
For i = 0 To wsOrderDetails. ListCount -1 Step 1
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "

'Where are the values for iod_OrderID etc. coming from?
'You need to set them here to be values relevant to the current index of
wsOrderDetails.

SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
Next i
DataConn2.Execu te(SQL)
%>

What is wsOrderDetails (I know that its obviously a table in your database)?
Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:Za******** ************@tw ister.tampabay. rr.com...
I'm not that familiar with looping through recordsets. On the following
code, I get this error...

Expected end of statement
Dim i As Integer
------^
What do I need to change?
thanks
<%
Dim DataConn2
Dim i As Integer
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
For i = 0 To wsOrderDetails. ListCount -1 Step 1
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
Next i
DataConn2.Execu te(SQL)
%>
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:em******** **********@tk2m sftngp13.phx.gb l...
You already have an example - just loop through the array or recordset of
values that you have to insert and run your current code for each one.

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:ev******** ********@TK2MSF TNGP10.phx.gbl. ..
>Run multiple INSERT INTO statements.<< do you have an example of this?
thanks
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:%2******** **********@TK2M SFTNGP10.phx.gb l...
Run multiple INSERT INTO statements.

or .... use a disconnected recordset, manipulate it by adding records and setting the field values and then pass it back using BatchUpdate to get the
updates back to the database [which is how I would do it].

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:u3******** ********@TK2MSF TNGP10.phx.gbl. ..
I have a recordset that contains multiple records of product a user is
purchasing. For clarity, I converted the recordset fields to
variables. I need to take that entire recordset and insert it into another table on

a remote server. The below code only inserts 1 record. How do I change the code to get all records inserted?
thanks!

<%
Dim DataConn2
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" & iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
DataConn2.Execu te(SQL)
%>




Jul 19 '05 #9
Remove your "i".

Bob Lehmann

"shank" <sh***@tampabay .rr.com> wrote in message
news:07******** ************@tw ister.tampabay. rr.com...
1) I changed wsOrderDetails to rsOrderDetails which is the recordset I am
getting records from. That was a typo on my part.

2) I am now getting the following error...
Expected end of statement
Next i
-----^
How do I fix that?
thanks!

<%
Dim DataConn2
Dim i
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
For i = 0 To rsOrderDetails. ListCount -1 Step 1
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
Next i
DataConn2.Execu te(SQL)
%>
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:OS******** *******@tk2msft ngp13.phx.gbl.. .
Hmm.

OK.

1. You can't Dim *as* in ASP - everything is a variant.

So you now have:

<%
Dim DataConn2
Dim i
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
For i = 0 To wsOrderDetails. ListCount -1 Step 1
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "

'Where are the values for iod_OrderID etc. coming from?
'You need to set them here to be values relevant to the current index of
wsOrderDetails.

SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
Next i
DataConn2.Execu te(SQL)
%>

What is wsOrderDetails (I know that its obviously a table in your database)?

Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:Za******** ************@tw ister.tampabay. rr.com...
I'm not that familiar with looping through recordsets. On the following
code, I get this error...

Expected end of statement
Dim i As Integer
------^
What do I need to change?
thanks
<%
Dim DataConn2
Dim i As Integer
Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
DataConn2.Open MM_kasKSS_STRIN G
For i = 0 To wsOrderDetails. ListCount -1 Step 1
SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description, Qty,
PriceEach, Priceline) "
SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "', '" &
iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
iod_Priceline & ")"
Next i
DataConn2.Execu te(SQL)
%>
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:em******** **********@tk2m sftngp13.phx.gb l...
You already have an example - just loop through the array or recordset of values that you have to insert and run your current code for each one.
Chris.

"shank" <sh***@tampabay .rr.com> wrote in message
news:ev******** ********@TK2MSF TNGP10.phx.gbl. ..
>>Run multiple INSERT INTO statements.<<
do you have an example of this?
thanks
"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:%2******** **********@TK2M SFTNGP10.phx.gb l...
> Run multiple INSERT INTO statements.
>
> or .... use a disconnected recordset, manipulate it by adding records
and
> setting the field values and then pass it back using BatchUpdate to get the
> updates back to the database [which is how I would do it].
>
> Chris.
>
> "shank" <sh***@tampabay .rr.com> wrote in message
> news:u3******** ********@TK2MSF TNGP10.phx.gbl. ..
> I have a recordset that contains multiple records of product a user
is > purchasing. For clarity, I converted the recordset fields to

variables.
I
> need to take that entire recordset and insert it into another table on a > remote server. The below code only inserts 1 record. How do I change the > code to get all records inserted?
> thanks!
>
> <%
> Dim DataConn2
> Set DataConn2 = Server.CreateOb ject("ADODB.Con nection")
> DataConn2.Open MM_kasKSS_STRIN G
> SQL = "INSERT INTO wsOrderDetails (OrderID, OrderNo, Description,
Qty, > PriceEach, Priceline) "
> SQL = SQL & "Values ('" & iod_OrderID & "', '" & iod_OrderNo & "',
'" & > iod_Description & "', " & iod_Qty & ", " & iod_PriceEach & ", " &
> iod_Priceline & ")"
> DataConn2.Execu te(SQL)
> %>
>
>
>



Jul 19 '05 #10

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

Similar topics

8
5519
by: Sans Spam | last post by:
Greetings! I have a table that contains all of the function permissions within a given application. These functions are different sections of a site and each has its own permissions (READ, WRITE, UPDATE, DELETE) which are controlled by a web frontend and the table records are manipulated to control the permissions. Example: The Press Release section record would look like this: Username: John Doe Function Name: Press Release
2
2666
by: Joe | last post by:
Hey, I'm going to give some background on my situation in case anyone can point out a way around my problem altogether... for the problem itself, please skip to the bottom of the post. thanks. I've been having some problems with database performance... Several threads are constantly attempting INSERTs of new records into a large table - that is hundreds of thousands of records -large by my account :-) The table has a VARCHAR field...
2
13396
by: george | last post by:
This is like the bug from hell. It is kind of hard to explain, so please bear with me. Background Info: SQL Server 7.0, on an NT box, Active Server pages with Javascript, using ADO objects. I'm inserting simple records into a table. But one insert command is placing 2 or 3 records into the table. The 'extra' records, have the same data as the previous insert incident, (except for the timestamp).
0
3144
by: jtocci | last post by:
I'm having a big problem with CREATE RULE...ON INSERT...INSERT INTO...SELECT...FROM...WHERE when I want to INSERT several (20~50) records based on a single INSERT to a view. Either I get a 'too much data for field' or the query just runs on and on til I have to restart the postmaster. I have found rules to compare mine to but people limit the resulting insert to one record (the WHERE generally limits the result of the SELECT to one...
10
3396
by: Mike | last post by:
I know this sounds strange but I am at a loss. I am calling a simple funtion that opens a connection to a SQL Server 2000 database and executes an Insert Statement. private void AddMinimunWageStipen(string payrollid,double amount) { System.Data.SqlClient.SqlConnection cn = null; System.Data.SqlClient.SqlCommand cm = null;
4
2200
by: Mike Hnatt | last post by:
My goal is to get data from an XML file into a couple of tables in an Access database. The XML file is a little complex so I need control over what I do (I can't just read it into a dataset). The way I have it now is ennumerating through my XML file and for each record, running an INSERT INTO SQL statement to put the values in the database. Is this going to be okay with 50 or so records (hitting the database with 50 or so INSERT...
12
3009
by: shank | last post by:
I'm trying to use online samples for submitting multiple records from ASP into a stored procedure. Failing! Through the below form, a user could be submitting many records at a time. I'm not getting any records inserted. For troubleshooting, I cut the form down to 1 textbox and when submitted it populated 5 rows of the same data. So I know I'm connected, but not getting the LOOP and NEXT correct? How do I set this up so many records can be...
1
4824
by: clayalphonso | last post by:
Here is the code: <% dim testArray, testArray2 dim Conn, rs dim sSQL, sConnString 'response.write request.form("sel1") 'testArray = split(request.form("sel1"),",") 'for each gidstuff In testArray 'Response.Write gidstuff & "<br />"
0
4452
chumlyumly
by: chumlyumly | last post by:
Hello scripters - OS: Mac OSX Language: PHP w/ MySQL database I've created an insert page where a user inputs his info, which then goes to four different tables in a MySQL database. The tables are all linked with the field 'member_id', which is an auto-increment field in the parent table ('members'). I've been able to input multiple records into the other three tables 'specialty_groups', 'committee_interest' and 'committee_member'...
0
8786
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look ! Part I. Meaning of...
0
8697
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
0
9157
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
0
8999
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
0
7920
agi2029
by: agi2029 | last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own.... Now, this would greatly impact the work of software developers. The idea...
0
5939
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...
0
4454
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
0
4710
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
2
2507
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.

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.