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)