close ad
WARNING: Do Not Install the DREAMWEAVER CC 2017 or 2018 Update »
open ad
View Menu

Technical Support Forums

Free, outstanding support from WebAssist and your colleagues

rating

Multiple insert not working

Thread began 8/13/2009 9:01 am by jpj341892 | Last modified 8/19/2009 2:13 pm by Eric Mittman | 938 views | 3 replies |

jpj341892

Multiple insert not working

I have a repeat table inside a form. After submit it should update the database, but nothing is entered. I have no idea where to look for the problem.
I have included the page and the table view of SQL 2008 table

Attached Files
Insert2.zip
Sign in to reply to this post

Eric Mittman

Thanks for including the page, that is very helpful. When I look at your page I can see that there is a part that is not rite. In your multiple insert at the top you have the looped fields specified. The way they are specified is not correct and will cause the insert to not occur correctly.

What is the version of DataAssist that you have installed that you are using for this? Also what steps did you take to make this insert page a multiple insert?

I did a quick test to compare to yours and got a positive result with my test. Here is what I did to get it configured correctly.

First I had a page with a simple form on it. I then applied the DataAssist repeat selection to the rows of the form that I wanted to include for each record I insert. Next I just went to the DataAssist > Insert > Multiple Insert. From here I selected 'always insert' then the connection, the table and the redirect page. On the next step I selected the column in the db, then for the value I used the lightning bolt to select the corresponding form field. When I finished I had a working multiple insert.

Please post back with some details about what you are doing in the wizard and the version you are using so we can see if there is some issue there.

Sign in to reply to this post

jpj341892

Replay Multi insert

I use WADataAssist205
My steps
I first make the table inside a form.
Make sure it was working
Then applied the repeat selection.
Then I selected multi Insert from DataAssist and use the dropdown to select to appropiate colums where to insert
When running the page again I get an string error from the WA_loopedFields
The problem was the last %> in every record added so I changed this to &premil;> then it worked okay but nothing was inserted into the database.

I tryed to make a insert page with dataAssist
Very simple insert.
But it will not work, i get an error
Microsoft OLE DB Provider for SQL Server error '80040e14'

Incorrect syntax near '34'.

/DressForm_Insert.asp, line 31

<%
' WA Application Builder Insert
if (cStr(Request.Form("Insert.x")) <> "") then
WA_connection = MM_vbOFM_STRING
WA_table = "dbo.DressForm"
WA_sessionName = "WADA_Insert_dboDressForm"
WA_redirectURL = "DressForm_Results.asp"
WA_keepQueryString = true
WA_indexField = "MeasuementID"
WA_fieldNamesStr = "ContactpersoonId|Number|Name|34|Grading1|36|Grading2|38|Grading3|40|Grading4|42|Grading5|44|Grading6|46|Grading7"
WA_fieldValuesStr = "" & cStr(cStr(Request.Form("ContactpersoonId"))) & "" & "|" & "" & cStr(cStr(Request.Form("Number"))) & "" & "|" & "" & cStr(cStr(Request.Form("Name"))) & "" & "|" & "" & cStr(cStr(Request.Form("34"))) & "" & "|" & "" & cStr(cStr(Request.Form("Grading1"))) & "" & "|" & "" & cStr(cStr(Request.Form("36"))) & "" & "|" & "" & cStr(cStr(Request.Form("Grading2"))) & "" & "|" & "" & cStr(cStr(Request.Form("38"))) & "" & "|" & "" & cStr(cStr(Request.Form("Grading3"))) & "" & "|" & "" & cStr(cStr(Request.Form("40"))) & "" & "|" & "" & cStr(cStr(Request.Form("Grading4"))) & "" & "|" & "" & cStr(cStr(Request.Form("42"))) & "" & "|" & "" & cStr(cStr(Request.Form("Grading5"))) & "" & "|" & "" & cStr(cStr(Request.Form("44"))) & "" & "|" & "" & cStr(cStr(Request.Form("Grading6"))) & "" & "|" & "" & cStr(cStr(Request.Form("46"))) & "" & "|" & "" & cStr(cStr(Request.Form("Grading7"))) & ""
WA_columnTypesStr = "none,none,NULL|none,none,NULL|',none,''|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL|none,none,NULL"
WA_comparisonStr = " = | = | LIKE | = | = | = | = | = | = | = | = | = | = | = | = | = | = "
WA_fieldNames = Split(WA_fieldNamesStr,"|")
WA_fieldValues = Split(WA_fieldValuesStr,"|")
WA_columns = Split(WA_columnTypesStr,"|")
WA_comparisions = Split(WA_comparisonStr, "|")

