... csql = "INSERT INTO IFCOMPAN ( CID, CNAME1, CNAME2, CADDRESS1, CZIPCODE, CLOCALITY, CVATCAT, "+; " CCUSTYPE, CSUPTYPE, CCUSCAT, CCUSPAYDELAY ) VALUES ("+; " ?BobClient.code, ?BobClient.nomteleph , ?BobClient.nom2 , ?BobClient.rue, ?BobClient.cpays + ?BobClient.ccp , ?BobClient.localite , 'N' , 'C' , 'U' ," csql2 = csql + " ?BobClient.codePersonnel , 30)" ...MartinJ
> lcConnectionStr = "DRIVER={Microsoft Access Driver (*.mdb)};" +; > "Dbq=" + B +; > "Uid=username;" +; > "Pwd=password;" > > > *--> connect to Access database ( Establishes a connection to a data source. ) > lnAccess = SQLSTRINGCONNECT(lcConnectionStr) > >*-- lnAccess return a good result. > >SELECT LEFT(T.cnomteleph, 5) + PADR(TRANSFORM( T.iid ) , 5 ) AS 'Code' , ; > T.cnomteleph,; > R.cnom_conj AS 'Nom2',; > PADR( ALLTR( Ru.Cnomrue ) + IIF( !EMPTY( T.Cnum ), ',' , ' ' ) + T.Cnum , 40 ) AS 'Rue',; > P.cpays,; > P.ccp ,; > P.clocalite,; > 'Res' AS 'codePersonnel'; > FROM amline!Teleph AS 'T' INNER JOIN amline!Resident AS 'R' ON T.iid = R.itelephoneid ; > INNER JOIN amline!Rue AS 'Ru' ON Ru.iid = T.irueid ; > INNER JOIN amline!Poste AS 'P' ON P.iid = Ru.iposteid ; > WHERE R.lputinpopsy = .T. INTO Cursor BobClient > > > csql = "INSERT INTO IFCOMPAN ( CID, CNAME1, CNAME2, CADDRESS1, CZIPCODE, CLOCALITY, CVATCAT, "+; > " CCUSTYPE, CSUPTYPE, CCUSCAT, CCUSPAYDELAY )"+; > " SELECT B.code, B.nomteleph , B.nom2 , b.rue, b.cpays + b.ccp , b.localite , 'N' , 'C' , 'U' ," > > csql2 = csql + " B.codePersonnel , 30 FROM BobClient AS 'B' " > > > nresult = SQLEXEC( lnAccess , csql2 ) > >>