Tengo el siguiente código:
- Code: Select all Expand view
- if !"hConnect" IN h0
AdsConnect( ::oMG:hIni["CAMINOS"]["bdatos"]+"\local", ::oMG:hIni["ADS"]["srvtipo"] )
h0:hConnect:= AdsConnection()
else
if Select( "SQLSele" ) > 0
SQLSele->( DbCloseArea() )
end
end
DBSelectArea( 0 )
if !ADSCreateSQLStatement( "SQLSele", ADS_CDX, h0:hConnect )
MsgStop( "Fallo en la conexión a Tablas [Error Nº: "+cValTochar( AdsGetLastError() ), "Reintente..." )
return( nil )
end
if !ADSExecuteSQLDirect( "SELECT Count(*) FROM BDSGC36 WHERE FSele01=.T." )
MsgStop( "Fallo en lectura de Tabla Adicional de Articulos", "Reintente..." )
SQLSele->( DbCloseArea() )
else
if SQLSele->Expr == 0
SQLSele->( DbCloseArea() )
ADSCreateSQLStatement( "SQLSele", ADS_CDX )
ADSExecuteSQLDirect( 'INSERT INTO BDSGC36 SELECT FArt02 FROM "'+(::oMG:hIni["CAMINOS"]["bdatos"])+'\BDSGC01"' )
end
end
El problema es que la sentencia:
'INSERT INTO BDSGC36 SELECT FArt02 FROM "'+(::oMG:hIni["CAMINOS"]["bdatos"])+'\BDSGC01"'
no se ejecuta. Y, probada desde ARC si se ejecuta
Que está mal en mi código?
muchas gracias