SELECT COM ERRO

HELIO.COSTA 26/09/2009 15:57:42
#323739
Boa tarde.
VB6 ACCESS 2000

O que está errado nesta select?

Set adoProduto = New ADODB.Recordset
Sql = [Ô]Select * from Produto where Interno <= [ô][Ô] & 2000 & [Ô][ô] order by Interno[Ô]
adoProduto.Open Sql, gConexao, adOpenStatic, adLockOptimistic, adCmdText
adoProduto.MoveLast
txtInterno.Text = adoProduto!Interno + 1

Selecionando todos os registros que campo Interno seja nemor que 2000.
Depois acrescento 1.
TECLA 26/09/2009 16:03:21
#323740 Resposta escolhida
Caso o campo Interno seja do tipo Texto
 Sql = [Ô]Select * from Produto where Interno <= [ô]2000[ô] order by Interno[Ô]


Caso o campo Interno seja do tipo Numérico
 Sql = [Ô]Select * from Produto where Interno <= 2000 order by Interno[Ô]


Caso o valor venha de um TextBox
 Sql = [Ô]Select * from Produto where Interno <= [ô][Ô] & Text1 & [Ô][ô] order by Interno[Ô]


OBS. A pesquisa retorna os valores que são menores ou igual a 2000.
HELIO.COSTA 26/09/2009 16:12:44
#323741
TECLA, não funcionou.

CAMPO TIPO TEXTO TAMANHO 6
GRAVO DA SEGUINTE FORMA: 000001, 000002,...999999


Para testes, gravei 4 itens, na seguinte forma: 000001,000002,002000,002001
Quero que o próximo numero que pegar nesta tabela seja 000003


está retornando 002002
HELIO.COSTA 26/09/2009 16:14:27
#323742
Achei o erro.

Sql = [Ô]Select * from Produto where Interno <= [ô]002000[ô] order by Interno[Ô]

Muito Obrigado TECLA.
Tópico encerrado , respostas não são mais permitidas
Voltar