9 respuestas en este tema

[ovivasar]

Hola gente
una consulta sobre los apostrofes, toda la tarde probe la forma enviar en un String un apostrofe
especificamente para un script SQL de consulta a una Base de Datos, y no me permite obtener una cadena correcta:

delphi

function Lista_Empresas_Autorizadas(strLogin: String): TClientDataSet;
  var
  strSQL: String;
  fecha: TDate;
begin
  fecha:= date();
  strSQL:='SELECT ';
  strSQL:=strSQL+' mad_empleado.codigo_empresa as codigo,';
  strSQL:=strSQL+' mad_empresa.razon_social as descripcion';
  strSQL:=strSQL+' FROM mad_empresa INNER JOIN mad_empleado';
  strSQL:=strSQL+' ON (mad_empleado.codigo_empresa = mad_empresa.codigo_empresa)';
  strSQL:=concat(strSQL,' WHERE mad_empleado.login = ', #39, strLogin,#39);
//  strSQL:=concat(strSQL,' WHERE mad_empleado.login = ', QuotedStr(strLogin));
  strSQL:=strSQL+' ORDER BY mad_empresa.razon_social';
 
  result:=Consulta(strSQL);
end;

Despues de probar 'n' sintaxis de concatenacion y ejecutar esta funcion la cadenita strSQL queda asi, Fíjense en la línea con comentario:

SELECT  mad_empleado.codigo_empresa as codigo, mad_empresa.razon_social as descripcion

FROM mad_empresa INNER JOIN mad_empleado

ON (mad_empleado.codigo_empresa = mad_empresa.codigo_empresa)

WHERE mad_empleado.login = ''Administrador''     //ME MANDA 2 APOSTROFES

ORDER BY mad_empresa.razon_social

Si le quito el #39 ó la funcion QuotedStr La linea en cuestión, me la manda así:

WHERE mad_empleado.login = Administrador 

   

0 apostrofes, 


En cualquiera de los dos casos, la base de datos no reconoce una cadena con una cantidad par de apostrofes. Lo correcto es que se reciba así:

WHERE mad_empleado.login = 'Administrador'   

 

1 apostrofe, pero desde Delphi no llega.
Esto debería llegar, pero probando con más apostrofes, siempre Delphi exige una cantidad impar, pero su contenido fuera de Delphi es con una cantidad par,

En varios foros resuelven el problema pero de versiones 2006, ¿alguna solución para esta versión por favor?

Hago una aclaración: estoy utilizando la modalidad de envío de cadenas SQL directamente a la base de datos, pues es más directo, más ligero. Sólo armo la cadena de de inserción o modificación o lo que sea y nada más; siempre trabajé así, soy nuevo en Delphi y me estoy encontrando con algunas cosillas que en teoría funcionan, pero en la práctica no se como hacerlas todavía.

Muchas gracias de antemano por el apoyo.

[fredycc]

Puedes pasar estos datos como parámetros o bien más fácil para tu caso, usa la función QuotedStr:

http://delphi.about....tlQuotedStr.htm

Saludos

[Fenareth]

O intenta así:

delphi

strSQL:=concat(strSQL,' WHERE mad_empleado.login = '''+strLogin+'''');

Saludox !

[Delphius]

ovivasar ¡no nos grites! 
He editado tu mensaje para borrar esas mayúsculas tan molestas.
Respeta nuestras normas por favor.

Saludos,

[Caral]

Hola
Yo usaria el concepto de Fena con algunas modificaciones:

delphi

function Lista_Empresas_Autorizadas(strLogin: String): TClientDataSet;
  var
  strSQL: String;
  fecha: TDate;
begin
  fecha:= date();
  strSQL:= 'SELECT '+
           ' mad_empleado.codigo_empresa as codigo, '+
           ' mad_empresa.razon_social as descripcion  '+
           ' FROM mad_empresa INNER JOIN mad_empleado '+
           ' ON (mad_empleado.codigo_empresa = mad_empresa.codigo_empresa) '+
           ' WHERE mad_empleado.login = '''+strLogin+''''+
           ' ORDER BY mad_empresa.razon_social ';
  result:=Consulta(strSQL);
end;

Saludos

[Desart]

Has probado con  CHR(39)

[cadetill]

Buenas,

Yo quitaría la variable fecha, dado que no se usa para nada, y así te ahorras un Hint molesto xD

Bromas a parte, la función QuotedStr debería de funcionarte. Si bien es cierto que si debugueas parece que te está devolviendo dos comillas simples, realmente no es así (al menos en XE2 update 3)

Nos leemos

[ovivasar]

Muchas gracias
definitivamente en delphi los apostrofes se miran con par, pero por fuera son impares
gracias
problema resulto

mil disculpas
novato en crecimiento xD

[Fenareth]

Muchas gracias
definitivamente en delphi los apostrofes se miran con par, pero por fuera son impares
gracias
problema resulto

mil disculpas
novato en crecimiento xD

Qué bueno que lo has resuelto amigo ... esperamos seguir viéndote por aquí

Saludox !

[Sergio]

Es algo que ocurre en todos los lenguajes cuando quieres poner dentro de un texto el propio caracter que se usa para delimitar los textos, en delphi es el apóstrofe ' pero en otros es la " o en HTML sería el < o el >,  y siempre se termina teniendo que "marcar" ese caracter de alguna forma, bien poniéndolo doble, o bien poniéndole delante algún caracter especial... pero si usas un caracter especial, vuelves a tener el problema de tener que usar ese caracter en el texto.... y la historia suele terminar teniendo que poner repetido ese "último" caracter especial.

Si te acostumbras a escribir el ´doble dentro de los textos, la ventaja es que si te falta o te sobra uno, lo ves en el editor porque los textos cambian de color al pasar de estar dentro de una cadena a estar fuera. Aunque yo siempre uso QuotedStr() para variables y dobles ´para literales, como en tu ejemplo pero me funciona sin problemas.