PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV 25 → Buscar registro usando chave composta
Buscar registro usando chave composta
Started by Boller, Jan., 05 2024 4:13 PM - No answer
#1
Registered member
3,659 messages
Popularité : +175 (223 votes)
Posted on January, 05 2024 - 4:13 PM
// Buscar um registro usando chave composta com o comando HReadSeek
// Suponha que o arquivo se chama CLIENTE e os itens da chave são CODIGO e NOME

// Definir uma variável para armazenar o valor buscado
vBusca is string

// Atribuir o valor buscado à variável
vBusca = "123;João"

HReset(cliente)

// Buscar o registro usando HReadSeek
HReadSeek(CLIENTE, CODIGO + NOME, vBusca)

// Verificar se o registro foi encontrado
IF HFound(CLIENTE) THEN
// Mostrar os dados do registro encontrado
Info("Código: " + CLIENTE.CODIGO + CR + "Nome: " + CLIENTE.NOME)
ELSE
// Mostrar uma mensagem de erro
Error("Registro não encontrado")
END


Ou

// Buscar um registro usando chave composta com o comando HReadSeek
// Suponha que o arquivo se chama CLIENTE e os itens da chave são CODIGO e NOME

// Definir o valor buscado está entre colchetes [ ]

HReset(cliente)

// Buscar o registro usando HReadSeek
HReadSeek(CLIENTE, CODIGO + NOME,[123,”João”])

// Verificar se o registro foi encontrado
IF HFound(CLIENTE) THEN
// Mostrar os dados do registro encontrado
Info("Código: " + CLIENTE.CODIGO + CR + "Nome: " + CLIENTE.NOME)
ELSE
// Mostrar uma mensagem de erro
Error("Registro não encontrado")
END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Message modified, January, 05 2024 - 4:15 PM
→ Go back to WINDEV 25