Error en concatenacion de Sentencia SQL, Firebird 2.5

[Adrian Murua]

Empezado por Casimiro Notevi

¿Has verificado desde ibexpert, por ejemplo, de que la sentencia se ejecuta bien?

Gracias Casimiro Notevi por responder, si la ejecute a la sentencia en el ibexpert y funciona bien , da el error cuando la ejecuto desde el dataset de las ibx de delphi.

Empezado por Chris

Estoy casi seguro que es donde tú mencionas. Veo un error en la concanetación y es que estás utilizando unas Comas (,) que están de más. Eso es lo que te está indicando el error, que tienes un identificador desconocido, en este caso una coma. Tu concanetación debería de quedar así:

Código Delphi [-]
' (CONTACTOS.APELLIDO || ' + ''', ''' + ' || CONTACTOS.NOMBRE) as CONTACTO,  '+
' (OPERADORES.APELLIDO || ' + ''', ''' + ' || OPERADORES.NOMBRE) AS OPERADOR,' +

Saludos,
Chris

Gracias Chris por tu respuesta, tenes razon me hice un lio con las comillas simples, he probado tu correccion y me ha funcionado bien.

Empezado por Casimiro Notevi

Todavía no me he tomado el café, así que no tengo las neuronas en
funcionamiento, pero me parece que sobra todo eso, no?
O sea,:

' (CONTACTOS.APELLIDO || '+', '+ ' || CONTACTOS.NOMBRE) as CONTACTO,  '+
' (OPERADORES.APELLIDO || '+', '+ ' || OPERADORES.NOMBRE) AS OPERADOR,'+

Puede quedarse así:

' (CONTACTOS.APELLIDO || CONTACTOS.NOMBRE) as CONTACTO,  '+
' (OPERADORES.APELLIDO || OPERADORES.NOMBRE) AS OPERADOR,'+

Gracias de Nuevo Casimiro, como le dije a Chris, me hice un lio con las comillas simples, ya habia probado como tu dices, pero la idea es tener el apellido, separado con una coma, del nombre.

Empezado por pacopenin

Hola.

también podrías usar

Código Delphi [-]
' (CONTACTOS.APELLIDO || ' + QuotedStr(', ') + ' || CONTACTOS.NOMBRE) as CONTACTO,  '+

Está en SysUtils.

Saludos.

Gracias por tu respuesta pacopenin, he optado usar tu sugerencia ya que el codigo es mas simple que con las comillas.

Gracias a todos ustedes.

Ssludos.

[Casimiro Notevi]

¿Pero lo has solucionado?

[Adrian Murua]

Empezado por Casimiro Notevi

¿Pero lo has solucionado?

Si Casimiro, Lo he solucionado, tanto el codigo propuesto por Chris, como el de pacopenin, me han funcionado, pero he optado por la Funcion

QuotedStr(', ');

de pacopenin, la cual no la conocía, ya que el codigo queda mas limpio, por decirlo de alguna manera. Muchas Gracias

[g_ferrada]

Amigos
Tengo un problema con las comillas (') que no logro solucionar. Escribo la sentencia SQL en la propiedad SQL.TEXT, de la siguiente forma:

Query1.SQL.Append('delete from genericos where id_equipo = ''' + frListTB1.dsListTB.DataSet.FieldByName('id_equipo').AsString + '''');

pero Delphi insiste en colocarme las comillas dos veces y me lo deja así:

delete from genericos, where id_equipo = ''EQUIPO 100''
y me coloca dos veces las comillas.

No soy un maestro en Delphi, pero hago esto desde muchos años, y ahora he decidido comenzar a usar Delphi2010 y me encontrado con esta dificultad (entre otras). El código anterior me funciona en Delphi7.

He intentado usando chr(39), #39, QuotedStr, AnsiQuotedStr... Si usara la comilla doble el tema anda:

Query1.SQL.Append('delete from genericos where id_equipo = "' + frListTB1.dsListTB.DataSet.FieldByName('id_equipo').AsString + '"');

y queda asi:
delete from genericos, where id_equipo = "EQUIPO 100"
pero esto Firebird no me lo reconoce (el delimitador de texto es comilla simple).

Si le saco las comillas:

Query1.SQL.Append('delete from genericos where id_equipo = ' + frListTB1.dsListTB.DataSet.FieldByName('id_equipo').AsString + '');

el resultado tampoco me sirve:
delete from genericos, where id_equipo = EQUIPO 100

Lo que me falta es probar otro camino usando parámetros en la consulta, pero me figuro que también tendré que preparar cadenas de texto, y la verdad, me cuesta creer que Delphi haya caído en un error tan burdo (y que nadie más se haya dado cuenta) así que prefiero pensar que el problema soy yo.
¿Habrá que cambiar alguna opción en Delphi para que funcione como lo hacía en mi querido Delphi7?

Agradeceré ayuda, por favor.
Saludos

[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 Notevi]

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 Notevi]

¿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: