syntax mistake.. pls help

[lyealain]

the error come out at the bold section... pls help to check my algorithm ...thanks


Dim qryTake, rsTake

dim qryCbomFiltered, rsFiltered

qryChange = "SELECT PartNumber,PartDesc, comCode, MPN,QMPN,AML, SupplierName, LeadTime from cbomnew where comCode= 'PCEC' || comCode='LOX'||comCode='CCEC' "
Set rsTake= conn.Execute(qryChange)

qryCbomFiltered = "select PartNumber , SupplierName from cbom_Filtered"
set rsFiltered = conn.Execute(qryCbomFiltered)


if not rstake.eof then
while not rsTake.eof
while not rsFiltered.eof
if rsTake.Fields("PartNumber") = rsFiltered.Fields("PartNumber")
then
found true
else rsFiltered.movenext
end if
wend
rsTake.movenext
wend

If found = True Then
response.write(" data exist")

Else

Dim qryinsert, rsinsert

qryisert = "INSERT INTO cbom_filtered(PartNumber,PartDesc, comCode, MPN,QMPN,AML, SupplierName, LeadTime ) values ("&rsTake.Fields("PartNumber")&", "&rsTake.Fields("PartDesc")&", "&rsTake.Fields("comCode")&","&rsTake.Fields("MPN" )&","&rsTake.Fields("QMPN")&", "&rsTake.Fields("AML")&","&rsTake.Fields("Supplier Name")&","&rsTake.Fields("LeadTime")&")"

Set rsinsert = conn.execute(qryinsert)

End if
end if

[shweta123]

Hi,

What are you getting at the Insert statement?
Does all the fields in the insert query conatin numeric values?
If not try including them within quotes.
e.g. '"&rsTake.Fields("SupplierName")&"'.
You can also debug the it by just Response.write(qryisert)

the error come out at the bold section... pls help to check my algorithm ...thanks


Dim qryTake, rsTake

dim qryCbomFiltered, rsFiltered

qryChange = "SELECT PartNumber,PartDesc, comCode, MPN,QMPN,AML, SupplierName, LeadTime from cbomnew where comCode= 'PCEC' || comCode='LOX'||comCode='CCEC' "
Set rsTake= conn.Execute(qryChange)

qryCbomFiltered = "select PartNumber , SupplierName from cbom_Filtered"
set rsFiltered = conn.Execute(qryCbomFiltered)


if not rstake.eof then
while not rsTake.eof
while not rsFiltered.eof
if rsTake.Fields("PartNumber") = rsFiltered.Fields("PartNumber")
then
found true
else rsFiltered.movenext
end if
wend
rsTake.movenext
wend

If found = True Then
response.write(" data exist")

Else

Dim qryinsert, rsinsert

qryisert = "INSERT INTO cbom_filtered(PartNumber,PartDesc, comCode, MPN,QMPN,AML, SupplierName, LeadTime ) values ("&rsTake.Fields("PartNumber")&", "&rsTake.Fields("PartDesc")&", "&rsTake.Fields("comCode")&","&rsTake.Fields("MPN" )&","&rsTake.Fields("QMPN")&", "&rsTake.Fields("AML")&","&rsTake.Fields("Supplier Name")&","&rsTake.Fields("LeadTime")&")"

Set rsinsert = conn.execute(qryinsert)

End if
end if

[lyealain]

Hi,

What are you getting at the Insert statement?
Does all the fields in the insert query conatin numeric values?
If not try including them within quotes.
e.g. '"&rsTake.Fields("SupplierName")&"'.
You can also debug the it by just Response.write(qryisert)

the insert values are integer and varchar.. it cannot be
'"&rsTake.Fields("SupplierName")&"' because i will insert only those value which are not in the cbomnew table... i need to compare it with cbom_filtered..

if not found true...( mean no value similiar.. then only i add)
i need to add that exact value which found none in the cbomnew table..

so,,, the exace value is this below..but it has error.. is my algorithm correct??? tthanks

qryisert = "INSERT INTO cbom_filtered(PartNumber,PartDesc, comCode, MPN,QMPN,AML, SupplierName, LeadTime ) values ("&rsTake.Fields("PartNumber")&", "&rsTake.Fields("PartDesc")&", "&rsTake.Fields("comCode")&","&rsTake.Fields("MPN" )&","&rsTake.Fields("QMPN")&", "&rsTake.Fields("AML")&","&rsTake.Fields("Supplier Name")&","&rsTake.Fields("LeadTime")&")"

[shweta123]

Hi,

Code is looking to be right. But can you please specify which error you are getting? Also if rsTake contains both numeric and varchar value it should be in quotes.There may be you are getting ,Syntax error.

the insert values are integer and varchar.. it cannot be
'"&rsTake.Fields("SupplierName")&"' because i will insert only those value which are not in the cbomnew table... i need to compare it with cbom_filtered..

if not found true...( mean no value similiar.. then only i add)
i need to add that exact value which found none in the cbomnew table..

so,,, the exace value is this below..but it has error.. is my algorithm correct??? tthanks

qryisert = "INSERT INTO cbom_filtered(PartNumber,PartDesc, comCode, MPN,QMPN,AML, SupplierName, LeadTime ) values ("&rsTake.Fields("PartNumber")&", "&rsTake.Fields("PartDesc")&", "&rsTake.Fields("comCode")&","&rsTake.Fields("MPN" )&","&rsTake.Fields("QMPN")&", "&rsTake.Fields("AML")&","&rsTake.Fields("Supplier Name")&","&rsTake.Fields("LeadTime")&")"