Ver Mensaje Individual
  #1  
Antiguo 01-03-2008
Avatar de Raynel
Raynel Raynel is offline
Miembro
 
Registrado: sep 2007
Posts: 40
Reputación: 0
Raynel Va por buen camino
Thumbs up 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;
.........

Última edición por Raynel fecha: 01-03-2008 a las 06:35:28.
Responder Con Cita