msql1 = "Insert into VendorMaster (pk_vend) values (?pkvend)" >x = sqlexec(mchand,msql1,"drslts")In this example parameter ?pkvend will be substituted with the value of variable m.pkvend before SQL statement is executed.
>> dcfld = "PK_VEND,LOCALNUM,VENDORNUM,NAME,APPRSTAT,APPRYR," +; >> "PHYSINCAREOF,PHYSADDR1,PHYSADDR2,PHYSCITY,PHYSCOUNTY," + ; >> "PHYSFIPS,PHYSSTATE,PHYSZIP,PHYSZIP4,PHYSTELEPHONE," + ; >> "BILLINGINCAREOF,BILLINGADDR1,BILLINGADDR2,BILLINGCITY," + ; >> "BILLINGCOUNTY,BILLINGFIPS,BILLINGSTATE,BILLINGZIP," + ; >> "BILLINGZIP4,BILLINGPHONE,ENROLLDT,VENDSTATUS,STATUSDT," + ; >> "NEWSSNTID,OLDSSNTID,SPECCD,VENDTYPE,LASTLIQDDT,LASTAUTHDT," + ; >> "GROUP,MCAIDPROVFLAG,MCAIDPROVNUM,FISCALFLAG,DIRECTDEPOSITFLAG," + ; >> "NOTES,LASTCHGUSER,LASTCHGDT,CREATEDT,CREATEWHO" >> >> insstr = "m.pkvend,val(m.cidcnum),m.vendid,m.vendname,m.apprstat,mapyr," + ; >> "m.incareof, m.vendaddr1, space(30), m.vendcity, val(m.vendcnty)," + ; >> "2*val(m.vendcnty) - 1, m.vendstate, m.vendzip5, m.vendzip4, m.vendphone," + ; >> "vendmast.vendname, vendmast.vendaddr1, vendmast.vendaddr2, vendmast.vendcity," + ; >> "val(vendmast.vendcnty), 2*val(vendmast.vendcnty)-1, vendmast.vendstate, vendmast.vendzip5," + ; >> "vendmast.vendzip4, vendmast.vendphone, mdtfunc, m.vendstatus, m.vendstatdt," + ; >> "m.vendnewssn, m.vendoldssn, m.specialty, m.vendtype, m.liqddate, m.authdate," +; >> "iif(recc('indvs')>1,' ','C'), m.medprov, m.mednum, m.onfiscal, iif(vendmast.venddirdep,'Y','N')," +; >> "m.notes, muserid, mdtfunc, mdtfunc, muserid" >> >> msql1 = 'Insert into VendorMaster (' + dcfld + ') values (' + insstr + ')' >> x = sqlexec(mchand,msql1,"drslts") >>>all of the variables are defined, mdtfunc = datetime() (Access apparently didn't like the function)