Busca Pelo Crystal Selectionformula!

[The Lau]

Dae Galera!

O negocio é o seguinte!

Estou usando está formula para chamar um relatório no Crystal que acompanha o VB6!

Private Sub cmdImprimir_Click()

criterio = "(Cadastro.CaCodigo)= " & Text1.Text

Me.MousePointer = 11

CrystalReport1.ReportFileName = App.Path + "\Impressao.RPT"

CrystalReport1.DataFiles(0) = App.Path + "\Fitlau.mdb"

CrystalReport1.SelectionFormula = criterio

CrystalReport1.CopiesToPrinter = 1

CrystalReport1.Destination = crptToWindow

CrystalReport1.Action = 1

Me.MousePointer = 1

End Sub

A variável Text1.Text é a seguinte:

2 - 23/12/2005 - 17:40:05

Tenho BD com a seguinte arranjo:

Código Nome Data Peso ...

41 José 2 - 23/12/2005 - 17:40:05 87

Usando a fórmula acima ele dá erro na fórmula alguém saberia porque¿

Quando a variável é um numero comum...ele da certo mas a variável que eu preciso usar não da....

Agradeço a ajuda.

[kuroi]

o certo não seria assim:

criterio = "{Cadastro.CaCodigo}= " & Text1.Text

com {} no lugar de ()? outra coisa é q não estou entendnedo o q você quer passar para o selection formula. porque desse jeito, a formula vai ficar assim:

{Cadastro.CaCodigo}= 2 - 23/12/2005 - 17:40:05

é isso esta totalmente errado. q tipo de campo é o ca codigo? string? data? numero? seja qual for, isso q você passou não existe. você poderia pelo menos tentar por entre aspas ou apostrofos. o q você quer fazer não é isso:

{Cadastro.CaCodigo}= 2

?

[Guest - The Lau -]

Na verdade eu gostaria de saber o que está errado... ?

So alterando o critério ficaria assim....

criterio = "{Cadastro.Data}= " & Text1.Text

ou

criterio = 2 - 23/12/2005 - 17:40:05

porque que a seguinte concatenação 2 - 23/12/2005 - 17:40:05

não é localizada no BD?

BD Cadastro

Código.............Nome.............Data ...........................................Peso

....41............... José .............2 - 23/12/2005 - 17:40:05 ...............87

F

[kuroi]

o campo data é string? se for, faca assim:

criterio = "{Cadastro.Data}= '" & Text1.Text & "'"

[Guest - The Lau -]

Carakas... a principio parece que funcionou.... Mas me diz aí o que você fez brother?

Valeu mesmo....

[kuroi]

so pus o Text1.Text entre apostrofo.

a sua formula ficou assim:

criterio = "{Cadastro.Data}= '2 - 23/12/2005 - 17:40:05'"

ficaria errado se ficasse assim:

criterio = "{Cadastro.Data}= 2 - 23/12/2005 - 17:40:05"