PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → Buscar registro usando chave composta
Buscar registro usando chave composta
Débuté par Boller, 05 jan. 2024 16:13 - Aucune réponse
#1
Membre enregistré
3 659 messages
Popularité : +175 (223 votes)
Posté le 05 janvier 2024 - 16:13
// 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 modifié, 05 janvier 2024 - 16:15
→ Revenir à WINDEV 25