insertParamsObj = WA_AB_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, -1)
set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = WA_connection
MM_editCmd.CommandText = "INSERT INTO " & WA_table & " (" & insertParamsObj(1) & ") VALUES (" & insertParamsObj(2) & ")"
MM_editCmd.Execute()
MM_editCmd.ActiveConnection.Close()
obj = WA_AB_generateWhereClause(WA_fieldNames, WA_columns, WA_fieldValues, WA_comparisions)
sqlstr = "SELECT " & WA_indexField & " FROM " & WA_table & " WHERE " & obj & " ORDER BY " & WA_indexField & " DESC"
set WA_AppBuilderRecordset = Server.CreateObject("ADODB.Recordset")
WA_AppBuilderRecordset.ActiveConnection = WA_connection
WA_AppBuilderRecordset.Source = sqlstr
WA_AppBuilderRecordset.CursorType = 0
WA_AppBuilderRecordset.CursorLocation = 2
WA_AppBuilderRecordset.LockType = 1
WA_AppBuilderRecordset.Open()
if (NOT WA_AppBuilderRecordset.EOF) then Session(WA_sessionName) = WA_AppBuilderRecordset.Fields.Item(WA_indexField).Value
WA_AppBuilderRecordset.Close()
if (WA_redirectURL <> "") then
if (WA_keepQueryString AND Request.QueryString <> "" AND Request.QueryString.Count > 0) then
if (inStr(WA_redirectURL,"?") > 0) then
WA_redirectURL = WA_redirectURL & "&"
else
WA_redirectURL = WA_redirectURL & "?"
end if
WA_redirectURL = WA_redirectURL & Request.QueryString
end if
Response.Redirect(WA_redirectURL)
end if
end if
%>

So then I tryed the wizard from dreamweaver and also the same simple form
This one works perfectly
<%
If (CStr(Request("MM_insert")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
for i=0 to 4 step 1
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_vbOFM_STRING
MM_editCmd.CommandText = "INSERT INTO dbo.DressForm (ContactpersoonId, [Number], Name, [34], Grading1, [36], Grading2, [38], Grading3, [40], Grading4, [42], Grading5, [44], Grading6, [46], Grading7) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("ContactpersoonId"), Request.Form("ContactpersoonId"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("Number"), Request.Form("Number"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 200, Request.Form("Name")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 10, Request.Form("Element")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 10, Request.Form("Grading1")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 10, Request.Form("Element2")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 10, Request.Form("Grading2")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 10, Request.Form("Element3")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 10, Request.Form("Grading3")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 10, Request.Form("0")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 10, Request.Form("Grading4")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 10, Request.Form("Element4")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 202, 1, 10, Request.Form("Grading5")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 202, 1, 10, Request.Form("Element5")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 202, 1, 10, Request.Form("Grading6")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 202, 1, 10, Request.Form("Element6")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 202, 1, 10, Request.Form("Grading7")) ' adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
next
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "Results.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>

I am using sql 2008 and this script works perfect
INSERT INTO
dbo.DressForm
( ContactpersoonId, Number, [Name], [34], Grading1, [36], Grading2, [38], Grading3,
[40], Grading4, [42], Grading5, [44], Grading6, [46], Grading7)
VALUES (3,0,'Test1',1,2,1,0.5,12,2,100,4,104,2.25,106.25,2,108.25,0.75),
(3,1,'Test2',1,2,1,0.5,12,2,100,4,104,2.25,106.25,2,108.25,0.75),
(3,2,'Test3',1,2,1,0.5,12,2,100,4,104,2.25,106.25,2,108.25,0.75);

The problem is I need to replace the values with a variable so I can use the form that I have and insert mutliple records using a loop but what ever I try have no luck so far.

Sign in to reply to this post

Eric Mittman

I have opened a ticket for you other thread: showthread.php?p=12960#post12960

Please do not respond to this thread.

Sign in to reply to this post

Build websites with a little help from your friends

Your friends over here at WebAssist! These Dreamweaver extensions will assist you in building unlimited, custom websites.

Build websites from already-built web applications

These out-of-the-box solutions provide you proven, tested applications that can be up and running now.  Build a store, a gallery, or a web-based email solution.

Want your website pre-built and hosted?

Close Windowclose

Rate your experience or provide feedback on this page

Account or customer service questions?
Please user our contact form.

Need technical support?
Please visit support to ask a question

Content

rating

Layout

rating

Ease of use

rating

security code refresh image

We do not respond to comments submitted from this page directly, but we do read and analyze any feedback and will use it to help make your experience better in the future.

Close Windowclose

We were unable to retrieve the attached file

Close Windowclose

Attach and remove files

add attachmentAdd attachment
Close Windowclose

Enter the URL you would like to link to in your post

Close Windowclose

This is how you use right click RTF editing

Enable right click RTF editing option allows you to add html markup into your tutorial such as images, bulleted lists, files and more...

-- click to close --

Uploading file...