|
Accueil → WINDEV 25 → WX - Montando uma string de código Sql com absoluto controle e evitando erros que no debug acabam não sendo exibidos |
WX - Montando uma string de código Sql com absoluto controle e evitando erros que no debug acabam não sendo exibidos |
Débuté par adrianoboller, 17 oct. 2015 11:53 - 2 réponses |
| |
| | | |
|
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 17 octobre 2015 - 11:53 |
Prezados
Eu recomendo fazer de outra maneira, segue minha sugestão:
Sqlcodigo is string = [ UPDATE PUESTOS SET NOMBRE ='@Nombre@' , APELLIDO ='@Apellido@' , PUESTO ='@Puesto@' WHERE ID = @ID@ ]
Sqlcodigo = Replace (Sqlcodigo, "@Nombre@" , Edt_Nombre) Sqlcodigo = Replace (Sqlcodigo, "@Apelido@" , Edt_Apelido) Sqlcodigo = Replace (Sqlcodigo, "@Puesto@" , Edt_Puesto) Sqlcodigo = Replace (Sqlcodigo, "@ID@" , Edt_ID)
SQLExec(Sqlcodigo, "QRY1")
Um forte abraço e sucesso
-- Adriano Jose Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller ______________________________________________ |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 17 octobre 2015 - 11:55 |
Exemplo errado de fazer pois fica difícil de achar o erro até no debug
SQLExec("UPDATE PUESTOS SET NOMBRE ="+ EDT_Nombre +" APELLIDO ="+ EDT_Apellido +" PUESTO ="+ EDT_Puesto +" WHERE ID = "+ STC_ID,"QRY1")
-- Adriano Jose Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller ______________________________________________ |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 18 octobre 2015 - 03:23 |
Pode ser usado no SqlExec ou no HexecuteSqlQuery:
LASTNAME is dynamic array FIRSTNAME is dynamic array EXTENSION is dynamic array
Sqlcodigo is string = [ UPDATE PUESTOS SET NOMBRE ='@Nombre@' , APELLIDO ='@Apellido@' , PUESTO ='@Puesto@' WHERE ID = @ID@ ]
Sqlcodigo = Replace (Sqlcodigo, "@Nombre@" , Edt_Nombre) Sqlcodigo = Replace (Sqlcodigo, "@Apelido@" , Edt_Apelido) Sqlcodigo = Replace (Sqlcodigo, "@Puesto@" , Edt_Puesto) Sqlcodigo = Replace (Sqlcodigo, "@ID@" , Edt_ID)
//Dai
i is int = 0 SQLExec(Sqlcodigo, "QRY1") WHILE SQLFetch("QRY1") = 0 i++ LASTNAME[i] = SQLGetCol("QRY1", 1) FIRSTNAME[i] = SQLGetCol("QRY1", 2) EXTENSION[i] = SQLGetCol("QRY1", 3) END SQLClose("QRY1")
//OU
QrySql is Data Source ok is boolean = SQLExec(QrySql , Conn, QueryDefault, Sqlcodigo) IF ok = True FOR EACH QrySql
LASTNAME[i] = QrySql.LASTNAME
FIRSTNAME[i] = QrySql.FIRSTNAME
EXTENSION[i] = QrySql.EXTENSION
END END
-- Adriano Jose Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller ______________________________________________ |
| |
| |
| | | |
|
| | | | |
| | |
|