Hola, roman, muchas gracias, no funciona.
En el mensaje Dubugger Exception Notification dice ... Invalid token The SQL: select * from TITULOS where SUBSTRING(NomTit, 1, ?) = ?;'. Process ...
Ahora lo tengo así:
Código Delphi
[-]
if (F_Main.sRG_BuscarTit.ItemIndex = 1) then begin
if (F_Main.sEdit_BuscarTit.Text <> '') then begin
cCadena := cCadena + '%';
DM_TitAnd_PUIP.Q_TITULOS.Close;
DM_TitAnd_PUIP.Q_TITULOS.SQL.Clear;
DM_TitAnd_PUIP.Q_TITULOS.SQL.Add('select * from TITULOS where SUBSTR(NomTit, 1, :nChar) = :cCadena');
DM_TitAnd_PUIP.Q_TITULOS.Parambyname('nChar').AsInteger := nChar;
DM_TitAnd_PUIP.Q_TITULOS.Parambyname('cCadena').AsString := cCadena;
DM_TitAnd_PUIP.Q_TITULOS.Open;
end
else ActualizarQueryTitulos;
end;
También he probado lo mismo con SUBSTRING:
Código Delphi
[-]
DM_TitAnd_PUIP.Q_TITULOS.SQL.Add('select * from TITULOS where SUBSTRING(NomTit, 1, :nChar) = :cCadena');
Pero no funciona, ni con las otras opciones. Parece que los signos "?" del mensaje de error indiquen que no reconoce las variables, pero no lo sé.
Seguiré probando y buscando...
Gracias.