Problema con un insert

[Aleh]

Me gustaria saber si hay alguna forma de evitar este error:

SQL: cursor not returned from query

OCurre cuando realizo un insert mediante un SQLQuery (dbexpress), el codigo que hago es el siguiente:

Código Delphi [-]
SQLadd.Open;
    SQLadd.SQL.Clear;
    SQLadd.SQL.add('update stocks set cantidad=cantidad+'+cantidad.text);
    SQLadd.SQL.add('where sucursal='''+GRIDStocks.DataSource.DataSet.FieldByName('sucursal').AsString+'''');
    SQLadd.SQL.add('and telefono='''+GRIDStocks.DataSource.DataSet.FieldByName('telefono').AsString+'''');
    SQLadd.Active;
    CDSadd.Active:=true;

El caso es que inserta correctamente, pero sale esa ventana diciendo que no devolvio nada, ¿¿¿no se puede evitar???
También me ocurre con deletes y updates...

[[enecumene]]

Hola, en vez de:

Código Delphi [-]
SQLadd.Active;

no debería ser?:

Código Delphi [-]
SQLadd.ExecSQL;

y que viene siendo "CDSAdd".

Saludos.

[*Caro*]

Hola, en vez de utilizar SQLadd.Active utiliza SQLadd.ExecSQL.

Saluditos

[Aleh]

Muchas gracias a los dos, ya funciona perfectamente!
ADemás me habéis solucionado un par de dudas que también tenía. GRACIAS!!

[*Caro*]

Empezado por enecumene

y que viene siendo "CDSAdd".

Enecumene me has ganado . CDSAdd parece que es su ClientDataSet, pero no creo que sea necesario en el codigo que tiene Aleh.

Saluditos

[[enecumene]]

Empezado por Caro

Enecumene me has ganado . CDSAdd parece que es su ClientDataSet, pero no creo que sea necesario en el codigo que tiene Aleh.

Saluditos

...Pues concuerdo contigo Caro de que no es necesario en el código, por algo pregunté, pues me dio cierta confusión .

Aleh, un pequeño Tips sobre sentencias SQL con delphi, Cuando se trata de sentencias INSERT, UPDATE y DELETE se utiliza la propiedad "ExecSQL" del Dataset y en la sentencia SELECT se utiliza "Open" y/o "Active" aunque particularmente recomiendo lo primero.

Saludos.

[Aleh]

No es necesario para es acción, pero si lo necesito para otros casos, jejeje. En cualquier caso sigo teniendo un problema despues de una primera insercion, ¿¿tengo que actualizar alguna query o algo??

P.D.: quiero decir que la segunda insercion falla y da el mismo error.

[[enecumene]]

Empezado por Aleh

No es necesario para es acción, pero si lo necesito para otros casos, jejeje. En cualquier caso sigo teniendo un problema despues de una primera insercion, ¿¿tengo que actualizar alguna query o algo??

P.D.: quiero decir que la segunda insercion falla y da el mismo error.

Vale, y cúal es la segunda inserción? .

[Aleh]

Pues mira, tengo un EDIT, y meto un numero oK???, pulso el boton y se realiza la insercion en la BD.
Pero cuando voy a meter otro numero, la segunda vez falla. Probablemente no libero algo bien, aqui dejo el codigo del boton al hacer click:

Código Delphi [-]
    SQLadd.Open;
    SQLadd.SQL.Clear;
    SQLadd.SQL.add('update stocks set cantidad=cantidad+'+cantidad.text);
    SQLadd.SQL.add('where sucursal='''+GRIDStocks.DataSource.DataSet.FieldByName('sucursal').AsString+'''');
    SQLadd.SQL.add('and telefono='''+GRIDStocks.DataSource.DataSet.FieldByName('telefono').AsString+'''');
    SQLadd.ExecSQL();
    SQLadd.Close;
    SQLStocks.Active;
    CDSStocks.Refresh;
    GRIDStocks.refresh;
    Showmessage('Se han añadido '+cantidad.text+' unidad/es del teléfono seleccionado en la sucursal seleccionada.');

Lo de cerrar lo puse después, pero no evita el problema.

[[enecumene]]

Código Delphi [-]
 SQLadd.Close;
    SQLadd.SQL.Clear;
    SQLadd.SQL.add('update stocks set cantidad=cantidad+'+cantidad.text);
    SQLadd.SQL.add('where sucursal='''+GRIDStocks.DataSource.DataSet.FieldByName('sucursal').AsString+'''');
    SQLadd.SQL.add('and telefono='''+GRIDStocks.DataSource.DataSet.FieldByName('telefono').AsString+'''');
    SQLadd.ExecSQL;
    CDSStocks.Refresh;
    GRIDStocks.refresh;
    Showmessage('Se han añadido '+cantidad.text+' unidad/es del teléfono seleccionado en la sucursal seleccionada.');

Saludos.

[Aleh]

Ahora si que va perfecto, muchas gracias, de verdad!