Re: Error in post with ADOSQLServer

Hi,

Yes is one table with 86.500 record!!, I need delete all duplicate record.

The complete code is :

While Not ADOQuery_SqlServer.Eof Do
Begin
n_Pregunta := ADOQuery_SqlServerRel_NumeroPregunta.Value;
n_Obra := ADOQuery_SqlServerRel_CodigoObra.Value;
n_Usuario := ADOQuery_SqlServerRel_Usuario.Value;
s_Fecha := ADOQuery_SqlServerRel_Fecha.Value;
s_Hora := ADOQuery_SqlServerRel_Hora.Value;
ADOQuery_SqlServer.Next;
if (n_Pregunta = ADOQuery_SqlServerRel_NumeroPregunta.Value) and
(n_Obra = ADOQuery_SqlServerRel_CodigoObra.Value) and
(n_Usuario = ADOQuery_SqlServerRel_Usuario.Value) and
(s_Fecha = ADOQuery_SqlServerRel_Fecha.Value) and
(s_Hora = ADOQuery_SqlServerRel_Hora.Value) and (Not
ADOQuery_SqlServer.Eof) Then
Begin
ADOQuery_SqlServer.Edit;
ADOQuery_SqlServerRel_Usuario.Value := 9;
ADOQuery_SqlServer.Post;
ADOQuery_Eliminar.Parameters[0].value:=n_Pregunta;
ADOQuery_Eliminar.Parameters[1].value:=n_Obra;
ADOQuery_Eliminar.Parameters[2].value:=n_Usuario;
ADOQuery_Eliminar.Parameters[3].value:=s_Fecha;
ADOQuery_Eliminar.Parameters[4].value:=s_Hora;
ADOQuery_Eliminar.ExecSQL;
n_Registros := n_Registros+1;
End;
ProgressBar1.StepIt;
End;

Any idea?

Thank

PTTK
"Kevin Frevert" <kevin@xxxxxxxxxxxxxxxxxxxxxxxx> escribió en el mensaje
news:42978208$1@xxxxxxxxxxxxxxxxxxxxxxxxx
> Sergio,
>
> Do you have too many columns? :) Seriously, what is the exact error?
>
> krf
>
> "Sergio Pottstock" <pttk@xxxxxxx> wrote in message
> news:42978041$1@xxxxxxxxxxxxxxxxxxxxxxxxx
> > Hi,
> >
> > When execute this instruction:
> >
> > ADOQuery_SqlServer.Edit;
> > ADOQuery_SqlServerRel_Usuario.Value := 9;
> > ADOQuery_SqlServer.Post;
> >
> > send one error message "too many columns........"
> >
> > Any idea
> >
> > PTTK
> >
> >
>
>


.

Relevant Pages

  • Error in post with ADOSQLServer
    ... When execute this instruction: ... send one error message "too many columns........" ... PTTK ... Prev by Date: ...
    (borland.public.delphi.database.ado)
  • Combo box for Searching
    ... the related record. ... record and gives an error because it will create a duplicate record. ... Regards John ... Prev by Date: ...
    (microsoft.public.access.formscoding)
  • Re: Error in post with ADOSQLServer
    ... > Yes is one table with 86.500 record!!, I need delete all duplicate record. ... SQL is complaining that it ... Maurice ... Prev by Date: ...
    (borland.public.delphi.database.ado)
  • Re: me.undo
    ... It appears that after entering the ... you are moving to the next new record by clicking a button ... the form to go to the duplicate record in the BeforeUpdate event. ... Prev by Date: ...
    (microsoft.public.access.modulesdaovba)