Foros Club Delphi - De varchar a integer

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - De varchar a integer (https://www.clubdelphi.com/foros/showthread.php?t=52771)

linuz

30-01-2008 18:04:07

De varchar a integer

Hola a todos,

He buscado informado acerca de como poder pasar una cadena de texto a un entero en FireBird 1.5, pero no he encontrado exactamente si se puede hacer.

Si alguno de ustedes sabe si es posible le agradecería mucho que me dijera como se puede.

Muchas gracias.

Un saludo.

luisgutierrezb

30-01-2008 18:16:11

generalmente funciona:

Código SQL [-]Cast(CampoCadena as INTEGER)

linuz

30-01-2008 18:45:44

He probado a poner

Código SQL [-]cast (cadena as INTEGER)

me compila bien, pero no funciona para lo que quiero hacer.

Lo que me interesa hacer es coger 2 caracteres de una cadena de texto, y pasarlos a un entero.

Os pongo un trozo del codigo:

Código SQL [-] for select empresa,cod_postal,codigo_cliente,num_direccion from cli_direcciones
     into :empresa,:codigo_postal,:cliente,:direccion do
     begin
      provincia2 = substrlen(codigo_postal,1,2);
      provincia = cast(provincia2 as INTEGER);
...

¿Alguna idea? :rolleyes: :)

Muchas gracias.

jhonny

30-01-2008 19:12:11

Cita:

Empezado por linuz (Mensaje 262175)

He probado a poner

Código SQL [-]cast (cadena as INTEGER)

me compila bien, pero no funciona para lo que quiero hacer.

Lo que me interesa hacer es coger 2 caracteres de una cadena de texto, y pasarlos a un entero.

Os pongo un trozo del codigo:

Código SQL [-] for select empresa,cod_postal,codigo_cliente,num_direccion from cli_direcciones
     into :empresa,:codigo_postal,:cliente,:direccion do
     begin
      provincia2 = substrlen(codigo_postal,1,2);
      provincia = cast(provincia2 as INTEGER);
...

¿Alguna idea? :rolleyes: :)

Muchas gracias.

Pues lo unico que veo mal según lo que te entiendo, es que no es substrlen si no substring y se usa asi:

Código SQL [-] for select empresa,cod_postal,codigo_cliente,num_direccion from cli_direcciones
     into :empresa,:codigo_postal,:cliente,:direccion do
     begin
      provincia2 = substring(codigo_postal FROM 1 FOR 2);
      provincia = cast(provincia2 as INTEGER);
...

Espero te sirva.

linuz

31-01-2008 09:32:15

Hola,

He probado a cambiar el código poniendo:

Código SQL [-]provincia2 = substring(codigo_postal FROM 1 FOR 2);

Efectivamente el código es correcto, pero me sigue cogiendo una cadena de texto y no un entero.
No se como puedo hacer esto.

Ante todo muchas gracias por vuestra ayuda.

Un saludo. :)

Lepe	31-01-2008 10:32:54

Pues otra vuelta de tuerca más:

Código SQL [-]provincia2 = cast( substring(codigo_postal FROM 1 FOR 2) as integer);

Saludos

jachguate

31-01-2008 10:44:51

Y otra vuelta de tuerca mas.. :D

Código SQL [-]for select empresa, cod_postal, codigo_cliente, num_direccion,
           cast( substring(cod_postal FROM 1 FOR 2) as integer)
      from cli_direcciones
      into :empresa, :codigo_postal, :cliente, :direccion, :provincia do
begin
  /*lo que haya que hacer!*/

Hasta luego.

;)

Lepe	31-01-2008 16:20:14

.... Al final lo "pasaremos de rosca".... fijo :D.

Saludos

jachguate

31-01-2008 16:43:27

jajaja... ya lo creo :D :D :D

linuz

01-02-2008 10:48:58

Hola,

