|
|
Postada em 29/09/2005 20:36 hs
Estou fazendo a seguinte consulta e está dando erro na fórmula, o que pode ser? (estou usando DAO, access e crystal 4.6) Dim sql As String
sql = "{apartamentos.bairro} like" & Chr$(39) & txtbairro1(0).Text & Chr$(39) & "' and"
sql = sql & "{apartamentos.bairro} like" & Chr$(39) & txtbairro2(1).Text & Chr$(39) & "' and"
sql = sql & "{apartamentos.bairro} like" & Chr$(39) & txtbairro3(2).Text & Chr$(39) & "' and"
sql = sql & "{apartamentos.cep} like" & Chr$(39) & txtcep(1).Text & Chr$(39) & "' and"
sql = sql & "{Apartamentos.Nº Dormitórios} like" & Chr$(39) & mskquartos.Text & Chr$(39) & " '" CrystalReport1.PrintFileName = App.Path & "sisdatapartamentos.rpt"
CrystalReport1.ReportFileName = App.Path & "sisdatapartamentos.rpt"
CrystalReport1.SelectionFormula = sql
CrystalReport1.Destination = 0
CrystalReport1.Action = 1 Ats, Marcelo |
|
|
|
|
|
|
|
Postada em 30/09/2005 07:45 hs
isso acontece varias vezes
like" & Chr$(39) & txtbairro1(0).Text & Chr$(39) & "'
pq vc usa chr$(39), naum sei o q eh mais naum seria mais correto vc usar chr(39)?
pq vc usa a aspas simples logo depois de jogar as variavies e antes vc naum jogou?
"Quando estou fraco, aí então é que sou Poderoso"
|
|
|
|
|
|
Postada em 30/09/2005 08:27 hs
Não entendi!, como vc acha que ficaria? Ats, Marcelo |
|
|
|
|
|
Postada em 30/09/2005 09:06 hs
mudei o código para:
Dim SQL As String
SQL = "{apartamentos.bairro} = '" & txtbairro1(0).Text & "' and"
SQL = SQL & "{apartamentos.bairro} = '" & txtbairro2(1).Text & "' and"
SQL = SQL & "{apartamentos.bairro} = '" & txtbairro3(2).Text & "' and"
SQL = SQL & "{apartamentos.cep} = '" & txtcep(1).Text & "' and"
SQL = SQL & "{Apartamentos.Nº Dormitórios} = '" & mskquartos.Text & "' "
CrystalReport1.PrintFileName = App.Path & "sisdatapartamentos.rpt"
CrystalReport1.ReportFileName = App.Path & "sisdatapartamentos.rpt"
CrystalReport1.SelectionFormula = SQL
CrystalReport1.Destination = 0
CrystalReport1.Action = 1
eu tenho esse mesmo código funcionando só que para uma combox, agora para caixa de texto não quer funcionar!, alguém sabe porque?
Marcelo |
|
|
|
ArtSoft
|
SAO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 30/09/2005 09:56 hs
Shel, O unico problema da sua formula é que no final do parametro AND falta um espaço, veja como fica : SQL = "{apartamentos.bairro} = '" & txtbairro1(0).Text & "' and "
SQL = SQL & "{apartamentos.bairro} = '" & txtbairro2(1).Text & "' and "
SQL = SQL & "{apartamentos.bairro} = '" & txtbairro3(2).Text & "' and "
SQL = SQL & "{apartamentos.cep} = '" & txtcep(1).Text & "' and "
SQL = SQL & "{Apartamentos.Nº Dormitórios} = '" & mskquartos.Text & "' "
Teste e qquer coisa avise; ALEXANDRE COSTA ARTSOFTSYSTEMS |
|
|
|
|
|
Postada em 30/09/2005 10:24 hs
Alexandre, testei e continua dando erro. eu tirei as linhas abaixo e gerou o relatório, só que em branco (sem nenhum registro) SQL = SQL & "{apartamentos.cep} = '" & txtcep(1).Text & "' and "
SQL = SQL & "{Apartamentos.Nº Dormitórios} = '" & mskquartos.Text & "' " os campos cep e nº dormitórios são alfanúmerico, vc sabe como deveria ficar para campos alfanuméricos? |
|
|
|
