CARREGAR PRIMEIRO REGISTRO NO DATAGRID VB6

REINALDOSPINDOL 03/09/2013 10:05:07
#428430
Olá. Como faço para carregar no datagrid o primeiro registro da tabela, ou um registro em branco?

Obrigado
CLEBERBALMEIDA 03/09/2013 13:52:52
#428443 Resposta escolhida
Só para entender primeiro, vc tem vários registros na sua tabela access e quer carregar no datagrid somente o primeiro registro dessa tabela, ou quer carregar todos os registros dessa tabela no datagrid?
REINALDOSPINDOL 03/09/2013 15:05:28
#428448
Minha tabela access tem os campos: ítem, código do produto, quantidade, descrição, valor unitário e valor total.

Eu queria clicar no botão e o datagrid exibisse apenas o conteúdo do primeiro registro. Tem como?

Obrigado
ROBFERREIRAA 03/09/2013 16:47:51
#428458
a query esta SELECT TOP 1 campos FROM tabela
CLEBERBALMEIDA 04/09/2013 10:37:01
#428475
Caro Reinaldo, fiz um exemplo para você, nele, coloquei como cada botão, ter uma tarefa, assim em um faz com que no datagrid, apareça somente o primeiro registro da tabela, no outro botão, faz com que apareça os dois primeiros registros da tabela, no outro, faz com que apareça todos os registros da tabela e no último, faz com que limpe o datagrid.

Veja se consegui te ajudar...
REINALDOSPINDOL 05/09/2013 09:18:26
#428503
Cleber, seu exemplo é perfeito! Era exatamente o que eu queria mas não conseguia achar, como limpar o grid! Me ajudou muito. Obrigado
REINALDOSPINDOL 05/09/2013 18:26:08
#428523
Cléber, seu exemplo funciona mto bem, mas qdo coloquei o código no meu projeto ele tá dando erro nessa linha:

rsitens.Open SQL, adoitens, adOpenDynamic, adLockOptimistic

Run time erro 3705 - [Ô]Operação não permitida quando o objeto está aberto[Ô]

Alguma sugestão? Não achei o que esta errado.

Obrigado
FILMAN 05/09/2013 19:37:51
#428524
Cara verifica exatamente o que a mensagem esta dizendo!

Lembre-se que você deve estar utilizando um objeto ADO(RecordSet) e ao utilizar ele uma vez deve ser fechado

Tente assim

If rsitens.State <> 0 then
rsitens.Close
set rsitens = Nothing
End If
CLEBERBALMEIDA 09/09/2013 15:55:30
#428617
Reinaldo, é isso mesmo que o Filman te falou, coloque antes dessa linha ai, que ta dando erro, as seguintes linhas:

If rsitens.State = adStateOpen Then
rsitens.Close
End If

Pronto, teste e me fale se deu certo, qualquer coisa, me mande seu projeto que dou uma olhada.

meu email: cleber.al@hotmail.com

Valew!
REINALDOSPINDOL 11/09/2013 11:54:29
#428701
Cleber eu tinha copiado seu exemplo, mas tava dando erro exatamente nessa parte. Agora fiz igual o filman falou e deu certo.

Obrigado mais uma vez pessoal.
Tópico encerrado , respostas não são mais permitidas
Voltar