Gracias por vuestras respuestas :), pero he intentado dandole muchas vueltas de rosca, pero sigue sin funcionar. Lo que pasa es que el campo varchar al compararse con un integer me da el tipico error de "Convertion error from string".

No se que hacer, seguramente me tocara hacerlo en delphi, pero prefiero hacerlo sobre la base de datos, y asi no tener que andar a actualizando a clientes, jeje :rolleyes:.

SI os ocurre alguna cosa más estaré por aqui.

Gracias por vuestra atención.

Saludos.

jhonny

01-02-2008 14:15:50

Cita:

Empezado por linuz (Mensaje 262600)

Suguramente los datos que esta devolviendo el substring son alfanumericos, tendras que adecuar el ejemplo a tu necesidad, nosotros hemos asumido que el valor que necesitas esta comprendido entre la posicion 0 y 1 de tu cadena de texto, ya que tu no nos haz mostrado como estan compuestos dichos codigos, por lo que tendras que mover un poco esas posiciones si ese es el caso.

PepeLolo

03-02-2008 18:42:02

Buenas, me parece que el problema está en la variable destino, esta debe ser de tipo INTEGER, en caso contrario te dará el error que indicas.
De todas formas debes estar seguro que el valor del campo o la subcadena que extraigas contenga valores comprendidos entre "0" y "9", no importa que el valor extraido de la cadena sea "08" al realizar la conversión esta se transformara en un 8.

Ejemplo:

Código SQL [-]Provincia = cast(cdprov as integer)

Saludos.

linuz

04-02-2008 10:01:16

Hola de nuevo,

He llevado a cabo vuestros consejos, pero no ha habido forma de conseguir mi propósito.

Os dejo el código del procedimiento. Su funcionamiento es simple, se trata de coger los dos primeros caracteres del código postal, y con ello cojo lo provincia y población de otra tabla, para así modificar la ficha del cliente.

Código SQL [-]create procedure actualiza_codigo_postales 
as
declare variable postal integer;
declare variable codigo_postal varchar(10);
declare variable provincia integer;
declare variable poblacion integer;
declare variable cliente smallint;
declare variable empresa smallint;
declare variable direccion smallint;
begin
   for select empresa,cod_postal,codigo_cliente,num_direccion from cli_direcciones
     into :empresa,:codigo_postal,:cliente,:direccion do
     begin
     if ((codigo_postal <> '') or (codigo_postal is not null)) then
       begin
         provincia = cast( substring(codigo_postal FROM 1 FOR 2) as integer);
         if (provincia > 0) then 
           begin       
             select codigo from poblaciones
             where cod_postal =:codigo_postal
              and   provincia = : provincia
               into : poblacion;
               
            if (poblacion is null) then poblacion = 0;
            if (provincia is null) then provincia = 0;
            
              update cli_direcciones 
               set provincia = : provincia,poblacion = : poblacion
               where empresa        =:empresa
               and   codigo_cliente =:cliente
               and   num_direccion  =:direccion;
          end
       end
     end   
  suspend;
end

Un saludo.

MUCHAS GRACIAS A TODOS!!

PepeLolo

12-02-2008 01:06:59

Si te falla la sentencia

Código SQL [-]provincia = cast( substring(codigo_postal FROM 1 FOR 2) as integer);

es porque en las posiciones que extraes en alguno de los registros no hay números.

Ejecuta la consulta y revisa el resultado porque el problema lo tienes ahí.

Código SQL [-]select empresa,cod_postal,codigo_cliente,num_direccion from cli_direcciones

Un saludo

RolphyReyes

12-02-2008 18:54:31

Saludos.

Tal como dice PepeLolo debes de tener alguna cadena nula o algo por el estilo.

Te recomiendo utilizar COALESCE para que mandes un valor que te sirva para identificar que esa cadena ha fallado.

Hasta luego.

La franja horaria es GMT +2. Ahora son las 05:22:09.