|
|
Postada em 07/10/2005 14:19 hs
Amigos, tenho a seguinte rotina sql feita no DataReport ou mais preciso no DataEnvironment na instrução SQL
SELECT NOMREP, NOMPES, CODPES, DESEND, NOMBAI, NUMCGC, INSEST, NUMTLF
FROM TABPES
WHERE (NOMREP = 'Abagraf Representações ltda') ORDER BY NOMPES
Desta forma estou listando apenas os que contem o nome 'Abagraf Representações ltda' eu tenho um outro form que possui uma listagem de todos os nomes, ou seja de todos os representantes.. como faço para que na hora q eu selecionar o representante no form o na rotina sql ele me listar o representante que eu escolhi..
|
|
|
|
|
|
|
|
Postada em 07/10/2005 14:34 hs
where (NOMREP = '" & campo_do_form.text & "') atenção: precisa de (') e depois (") no inicio e inverta no final
dsmn
|
|
|
|
|
|
Postada em 07/10/2005 14:58 hs
Amigo Daniel, coloquei da forma que me passou, mas não mostra nada.. não retorna listagem nenhum, mas tbm não da nenhum tipo de erro.
ficou da seguinte forma
where (NOMREP = '
|
|
|
|
|
|
Postada em 07/10/2005 15:25 hs
voce lembrou que tem que executar a select cada vez que ele escolher alguem da lista?
dsmn
|
|
|
|
|
|
Postada em 07/10/2005 15:38 hs
a instrução ficou da seguinte forma.
SELECT NOMREP, NOMPES, CODPES, DESEND, NOMBAI, NUMCGC, INSEST, NUMTLF
FROM TABPES
WHERE (NOMREP = '"& nomrep.text &"') ORDER BY NOMPES
|
|
|
|
|
|
Postada em 07/10/2005 16:08 hs
Amigo Valmir, quando voce montar a instrução devera colocar numa string e inicializar novamente o relatorio exatamente no modulo private do Data Report DataReport_Initialize() , segue exemplo :
Private Sub DataReport_Initialize()
On Local Error Resume Next
SQL = ""
SQL = SQL & "SELECT NOMREP, NOMPES, CODPES, DESEND, NOMBAI, NUMCGC, INSEST, NUMTLF
FROM TABPES WHERE (NOMREP = '" & nomrep.text & "') ORDER BY NOMPES"
With DataEnvironment1
.Commands("[TABELA]").CommandText = SQL
.rs[TABELA].Close
.rs[TABELA].Open
End With
Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br
|
|
|
|
|
