Fórum Dúvidas sobre PARADOX!!! #180481

Se for isso te ajudar blz...

Bom, cara. Eu não uso Query. O que eu uso no Paradox é:
- Para apagar registro: Table1.Delete;

- Para inluir: Table1.Insert;
Table1.FieldByName(´CAMPO1´).AsString := VALOR;
Table1.Post;

- Para alterar: Table1.Edit;
Alteração;
Table1.Post;

- Pesquisa em campo indexado: Table1.FindKey([ValorDaPesquisa]);

* Detalhe: Não se esqueça de colocar a tabela com Active := True antes disso...

Falow, cara?
:shock:

Prezado colega:
Isto seria um básico.

Tabela:
Codigo+*índice primário
ClienteA40índice secundário(indcliente)
dataD
idadeN

Para Salvar:
Table1.Edit;Table1.Post;

Para novo registro:
Table1.append (ou insert);

Para Atualizar:
Table1.Refresh;

Pode usar:
Table1.Edit;Table1.Refresh;

Para Excluir:
Basta estar no registro selecionado e:
Table1.delete;

Para alterar:
Table1.Edit;
Alterações necessárias e:
Table1.Refresh;(ou table1.post);

Pesquisa pelo campo primário:
Var
Msg: String;
Base: String;
Begin
Msg:= ´Informe o código´;
Base:= InputBox(´Localizar´,Msg,´´);
If Not Table1.findkey([Base]) Then
ShowMessage(´O registro informado não consta na base de dados´);

Pesquisar pelo campo secundário:
Var
Msg: String;
Base: String;
Begin
Table1.indexname:= ´indcliente´;
Msg:= ´Informe o nome do cliente´;
Base:= InputBox(´Localizar´,Msg,´´);
If Not Table1.findkey([Base]) Then
ShowMessage(´O cliente informado não consta na base de dados´);

Observe a propriedade datasource do componente Table;
Observe a propriedade Tablename do componente Table;

Você precisa abrir a tabela para as operações:
pode definir como: active = true ou, no evento on show do form inserir:
Table1.open;
No evento on close do form:
Table1.close;

Quanto a query:
Deve utilizar uma query, um database e um updatesql

delete from kcjsjur_tipos
where
cod = :old_cod


insert into kcjsjur_tipos
(cod, codtipo, tipo)
values
(:cod, :codtipo, :tipo)


update kcjsjur_tipos
set
cod = :cod,
codtipo = :codtipo,
tipo = :tipo
where
cod = :old_cod

o evento que aciona:
database1.ApplyUpdates([query1]);
AtualizarExecute(sender);
query1.CancelUpdates;

No caso de inserção utilize, no lugar de append - Insert;

Atualizando a query:
procedure TForm1.AtualizarExecute(Sender: TObject);
begin
Application.Hint := ´Atualizando os dados mostrados na tela. Aguarde...´;
Application.ProcessMessages;
with query1 do
begin
Close;
Open;
end;
end;


Espero ter ajudado:
MMTOOR2003