Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-07-2020
pepesoft pepesoft is offline
Miembro
 
Registrado: ago 2014
Posts: 15
Poder: 0
pepesoft Va por buen camino
Ayuda con SQL

Hola, tengo un caso de una consulta que es la siguiente
Código Delphi [-]
var
  tValor, tNumero: Integer;
  tText :string;
begin
  tTUni := TUniQuery.Create(nil);
  tTUni.Connection := DBConexion.BaseDatos;

  tText  := 'TPT';
  tValor := 1;

  with Uniquery do
  begin

    Close;
    SQL.Clear;
    SQL.Add('SELECT MAX(SUBSTR(codigo,4))::integer + 1 AS numero FROM clientes');
    SQL.Add(' WHERE LEFT(codigo,3) = :texto ');
    ParamByName('texto').AsString := tText;
    Open;
    tNumero  := FieldByName('numero').AsInteger;
    if tNumero > 0 then
      Edit1.Text := tText + FormatFloat( '#',(tNumero) )
    else
      Edit1.Text := tText + FormatFloat( '#',tValor );
   end;

end;
Lo que sucede es que quiero generar un código alfanumerico en postgresql, que contenga 3 letras y numeros, algo asi
TPT1, TPT2, ..., .., TPT100, .., TPT2300, así sucesivamente. con este código solo genera hasta el numero diez y luego todos son 10, algo esta fallando y no me he dado cuenta.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda BD Access? Ayuda al modificar!! DarkArias Conexión con bases de datos 4 25-08-2013 00:47:41
Instalar Ayuda (.HLP) en la Ayuda de Delphi? MasterXP Varios 6 12-04-2006 07:57:49
Ayuda para crear ayuda... Gabriel2 Varios 2 10-06-2005 01:15:18
ayuda con strtofloat, ayuda punto flotante TURING Varios 5 30-04-2004 09:03:59
Ayuda Con Instalacion De Archivos De Ayuda Legolas Varios 1 01-12-2003 15:48:03


La franja horaria es GMT +2. Ahora son las 01:55:45.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi