Ver Mensaje Individual
  #3  
Antiguo 20-03-2013
Avatar de cesarsoftware
cesarsoftware cesarsoftware is offline
Miembro
 
Registrado: nov 2006
Posts: 241
Reputación: 18
cesarsoftware Va por buen camino
Si, es un buen truco, pero a la pregunta formulada no hay respuesta, es decir dbxexpress no devuelve un resultado salvo en
Código Delphi [-]
    FormBBDD.SQLConnection.Execute(sql, nil, @DataSet);

Por preguntar ¿eh?

Pero, ¿Que pasa si la sentencia sql viene de un campo TMemo?
Vamos, lo que he hecho ha sido porner un TMemo y un boton, entonces queda
Código Delphi [-]
procedure TFormConfTablas.BotonSQLClick(Sender: TObject);
var
  sql, msg: string;
begin
  sql := MemoSQL.Text;
  try
    FormBBDD.SQLConnection.ExecuteDirect(sql)
  except
    on E: Exception do
    begin
      msg := E.Message;
      Application.MessageBox(PChar(msg), 'Atencion', MB_ICONERROR);
    end;
  end;
end;
En realidad no se que sentencia voy a escribir, esto lo hago para borrar registro "sucios", etc.
__________________
Disfruta de la vida ahora, vas a estar muerto mucho tiempo.

Última edición por cesarsoftware fecha: 20-03-2013 a las 12:34:07.
Responder Con Cita