Mudanças entre as edições de "Retorna id registro"

(Criou página com 'O RETORNAIDREGISTRO busca id de um determinado registro em qualquer clausula passada no script. ==='''Sintaxe'''=== Function RetornaIDRegisto(Tabela,Filtro:String):Integer...')
 
(Exemplos)
 
Linha 21: Linha 21:
  
 
==='''Exemplos'''===
 
==='''Exemplos'''===
 
+
var
var
+
  ID: Integer;
  ID: Integer;
+
begin
begin
+
  // Buscando o ID de um cliente pelo CPF
  // Buscando o ID de um cliente pelo CPF
+
  ID := RetornaIDRegistro('Clientes', 'CPF', '123.456.789-00');
  ID := RetornaIDRegistro('Clientes', 'CPF', '123.456.789-00');
+
  if ID > 0 then
 
+
    ShowMessage('ID do Cliente encontrado: ' + IntToStr(ID))
  if ID > 0 then
+
  else
    ShowMessage('ID do Cliente encontrado: ' + IntToStr(ID))
+
    ShowMessage('Registro não encontrado!');
  else
+
end.
    ShowMessage('Registro não encontrado!');
 
end.
 

Edição atual tal como às 15h45min de 26 de fevereiro de 2025

O RETORNAIDREGISTRO busca id de um determinado registro em qualquer clausula passada no script.

Sintaxe

Function RetornaIDRegisto(Tabela,Filtro:String):Integer

Parâmetros

Nome Tipo Descrição
Tabela String Nome da tabela que está o registro
Clausula SQL String Adicionar a clausula que filtraria o registro que se deseja buscar.

Exemplos

var
  ID: Integer;
begin
  // Buscando o ID de um cliente pelo CPF
  ID := RetornaIDRegistro('Clientes', 'CPF', '123.456.789-00');
  if ID > 0 then
    ShowMessage('ID do Cliente encontrado: ' + IntToStr(ID))
  else
    ShowMessage('Registro não encontrado!');
end.