in the set database to, use the full path to the dbc. i like to put this into a var and use that, e.g.

open database dbfact shared
lcDB1=DBC()
open database ftbasic\dbfact shared
lcDB2=DBC()

set database to (lcDB1)
** etc.

>Hi
>
>I need run the folhowing code , but don´t work
>
>I think that problem is with two databases have the same name
>
>Can you help me ?
>Thanks
>
>

>set defa to c:\elasoft\dados
>
>open database dbfact shared
>open database ftbasic\dbfact   shared
>
>set database to dbfact
>
>*!* How Many Tables are in the DBC
>lnTableCount = ADBOBJECTS(aTableNames, [TABLE])
>
>
>FOR lnCounter = 1 TO lnTableCount
>
> SET DATABASE TO ftbasic\dbfact
> IF INDBC( aTableNames[lnCounter] , 'TABLE')
>
>  SET DATABASE TO dbfact
>   use (aTableNames[lnCounter]) IN 0
>   lcAppender = "ftbasic\dbfact!" + aTableNames[lnCounter]
>   append from &lcAppender
>
> ENDIF
>
>NEXT lnCounter
>
>