Error en concatenacion de Sentencia SQL, Firebird 2.5

[g_ferrada]

...Bueno, salí del paso usando parámetros:

SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Append('delete from genericos where id_equipo = :id_equipo');
SQLQuery1.Params.Clear;
SQLQuery1.Params.CreateParam(ftString,'id_equipo',ptUnknown);
SQLQuery1.ParamByName('id_equipo').AsString:= frListTB1.dsListTB.DataSet.FieldByName('id_equipo').AsString;
SQLQuery1.ExecSQL();

pero personalmente, la otra forma me acomodaba más. Si alguien sabe como hacerlo, se agradece la información.

[Casimiro Noteví]

Bueno, yo eso lo resumiría un poco:

Código Delphi [-]
SQLQuery1.SQL.Close;
SQLQuery1.SQL.Text('delete from genericos where id_equipo = :id_equipo');
SQLQuery1.ParamByName('id_equipo').AsString:= frListTB1.dsListTB.DataSet.FieldByName('id_equipo').AsString;
SQLQuery1.ExecSQL;

Empezado por g_ferrada

...Bueno, salí del paso usando parámetros:
pero personalmente, la otra forma me acomodaba más. Si alguien sabe como hacerlo, se agradece la información.

Debe funcionarte de la otra forma, copia aquí el código exacto que estás usando para que le echemos un vistazo.

[g_ferrada]

Como soy porfiado, seguí con el tema, lo curioso es que este código si funciona correctamente en otro unit:

SQLQuery1.SQL.Append('select sucursal from sucursales where codigo_sucursal = ''' + sCodigoSucursal + '''');

donde sCodigoSucursal es un parámetro de entrada de tipo string a una función que contiene dicha línea.


Para probar, en el codigo anterior (donde no funciona) pase el valor del campo del Dataset a una variable string "s" y reemplacé en el SQL.Append:

s:= ClientDataSet1.FieldByName('id_equipo').AsString;
SQLQuery1.SQL.Append('delete from genericos where id_equipo = ''' + s + '''');

pero ocurre el mismo problema. Estoy confundido.

[Casimiro Noteví]

¿Pero el problema es que te sale algún error o que no borra el registro?
Si es un error: ¿qué error es?

Por cierto, recuerda poner el código entre etiquetas, ejemplo:

[g_ferrada]

Señores,
debo decirlo... estoy avergonzado.

Después que la pantalla de mi note se puso con rallitas de colores y se quedó pegado, tuve que resetear todo, y con ello se reseteo mi cerebro también.
Parece ser que el error era otro, inicialmente de sintaxis en la consulta, y buscando y buscando encontré extraño el tema de las doble comillas, y me quedé pegado ahí, no se... creo que me estoy volviendo viejo, o será falta de sexo.

Casimiro, gracias por la molestia en responder. Al menos aprendí a colocar los códigos en forma apropiada.
Un saludo

¡Viva Delphi!

[Casimiro Noteví]

A todos se nos "cuelga" el cerebro de vez en cuando
Aunque siempre está bien decir cómo se solucionó, cuál era realmente el problema, así nos quedamos tranquilos

[g_ferrada]

Si. Lo que decía, creo... había un error (una coma que aparece por ahí en los posts anteriores), y me fui a mirar con el watchList el SQL.Text y vi las dos comillas, seguramente corregí despues el otro error, pero me quede buscando como sacarlas, tratando de solucionar un problema que no existía . Lo único que puedo decir a mi favor, es que Delphi7 no muestra doble comillas, en el watchList, al menos.