Problemas com acess e vb


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Problemas com acess e vb

Léia

GOIANIA
GO - BRASIL

Postada em 30/08/2004 12:02 hs

Oi! Estou com probleminhas no projeto de estoque.. depois de pronto fui testa-lo e apos inserir 10 codigo de produto na tabela, o proximo seria 11 so q ele so fica no 10. A logica seria que se nao existir o produto cadastrado dai procura o ultimo codigo e incrementa mais um, assim:

"Select * From PRODUTO ORDER BY CODIGO DESC"

lblCodigo = Val(PESQ_ESTOQUe!CODIGO) + 1

Dai, apos o erro mudei para:

se nao existir o produto pegar o codigo maximo

FILTRO = "Select MAX(CODIGO)AS PRODUTO "

E agora esta emitindo um erro:vb6 gerou erros e sera fechado pelo Wind.. um log de erro esta sendo criado.

Utilizo o acess versao 97, o nome da tabela é Produto, campo codigo é chave primaria e utilizo o campo Descricao como indice. Interessante que no bd a ordem fica assim:1,10,2,3,4,5,6,7,8,9... e ha muitos anos/tempo aconteceu esse erro comigo e nao estou sabendo resolver, se vc puder me ajudar ficarei agradecida...

"Quem tem o Filho de Deus tem a vida ! (I Joao5:12)"

Rochª

RIO DE JANEIRO
RJ - BRASIL

Postada em 30/08/2004 12:21 hs

Veja se o lblcodigo não esta com o tamanha de 1 posicao.

__________________________________________________________________________

Qualquer coisa post

Rochª

Léia

GOIANIA
GO - BRASIL

Postada em 30/08/2004 12:32 hs

O tamanho do campo esta 50!

Excluir todos os registros cadastrado e estou utilizando para selecionar o maximo ou maior registro, agora nao passa do primeiro codigo...

FILTRO = ("Select MAX(CODIGO) From PRODUTO

Depois q alterei o bd, utilizando o codigo como chave primaria e o campo descricao como indice q esta apresentando erro!!!!

"Quem tem o Filho de Deus tem a vida ! (I Joao5:12)"

Rochª

RIO DE JANEIRO
RJ - BRASIL

Postada em 30/08/2004 12:45 hs

Acho que o problema esta ai. Tamanho 50 ele deve estar como text.

Este campo deve ser numerico (long) pois se ele for text ele vai ordernar assim

Troque o tipo do campo para numero e test.

__________________________________________________________________________

Qualquer coisa post

Rochª

Léia

GOIANIA
GO - BRASIL

Postada em 30/08/2004 13:52 hs

Valeu Rocha! Foi bobeira minha mesmo! Mas geralmente a atençao esta direcionada a grandes e dificeis problemas e qndo surge algo simples, pelo menos eu me enrolo toda... mas é bom errar para aprender!

Abraços!

"Quem tem o Filho de Deus tem a vida ! (I Joao5:12)"

Alexandre C.G
não registrado

Postada em 30/08/2004 15:00 hs

Léia eu faço assim:

select max(codigo) as cod from tabela

vCodigo = cint(rs("cod")) + 1

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR