Error creating cursor handle

[rodocucea]

hola a todos, este es el codigo

query1.Active:=false;
query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('UPDATE dbprovee SET Activo=false where codigo='+#39+dbedit1.text+#39);
showmessage(query2.SQL.Text); // para mostrar la consulta
try
begin
query2.open;
{Query2.ExecSQL;}
Query2.Active:=true;
end;
except
showmessage('no sirvio');
end;

El problema es que me marca el error creating cursor handle en el open o en ExecSQL; que puedo hacer para que me realice el update. ??

[[Lepe]]

Bienvenido a ClubDelphi rodocucea

¿Qué base de datos usas y qué componentes? (access con ADO?).

Por regla general debes usar esto:

Código Delphi [-]
query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('UPDATE dbprovee SET Activo=false where codigo='+QuotedStr(dbedit1.text);
Query2.ExecSQL;
if Query2.RowsAffected = 0 then
 ShowMessage('Funcionó pero no encontró registros para actualizar.')
else
  ShowMessage(inttostr(query2.RowsAffected)  + ' registros afectados.');

Query2.Open es idéntico a Query2.Active := true
Query2.Close es idéntico a Query2.Active := false;

Query2.ExecSql se usa para sentencias del tipo UPDATE, DELETE, CREATE,... mientras que
Query2.Open se usa para sentencias SELECT

No puedes incluir un .Open (o Active := true) con un ExecSql nunca.

Tu código es algo confuso, precisamente por las pruebas que has hecho, inténtalo así.

Saludos

Saludos

[rodocucea]

tengo una duda acerca de como asignar una consulta de un query a un simple y ordinario combobox, o si supieran como en un stringgrid usar una sola celda para un combobox de una base de datos.

gracias

[[Lepe]]

Mostrar un combo en Stringgrid

Para añadir los registros al combo, tienes que hacerlo a mano, recorrer el query e ir añadiendolos a los Items del ComboBox, o usar un TDBLookUpCombo que ya lo hace.

Saludos