ZECA Posted November 15, 2010 Report Share Posted November 15, 2010 Boa tarde !!! Gostaria de fazer uma rotina que usando a função acima retornasse o numero de tabelas de uma base de dados e posteriormente, atraves uma MATRIZ listar uma a uma em uma DIALOG. Faz tanto tempo que não mexo com matriz que a cuca tá fundida. tipo assim: aNomeTable:=(SQLGETTABLES()) nReg:=len(aNomeTable) For i=0 to nReg oId02:SetText(("Abrindo a Tabela ")+aNomeTable[nReg++]) Next id=code>id=code>O bicho tá pegando na hora de mostrar o nome da tabela. Parece que consegui explicar mais ou menos do que preciso Antecipamente agradeço. Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
ZECA Posted November 15, 2010 Author Report Share Posted November 15, 2010 Boa tarde !!! Gostaria de fazer uma rotina que usando a função acima retornasse o numero de tabelas de uma base de dados e posteriormente, atraves uma MATRIZ listar uma a uma em uma DIALOG. Faz tanto tempo que não mexo com matriz que a cuca tá fundida. tipo assim: aNomeTable:=(SQLGETTABLES()) nReg:=len(aNomeTable) For i=0 to nReg oId02:SetText(("Abrindo a Tabela ")+aNomeTable[nReg++]) Next id=code>id=code>O bicho tá pegando na hora de mostrar o nome da tabela. Parece que consegui explicar mais ou menos do que preciso Antecipamente agradeço. Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
exata Posted November 15, 2010 Report Share Posted November 15, 2010 Olá José Carlos Tente assim: For i=1 to nReg oId02:SetText(("Abrindo a Tabela ")+aNomeTable) Next Marnio Miranda Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.