sqlupdate = sqlupdate & "'"& OraRec("CURHIREDATE") &"'" &", "
I don't know how to fix this in vb. can someone help?
Here is the code:
Expand|Select|Wrap|Line Numbers
- set AccDb=server.CreateObject("Adodb.connection")
- set Oradb=server.CreateObject("Adodb.connection")
- set AccRec=server.createobject("ADODB.Recordset")
- set OraRec=server.createobject("ADODB.Recordset")
- Application("EmpMasterAccessDB")="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=\DBProjects\EmpMaster\ EmpMasterCopy.mdb"
- Application("Oracle_HR")= "DSN=Oracle_HLTP;User ID=myUID;Password=myPWD;"
- Oradb.Open Application("Oracle_HR")
- OraRec.Open "select * from EMPMASTER", Oradb
- AccDb.Open Application("EmpMasterAccessDB")
- Do While Not OraRec.EOF
- If IsNull(OraRec("CURHIREDATE")) = False Then
- sqlupdate = sqlupdate & "CurrentHiredate="
- sqlupdate = sqlupdate & "'"& OraRec("CURHIREDATE") &"'" &", "
- orarec.MoveNext
- else
- Response.Write "NULL"
- orarec.MoveNext
- End If
- loop
- AccDb.Close