slegy
asked on
Insert Record into Access DB using VBScript
This should be simple and straightforward, but I've spent all day and had no success. I'm updating one table and, based on the results, attempting to insert a record in another table. The first update (to the members table) is working. But I have had no success with the insert to ilcaMembers:
There are no error messages.
'define subroutine to handle "all" payments ##
sub allPayments() ' begin sub ###########################################################
set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("../../DB/ILCAEVENTCALENDAR.MDB") & ";"
conn.Open
set rs = Server.CreateObject("ADODB.recordset")
sql = "UPDATE members SET members.paypalStatus = '" & payment_status & "' Where (((members.memID) = '" & memberID & "'));"
rs=conn.Execute(sql)
sql = "SELECT * FROM members WHERE (memID = '" & memberID & "');"
rs=conn.Execute(sql)
districtCode = rs.district
If (rs.appType = "M" or rs.appType = "R") And (Trim(payment_status) = "Pending") then
conn.close
set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("../../DB/ILCADATA.MDB") & ";"
conn.Open
set rs = Server.CreateObject("ADODB.recordset")
sql = "SELECT districtName FROM districts WHERE (districtCode = '" & districtCode & "');"
rs=conn.Execute(sql)
districtName = rs.DistrictName
sql = "INSERT INTO ilcaMembers (memberID, districtName) VALUES ([" & memberID & "], [" & districtName &"])"
rs=conn.Execute(sql)
conn.close
End If
end sub 'end sub
There are no error messages.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Found the problem - bad code!
ASKER
It was my coding error, but being sure about the insert code saved a lot of time. Thank you.
ASKER
Thank you for the tip about the code.