PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WINDEV 25
→
Exemplo de uso do SqlConnectWs
Exemplo de uso do SqlConnectWs
Started by Boller, Jan., 05 2024 4:23 PM - No answer
Connect yourself…
Boller
#1
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
v
Conexao
is int
// Estabelecer a conexão com o banco de dados via Webservice
v
Conexao
=
SQLConnectWS
(
"http://MeuServidor/WDSOAPDB_WEB/"
, ...
"Banco de Dados SQL Server"
,
"usuario"
,
"senha"
,
"MeuBanco"
,
"ODBC"
)
// Verificar se a conexão foi bem sucedida
IF
v
Conexao
<
>
0
THEN
// A conexão foi bem sucedida
// Definir uma variável para armazenar o código do cliente
v
Codigo
is int
// Atribuir um valor à variável
v
Codigo
=
789
// Adicionar um novo registro ao arquivo CLIENTE
SQLExec
(
"INSERT INTO CLIENTE (CODIGO, NOME, TELEFONE) VALUES ("
+ ...
v
Codigo
+
", 'Pedro', '41-8888-8888')"
,
"ResInsercao"
)
// Modificar o registro adicionado
SQLExec
(
"UPDATE CLIENTE SET NOME = 'Paulo' WHERE CODIGO = "
+
v
Codigo
,
"ResModificacao"
)
// Excluir o registro modificado
SQLExec
(
"DELETE FROM CLIENTE WHERE CODIGO = "
+
v
Codigo
,
"ResExclusao"
)
// Buscar o registro excluído
SQLExec
(
"SELECT * FROM CLIENTE WHERE CODIGO = "
+
v
Codigo
,
"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
:
C
onecta
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/
Report
0
0
→ Go back to WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text