Fechar tabelas e Manipular dados (Avançar, Voltar, ...)

[erick]

Caros,

Seguem algumas duvidas que estou tendo utilizando o vfp:

1 - Quando eu dou um select em uma tabela, o vfp abre essa tabela, como faço para fechar a tabela depois, pois quando fecho o form todas tabelas que utilizei dando o select ficam abertas?

2 - Como faço para 'Avançar', 'Voltar', 'Ir para o primeiro' e 'Ultimo registro' de uma tabela? como faço para manipular os dados da tabela dessa forma.

Lembrando que não estou utilizando data enviroment ou outro meio parecido, estou utilizando os comandos sql manualmente para interagir com o banco postgre, obrigado!

[alceu11]

1) select campos from tuatabela Where condicao into cursor teste
select teste
use in teste &&fecha o cursor ou tabela

2) primeiro registro comando "Go top in nometabela // ou nomedocursor"
Exemplo: baisco
if reccount() > 0
go top in nometabela
else
wait window 'nao ha registro'
endif
thisform.refresh
ultimo registro
go bottom in nometablea
thisform.refresh
browse
*************
skip avanca um registro ,, sempre verificando o eof()
skip -1 retorna um registro, sempre vefiricando o bof()

Seek para buscar com chave indexada
********
Aki to forum temos exemplos com, este tipo de situacao na secao videos...

veja este video so fazer os testes com as dicas ke postei acima
[Você precisa estar registrado e conectado para ver este link.] src="[Você precisa estar registrado e conectado para ver este link.] width="425" height="350" type="application/x-shockwave-flash" wmode="transparent" quality="high" scale="exactfit">

[m@r<3|o]

Baixa esse Exemplo aqui tem o que precisa

[Você precisa estar registrado e conectado para ver este link.]


voce só fecha cursor ,
tabela não que eu saiba
veja o comando sqlRollback vai ajudar muito

exemplo de fechar o cursor

=sqlexec( XXXXX , XXXXXX , "cursor")
USE IN CURSOR

[erick]

tenho o meu form cadastro de estoque, no LOAD dele eu tenho o seguinte codigo para se conectar com o banco:

Código:

LOCAL dbConexao, cmdSQL

thisform.AddProperty("conexao",0)

dbConexao = ;
        [DRIVER={PostgreSQL ANSI};DATABASE=autoPecas;]+;
        [SERVER=localhost;PORT=5432;UID=usuario;PWD=senha;]
       
thisform.conexao = ;
        SQLSTRINGCONNECT(dbConexao)

no INIT dele tenho esse codigo para listar os dados da tabela montveic e jogar para o cursor "mont"

Código:

cmdSQLMont = "select * from montveic"

SQLEXEC(thisform.conexao,cmdSQLMont,"mont")


tenho um combo montadora q esta em um pageframe, com o seguinte codigo no campo INIT dele:

Código:

SELECT mont
GO TOP
this.RowSource = "mont.montveic"
this.RowSourceType = 6
this.DisplayValue = mont.montveic

mas, esse codigo me retorna um erro quando executo o form dizendo:
'ALIAS MONT IS NOT FOUND'

o que estou fazendo de errado? quando eu coloco o codigo do INIT que esta no combo, no INIT do form, funciona, mas não entendo porque

[m@r<3|o]

Para Digitação facilita mto pro usuario . sem usar Go Top ,
principalmente qdo usa do Like.

faça assim para preeencher a combo , tudo no INIT do Form

Código:

cmdSQLMont = "select * from montveic"
SQLEXEC(thisform.conexao,cmdSQLMont,"mont")

THISFORM.COMBO1.clear
SCAN
    THISFORM.COMBO1.AddItem(mont.montveic)
ENDSCAN


[erick]

em qual momento eu devo fechar um cursor? quando tento fechar o cursor utilizando o USE IN ele da a seguinte mensagem:

"Cannot access the selected table. nomeVeic"

[alceu11]

Para Fechar, vc tem selecionar o cursor ou a tabela.
Select NomeVeic
Use in nomeVeic

[m@r<3|o]

Use in acho que é pra fechar Cursor DBF

conferi aqui e para SGDB tenta assim

Select "mont"
USE

tenta as duas formas .


Voce não necessáriamente precisa fechar
Só fecha quando der problema
Fecha no Destroy ou Unload
Ou Fecha onde dá erro de Buffer
Ou fecha no Fim de onde vai a expressão dentro da procedure

a questão é que tem que abrir novamente .... apos fechar
é onde voce colocar codigos no INIT nao dara certo essa atualizacao


Tudo que tem que atulizar voce cria um metodo .
Um Metodo pra cada combo


ai voce faria

Select "mont"
USE

thisform.atualiza_combo1
thisform.atualiza_grid


Acho que Vai precisar Fechar cursor
obrigatoriamente numa tela de pedidos .
Quando acontece assim :

Abrindo um Select de innerjoin de Pedidos Itens Clientes tudo relacionado
quando voce gravar um item
obrigatóriamente precisara fechar o cursor desse Pedidos Itens Clientes
Por causa que a Tabela Itens já está aberta nele

Não tenho certeza se é assim que funciona,
mais parece bem assim que funciona

então quando é uma tela de cadastro exemplo, nao acontece essas situacoes
vai variar de como a tela funciona , e do nome dos cursores e variaveis se colocar tudo nomes diferentes ... ai funciona
etc .......

[erick]

agora eu entendi como funciona... consegui fechar usando o USE, muito obrigado

post resolvido!

[m@r<3|o]

Caso poder reputar a mensagem que mais ajudou
ficariamos felizes

até

[erick]

se for clicar em "OBRIGADO" esta feito!!!

[m@r<3|o]

Olá Erick, tb nao sei , e nao sabia como funcionava , ai sempre alguem com a conta mais antiga fala...

Reputação é o + e - que tem perto do nick da pessoa

Se clica + fica verde ,
Se clica - fica vermelho .....

O Obrigado é pra quem posta , te falar nao lembro ao certo.
essa opção é só na hora de postar ....

pelo que vi nas estatisticas do forum deve contar ponto tb
está blz , Obrigado .

O exemplo que postei , na mensagem anterior fui eu que montei,
espero que tenha ajudado na solução com as setas .

[erick]

não tinha enxergado esse + e -, kkk, mas esta feito, acionei na resposta q mais me ajudou, obrigado!