CONSULTAS EM TABELAS

MATHEUS 15/09/2005 16:05:10
#104438
Boa tarde pessoal,

Olha eu aqui outra vez pedindo a valiosa ajuda de voces.

E o seguinte
Tenho uma tabela em Acess chamada Produto, e tenho dois textbox onde o usuario informa
do codigo DE...... ate ......, mas quando faco a pesquisa da a mensagem que nao encontrou nenhum codigo neste intervalo.

Sera que esta certo a minha consulta???????????

sql = ""
sql = sql & " select * from PRODUTO "
sql = sql & " where CODIGO >= '" & Mid(TxtCodde, 1, 9) & "'"
sql = sql & " and CODIGO <= '" & Mid(TxtCodate, 1, 9) & "'"
sql = sql & "ORDER BY codigo"
Set Dados = Banco.OpenRecordset(sql, dbOpenSnapshot)
If Dados.RecordCount <= 0 Then
MsgBox ("NAO EXISTE NENHUM CODIGO NESTE INTERVALO!!!")
Exit Sub
End If


Obrigado atencipadamente,

Matheus
LIONHEART 15/09/2005 16:08:17
#104440
bom, se o código for numerico, tira as aspas simples.

sql = sql & " where CODIGO >= " & Mid(TxtCodde, 1, 9)
sql = sql & " and CODIGO <= " & Mid(TxtCodate, 1, 9)


mas fora isso tá tudo certo

pode usar tb um BETWEEN

sql = sql & " where CODIGO between " & Mid(TxtCodde, 1, 9) " AND " & Mid(TxtCodate, 1, 9)


mas é desnecessario....
USUARIO.EXCLUIDOS 15/09/2005 16:10:55
#104441 Resposta escolhida
cara... tenta assim

sql = "select  * from PRODUTO where CODIGO between '" & codde.text & "' and '" & codate.text & "' Order by codigo;"
  Set Dados = Banco.OpenRecordset(sql, dbOpenSnapshot) 
  If Dados.RecordCount <= 0 Then 
    MsgBox ("NAO EXISTE NENHUM CODIGO NESTE INTERVALO!!!") 
    Exit Sub 
  End If


flw cara... tomara q tenha ajudado
MATHEUS 15/09/2005 16:11:20
#104442
pois é, ja tentei com between mas tb não funcionou, detalhe meu codigo tem de 9 a 13 digitos alfanumericos.

Tem codigo com 9 digitos, 10 digitos, ate 13 digitos
LIONHEART 15/09/2005 16:12:28
#104444
ALFA?
TIPO A456SC46?
LREZANI 15/09/2005 16:13:08
#104445
"select clientes where campo between " & valor1 & " and " & valor2 & ""
levando em consideração que o valor1 e 2 são inteiros e o tipo do campo do bd tb, caso não seja use Cint(valor) na sql para os dois valores. Caso os tipos de dados sejam strings no banco use apostrofos na SQL between '" & valor1 & "' and '" & valor2 & "'.
MATHEUS 15/09/2005 16:19:28
#104451
Thiago se colocar o .text da mensagem de erro

Luiz, o campo é alfanumerico.
LIONHEART 15/09/2005 16:22:14
#104452
qual o banco e qual o erro?
MATHEUS 15/09/2005 16:22:42
#104454
Thiago se colocar apenas a primeira condicao "codigo >= txtcodde, o programa funciona!!!

Porque?
MATHEUS 15/09/2005 16:27:35
#104455
Resolvi , Thiago, é foda ser iniciante como eu, tinha uma linha errada.


Obrigadao
Tópico encerrado , respostas não são mais permitidas
Voltar