Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   Tengo porblemas con un DBNavigator y un Query. (https://www.clubdelphi.com/foros/showthread.php?t=53805)

Raynel 01-03-2008 06:21:40

Tengo porblemas con un DBNavigator y un Query.
 
Saludos gente del foro
Espero por la ayuda de uds. Estoy comenzando en Delphi y estoy haciendo un programa con base de datos Paradox. El problema es que quiero usar un DBNavigator y al usar el botón Post insertar mi código, pero no graba el registro, me dice que le falta un campo, que de hecho es el indice que es autoincremento dsde el código, he tratado con todo y bueno esto es lo último, aquí está para que le echen una ojeada, gracias de antemano. (y).


Código Delphi [-]
.........
nbPost:
   begin
      Query2.Close;
      Query2.SQL.Clear;
      Query2.SQL.Text:='Select Fecha,Campo From Tabla Where (Fecha = :Fec) And (Campo = :Camp)';
      Query2.ParamByName('Camp').asString := QuotedStr(DBLookUpComboBox1.Text);
      Query2.ParamByName('Fec').asDate := DateTimePicker1.Date;
      Query2.RequestLive := true;
      Query2.Open;
      Tamano:=Query2.RecordCount;
      if Tamano <> 0 then
        begin
          Showmessage('Este campo ya está registrado.');
          Query1.Cancel;
        end 
      else
        begin
          Table2.FieldByName('Id').AsInteger :=Table2.RecordCount+1;
          Table2.FieldByName('Fecha').AsDateTime:=DateTimePicker1.Date;
          Table2.FieldByName('Campo').AsString := DBLookUpComboBox1.Text;
        end;
     DateTimePicker1.Date:=DateTimePicker1.Date+1;
   end;
.........

Raynel 01-03-2008 06:33:51

Depaso aprovecho para hacerle una preguntas a los moderadores ¿ No hay formas de filtrar las búsquedas por medios de operadores? Es un poco dificil encontrar resultados exactos en el foro y a veces tengo que usar un buscador web para encontrar más fácil. Gracias.


La franja horaria es GMT +2. Ahora son las 05:36:26.

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