Como Excluir REgistro
16/12/2003
0
sei que deve ser fácil mas não estou conseguindo.
Estou acessando o banco de dados com ibdatabase, ibtransaction, e ibdataset1.
Ainda estou usando um dbgrid e datasource.
Estou com dificuldade para excluir determinado registro.
Ou seja como faço para excluir determinado registro pelo código.
Vou tentar dar um exemplo:
Preciso excluir o registro em que o código fosse 50.
Estou acessando o banco de dados com ibdatabase, ibtransaction, e ibdataset1.
Ainda estou usando um dbgrid e datasource.
Estou com dificuldade para excluir determinado registro.
Ou seja como faço para excluir determinado registro pelo código.
Vou tentar dar um exemplo:
Preciso excluir o registro em que o código fosse 50.
Latrodectrus
Curtir tópico
+ 0
Responder
Posts
16/12/2003
Lucas Silva
Primeiro vc tem que posicionar a sua query no registro que vc quer
deletar (dá pra fazer isto com locate ou com um parâmetro da query).
e depois....
query.delete;
Lucas!
deletar (dá pra fazer isto com locate ou com um parâmetro da query).
e depois....
query.delete;
Lucas!
Responder
16/12/2003
Fórum Vini
Olá,
coloque um IbQuery no seu formulário e ligue-o normalmente ao BD.
No evento onClick do botão, coloque esse código:
Substitua nome_tabela pelo nome da sua tabela, troque o Codigo pelo campo que o registro deve ser localizado e editCodigo.text pelo nome do seu DbEdit, ou qualquer outra string.
Espero ter ajudado.
Vinicius.
coloque um IbQuery no seu formulário e ligue-o normalmente ao BD.
No evento onClick do botão, coloque esse código:
IbQuery1.Sql.Text:= ´Delete from nome_tabela where (Codigo = ´+editCodigo.text; IbQuery1.ExecSql;
Substitua nome_tabela pelo nome da sua tabela, troque o Codigo pelo campo que o registro deve ser localizado e editCodigo.text pelo nome do seu DbEdit, ou qualquer outra string.
Espero ter ajudado.
Vinicius.
Responder
16/12/2003
Fórum Vini
Opa,
desculpa, eu esqueci de fechar os parenteses:
Espero ter ajudado.
Vinicius.
desculpa, eu esqueci de fechar os parenteses:
IbQuery1.Sql.Text:= ´Delete from nome_tabela where (Codigo = ´+editCodigo.text+´)´; IbQuery1.ExecSql;
Espero ter ajudado.
Vinicius.
Responder
Clique aqui para fazer login e interagir na Comunidade :)
