Home > SQL Development > Insert into Access Table with SQL

Insert into Access Table with SQL

Originally posted by : Matt (dvdauthority@aol.com) I downloaded the Insert records code and it all "appears" to be working. I enter everything and it says "Your records have been updated" however when I got to check my database, the information is not there. Here's some info on my DB. My table and DB name are both "testing". My fields are (no quotes): "column_one" "column_two" "column_three" "column_four" "link" "image" Here's my .html code ==================== <form method="post" name="form1" action="addrecords.asp"> Title <input type="text" size="40" name="text1"> Author <input type="text" size="40" name="text2"> Date added <input type="text" size="40" name="text"> Type of Review <input type="text" size="40" name="text4"> Link <input type="text" size="40" name="text5"> Image location <input type="text" size="40" name="text6"> <input type="Submit" value="Submit New Example" name"b1"> </form> Here's my .asp code =================== <%@ Language = "VBScript"%> <% 'Declare all local variables dim conn dim rs 'dim strconn dim strsql dim col1 dim col2 dim col3 dim col4 dim link dim image strsql = "" 'set connection string to local variable-I use a DSN-less connection 'strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("testing.mdb") 'build the sql statement based on the input from the form strSQL = "INSERT INTO testing(column_one, column_two, column_three, column_four, link, image)" strSQL = strSQL & " SELECT " strSQL = strSQL & "'" & request("col1") & "' as text1," strSQL = strSQL & "'" & request("col2") & "' as text2," strSQL = strSQL & "'" & request("col3") & "' as text3," strSQL = strSQL & "'" & request("col4") & "' as text4," strSQL = strSQL & "'" & request("link") & "' as text5," strSQL = strSQL & "'" & request("image") & "' as text6," 'Set connection object Set con = Server.CreateObject("ADODB.Connection") con.open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=d:xxx.xx.xxx.xx esting.mdb" 'Use the execute method of the connection object the insert the record 'conn.execute(strSQL) 'conn.close set conn = nothing %> <html><head> <title>SQL Add record example</title> </head> <body> <% = "Your record has been added" %> </body> </html> if anyone can help figure this out, I'm forever grateful. Thanks so much in advance. -Matt

Guest

Originally posted by : steve schofield if this is the exact code you use the con.execute line is commented out. you actually have to execute your strsql statement. steve ------------ Matt at 3/17/2000 6:29:49 PM I downloaded the Insert records code and it all "appears" to be working. I enter everything and it says "Your records have been updated" however when I got to check my database, the information is not there. Here's some info on my DB. My table and DB name are both "testing". My fields are (no quotes): "column_one" "column_two" "column_three" "column_four" "link" "image" Here's my .html code ==================== <form method="post" name="form1" action="addrecords.asp"> Title <input type="text" size="40" name="text1"> Author <input type="text" size="40" name="text2"> Date added <input type="text" size="40" name="text"> Type of Review <input type="text" size="40" name="text4"> Link <input type="text" size="40" name="text5"> Image location <input type="text" size="40" name="text6"> <input type="Submit" value="Submit New Example" name"b1"> </form> Here's my .asp code =================== <%@ Language = "VBScript"%> <% 'Declare all local variables dim conn dim rs 'dim strconn dim strsql dim col1 dim col2 dim col3 dim col4 dim link dim image strsql = "" 'set connection string to local variable-I use a DSN-less connection 'strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("testing.mdb") 'build the sql statement based on the input from the form strSQL = "INSERT INTO testing(column_one, column_two, column_three, column_four, link, image)" strSQL = strSQL & " SELECT " strSQL = strSQL & "'" & request("col1") & "' as text1," strSQL = strSQL & "'" & request("col2") & "' as text2," strSQL = strSQL & "'" & request("col3") & "' as text3," strSQL = strSQL & "'" & request("col4") & "' as text4," strSQL = strSQL & "'" & request("link") & "' as text5," strSQL = strSQL & "'" & request("image") & "' as text6," 'Set connection object Set con = Server.CreateObject("ADODB.Connection") con.open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=d:xxx.xx.xxx.xx esting.mdb" 'Use the execute method of the connection object the insert the record 'conn.execute(strSQL) 'conn.close set conn = nothing %> <html><head> <title>SQL Add record example</title> </head> <body> <% = "Your record has been added" %> </body> </html> if anyone can help figure this out, I'm forever grateful. Thanks so much in advance. -Matt

Was this answer helpful ? Yes No

Guest

Answer it

Ask Question About SQL Development

Insert into Access Table with SQL

Programming

Related Pages