> >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 > > >In SQL Server date and time fields need to be enclosed in single quote.