Ver Mensaje Individual
  #3  
Antiguo 03-09-2006
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Reputación: 19
MaMu Va por buen camino
Sigo en la misma

Gracias Casimiro Notevi :

Eso lo habia pensado, inserte las comillas (probe con simples y apóstrofes) y sigue enviándome el mismo error. Despues probé asignarle parámetros, pero el error persiste.

Código:
QRisc.Parameters.ParamByName('nemotecnico').Value:=Edit2.Text;
QRisc.Parameters.ParamByName('tipo').Value:=ComboBox2.Text;
QRisc.Parameters.ParamByName('descripcion').Value:=Memo1.Text;
QRisc.SQL.Clear;
QRisc.SQL.Add('INSERT INTO risc (nemotecnico,tipo,descripcion)');
QRisc.SQL.Add('VALUES (:nemotecnico,:tipo,:descripcion)');
QRisc.SQL.Add('WHERE id_directo='+IntToStr(test));
//QRisc.SQL.SaveToFile('C:\tem\sql.txt'); lo uso para verificar
QRisc.ExecSQL;
Verifico el archivo de texto creado en :

Código:
QRisc.SQL.SaveToFile('C:\tem\sql.txt');
y el mismo me arroja el siguiente resultado:

Código:
INSERT INTO risc (nemotecnico,tipo,descripcion)
VALUES (1,1,2)
WHERE id_directo=65
Luego, cambié la última linea para agregarle el ";"

Código:
QRisc.SQL.Add('WHERE id_directo='+IntToStr(test)+';');
Quedándome el resultado en el txt, de la siguiente manera:

Código:
INSERT INTO risc (nemotecnico,tipo,descripcion)
VALUES (1,1,2)
WHERE id_directo=65;
Pero el error de "falta ";" al final de la instrucción persiste".
Sigo sin encontrarle la vuelta.

Saludos.
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;
Responder Con Cita