I am using MS FoxPro to insert data into db2 file the data I am sending is a date which I cast as a datetime value example 07/06/2010 12:00:00 AM.
I get an sql error that token 12 in invalid.
here is my sql syntax
Code:
insertSImain = "Insert Into webprddt7.qasimast(recseq, insptype, docno, partno," +;
" shipsetid, dwgrev, vendorcode, faiindex, lotqty, sampletype, sampleqty, accptdqty," +;
" rejdqty, inspdate, inspector, inspsource, rejtindex)" +;
" Values(" + ALLTRIM(STR(x)) +;
",1,'" + ALLTRIM(testconnQuery.docno) +;
"','" + ALLTRIM(testconnQuery.partno) +;
"','" + ALLTRIM(testconnQuery.jobno) +;
"','" + ALLTRIM(testconnQuery.revision) +;
"','" + ALLTRIM(testconnQuery.vendorcode) +;
"'," + ALLTRIM(STR(testconnQuery.faiindex)) +;
"," + ALLTRIM(STR(testconnQuery.lotsize)) +;
"," + ALLTRIM(STR(testconnQuery.sampletype)) +;
"," + ALLTRIM(STR(testconnQuery.cmss)) +;
"," + ALLTRIM(STR(testconnQuery.cmaa)) +;
"," + ALLTRIM(STR(testconnQuery.cmar)) +;
"," + TTOC(testconnQuery.inspectdt) +;
",'" + ALLTRIM(testconnQuery.inspectsna) +;
"',1," + ALLTRIM(STR(y)) + ")"
? insertSImain
If SQLEXEC(testconn, insertSImain) <> -1 Then
=SQLCOMMIT(testconn)
ELSE
If Aerror(odbcerrormsg) > 0 Then
MessageBox(odbcerrormsg(2))
EndIf
EndIF