|
|
Postada em 17/09/2006 11:23 hs
Galera... Onde estou errando na instrução abaixo. Gostaria de mostrar resultados mensais. dim DataPesquisa as string
DataPesquisa = format(txtpesquisa.text,"mm/dd/yyyy") rsEntregas.Open "Select * From Entregas Where Month(DataMov) Like Month(DataPesquisa) Order By DataMov", Conn, adOpenDynamic, adLockOptimistic
A mensagem de erro é "Nenhum valor foi fornecido para um ou mais parâmetros necessarios" |
|
|
|
|
|
|
|
Postada em 17/09/2006 12:50 hs
1. DataPesquisa tem que ser tipo Date e não String
2. ...Where Month(DataMov) Like Month(DataPesquisa) Order By DataMov" fica assim:
...Where Month(DataMov) = " & Month(DataPesquisa) * "Order By DataMov"
|
|
|
|
|
|
Postada em 17/09/2006 15:09 hs
Obrigado Rocha, mas ja mudei o tipo de variavel para date, mesmo assim, ocorre o mesmo erro.. |
|
|
|
|
|
Postada em 17/09/2006 16:17 hs
Tem um erro na minha digitação: aquele asterisco (*) deve ser um ampersand (&). Testei aqui e funcionou perfeitamente.
Não usei uma text para testar, defini DataPesquisa diretamente. Talvez o erro esteja aí.
Meu teste:
------------------------------------------
Private Sub Testadoforum()
Set rsBairro = New ADODB.Recordset
rsBairro.CursorLocation = adUseClient
Dim DataPesquisa As Date
DataPesquisa = "12/05/2006"
rsBairro.Open "Select * From tblAlunos Where Month(Nascto) = " & Month(DataPesquisa) & " Order By Nome", cnCMM, adOpenDynamic, adLockOptimistic
End Sub
-----------------------------------------
A unica diferença está no nome da tabela e no campo, logicamente.
|
|
|
|
|
|
Postada em 18/09/2006 11:24 hs
Rocha, deu certo , obrigado |
|
|
|
