Como insertar variables (enteros)???

[patito123]

Hola alguien me puede ayudar con el siguiente codigo, no se como meter variables con un valor entero a mysql, la sentencia esta bien solo que no se como se pone para que reconozca que son variables enteras. Bueno les agradezco mucho.

Código Delphi [-]
 
var
 a,b,c,d:integer;
begin
a:=StrToInt(LCBMunicipio.Text);
b:=StrToInt(LCBLocalidad.Text);
c:=StrToInt(LCBZona.Text);
d:=StrToInt(LCBContacto.Text);
DataModule1.ADOQueryEscuela.Close;
DataModule1.ADOQueryEscuela.SQL.Clear;
DataModule1.ADOQueryEscuela.SQL.Text:='insert into escuela (nombre,clave,tipo,id_municipio,id_localidad,id_zona,id_contacto) values('+char(39)+EditNombreEscuela.Text+char(39)+','+char(39)+EditClaveEscuela.Text+char(39)+','+ch  ar(39)+LCBTipo.Text+char(39)+',a,b,c,d)';[/color]
DataModule1.ADOQueryEscuela.ExecSQL;
end;

[[Caral]]

Hola
Bienvenido al club
Lo que no entiendo es para que meter variables en esa sentencia?.
Por que no directamente?.
No veo que las variables hagan algo?
Por otro lado, usa parametros es mejor.
Saludos

[[cHackAll]]

Código Delphi [-]
... .Text := 'insert into escuela (nombre,clave,tipo,id_municipio,id_localidad,id_zona,id_contacto) values
('''+EditNombreEscuela.Text+''','''+EditClaveEscuela.Text+''','''+LCBTipo.Text+''', '+IntToStr(a)+','+IntToStr(b)+','+IntToStr(c)+','+IntToStr(d)+')';

[[Caral]]

Hola
Otro dato adicional.
Esto:

Código Delphi [-]
DataModule1.ADOQueryEscuela.SQL.Clear;

No se necesita, Text borra el contenido anterior, si el query tuvo algo antes.
Saludos

[patito123]

Muchas gracias por atenderme.
De verdad les gradezco mucho
AL final el codigo lo deje asi (de acuerdo con sus sugerencias)y funciona bien

Código Delphi [-]
var
a,b,c,d:integer;
begin
a:=StrToInt(LCBMunicipio.Text);
b:=StrToInt(LCBLocalidad.Text);
c:=StrToInt(LCBZona.Text);
d:=StrToInt(LCBContacto.Text);
DataModule1.ADOQueryEscuela.Close;
 
DataModule1.ADOQueryEscuela.SQL.Text:='insert into escuela (nombre,clave,tipo,id_municipio,id_localidad,id_zona,id_contacto) values('+char(39)+EditNombreEscuela.Text+char(39)+','+char(39)+EditClaveEscuela.Text+char(39)+','+ch  ar(39)+LCBTipo.Text+char(39)+','+IntToStr(a)+','+IntToStr(b)+','+IntToStr(c)+','+IntToStr(d)+')';

showmessage(DataModule1.ADOQueryEscuela.SQL.Text);
DataModule1.ADOQueryEscuela.ExecSQL;

Gracias

[[cHackAll]]

Solo una cosa; no entiendo por que utilizas StrToInt para despues regresarlo al estado original con IntToStr...

Claro; si utilizas las variables para "algo" esta bien; si no es en vano.

[patito123]

Ok gracias Tienes Razon. Ya le quite esa conversion innecesaria. Lo que pasa es q no sabia como hacerlo al principio e hice varias pruebas

Gracias.