PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Novo exemplo SQLConnectws para usar numa comunicação entre Windev Mobile e PostgreSQL
Novo exemplo SQLConnectws para usar numa comunicação entre Windev Mobile e PostgreSQL
Iniciado por Boller, jan., 05 2024 4:32 PM - Sem resposta
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em janeiro, 05 2024 - 4:32 PM
Aqui está o código que eu criei:
// Outro exemplo de código usando SqlConnectWS no Windev Mobile
// Suponha que o arquivo se chama PRODUTO e os itens são CODIGO, DESCRICAO e PRECO

// 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 PostgreSQL", "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 produto
vCodigo is int

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

// Adicionar um novo registro ao arquivo PRODUTO
SQLExec("INSERT INTO PRODUTO (CODIGO, DESCRICAO, PRECO) VALUES (" + ...
vCodigo + ", 'Caneta', 1.50)", "ResInsercao")

// Modificar o registro adicionado
SQLExec("UPDATE PRODUTO SET PRECO = 1.75 WHERE CODIGO = " + vCodigo, "ResModificacao")

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

// Buscar o registro excluído
SQLExec("SELECT * FROM PRODUTO 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 ver mais exemplos de código usando SQLConnectWS, você pode consultar os seguintes links:
Select com expressão diferente de com duas condições: Um exemplo de como usar o comando SQLExec para fazer uma consulta com o operador NOT IN.
aula 6214 windev mobile SQLConnectWS conexao base de dados externa mysql instalacao xampp ODBC MyS: Um vídeo que mostra como configurar o Webservice e o ODBC para conectar o Windev Mobile a um banco de dados MySQL.
aula 6215 windev mobile SQLConnectWS criando banco e tabela e inserindo dados: Um vídeo que mostra como criar um banco de dados e uma tabela No MySQL e inserir dados usando o Windev Mobile.


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Mensagem modificada, janeiro, 05 2024 - 4:33 PM