Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-05-2011
RedVenom RedVenom is offline
Miembro
 
Registrado: oct 2003
Ubicación: Tabasco, Mexico
Posts: 110
Poder: 23
RedVenom Va por buen camino
Talking

Creo que ya lo resolvi aqui les voy a poner el codigo que utilize, pero primero les explico que cree un campo mas en la tabla inscripciones al que llame CONTROL y que lo lleno haciendo una concatenacion de esta forma el "ID" de la Asociacion luego pongo un "-" y lo completo con el "ID" del deporte y por supuesto lo guardo en una variable llamada "Bandera" que lo que contenga el texto de la variable lo guardo en el campo CONTROL, y pues despues de dar esta explicacion ahoara si va el codigo.

Código Delphi [-]
procedure ControlDB(Depor,Bandera: String);
var
CUPO,REGISTRADOS: integer;
Begin
(*Obtengo el numero maximo de jugadores segun el deporte*)
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From DEPORTES Where ID=' + '''' + Depor + '''');
CUPO:= ADOQuery1. FieldByName('MAX_JUGADORES').AsInteger;
(*Cuento los inscritos que ya hay de la asociación en el deporte a través de la variable “bandera”*)
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From INSCRIPCIONES Where CONTROL=' + '''' + Bandera + '''');
REGISTRADOS:=ADOQuery1.RecordCount;
(*Comparo los registrados contra el cupo y ejecuto la accion segun el resultado de la comparacion*)
if REGISTRADOS>=CUPO then
  begin
   ShowMessage('Ya no se puede');
   ADOQuery1.Active:=False;
   INSCRIPCIONES.Cancel;
  end
else
  begin
   INSCRIPCIONES.Post;
   ADOQuery1.Active:=False;
  end;
end;

En caso de que haya alguna observacion sera muy bien recibida.
Gracias por toda su ayuda y orientacion si no hubiera sido por ustedes no hubiera logrado llegar a este pedazo de codigo, y pues como me dijeron la respuesta me la dieron desde el primer dia solo que en ese momento erea unos codigos mas ignorante.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Limitar cantidad de registros por pagina elarys Impresión 1 29-10-2010 07:38:03
Como limitar la cantidad de registros impresos por hoja mbguantay Impresión 3 25-08-2010 15:22:24
Eliminar registros de mi base de datos Elite237 OOP 9 29-07-2007 22:07:11
¿Cómo limitar la cantidad de carateres a escribir en un RichEdit? Alcolea Varios 5 05-12-2006 03:17:55
Limitar la carpeta donde crear la base de datos fcios Firebird e Interbase 0 01-11-2005 06:03:22


La franja horaria es GMT +2. Ahora son las 20:57:47.


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