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")
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")
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
