PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 25 → Exemplo de uso do SqlConnectWs
Exemplo de uso do SqlConnectWs
Started by Boller, Jan., 05 2024 4:23 PM - No answer
Registered member
3,659 messages
Popularité : +175 (223 votes)
Posted on January, 05 2024 - 4:23 PM
// Exemplo de código usando SqlConnectWS no Windev Mobile
// Suponha que o arquivo se chama CLIENTE e os itens são CODIGO, NOME e TELEFONE

// Definir uma variável para armazenar o identificador da conexão
vConexao is int

// Estabelecer a conexão com o banco de dados via Webservice
vConexao = SQLConnectWS("http://MeuServidor/WDSOAPDB_WEB/", ...
"Banco de Dados SQL Server", "usuario", "senha", "MeuBanco", "ODBC")

// Verificar se a conexão foi bem sucedida
IF vConexao <> 0 THEN
// A conexão foi bem sucedida

// Definir uma variável para armazenar o código do cliente
vCodigo is int

// Atribuir um valor à variável
vCodigo = 789

// Adicionar um novo registro ao arquivo CLIENTE
SQLExec("INSERT INTO CLIENTE (CODIGO, NOME, TELEFONE) VALUES (" + ...
vCodigo + ", 'Pedro', '41-8888-8888')", "ResInsercao")

// Modificar o registro adicionado
SQLExec("UPDATE CLIENTE SET NOME = 'Paulo' WHERE CODIGO = " + vCodigo, "ResModificacao")

// Excluir o registro modificado
SQLExec("DELETE FROM CLIENTE WHERE CODIGO = " + vCodigo, "ResExclusao")

// Buscar o registro excluído
SQLExec("SELECT * FROM CLIENTE WHERE CODIGO = " + vCodigo, "ResBusca")

// Verificar se o registro foi excluído
IF SQLNbRow("ResBusca") = 0 THEN
// Mostrar uma mensagem de confirmação
Info("Registro excluído com sucesso")
ELSE
// Mostrar uma mensagem de erro
Error("Registro não foi excluído")
END

// Fechar a conexão com o banco de dados
SQLDisconnect()
ELSE
// A conexão falhou: mostrar uma mensagem de erro
SQLInfo()
Error("A conexão com o banco de dados falhou." + CR + ...
"Código do erro: " + SQL.Error + CR + SQL.MesError)
END

Espero que isso ajude. ??
Se você quiser saber mais sobre o comando SQLConnectWS, você pode consultar o seguinte Link:
SQLConnectWS: Conecta a aplicação atual a um banco de dados que será consultado por SQL através de um Proxy Webservice (SOAP).


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/