Resultado de un Execute con DBxpress
 

Buenos dias, ha ver si me podeis hechar una mano.

Como en cualquier programa, se usan sentencias sql para trabajar con firebird, por ejemplo

Código Delphi [-]
function TFormBBDD.CreaTabla(tabla, sql: string): boolean;
var
  resultado: boolean;
begin
  Result := False;
  if BBDDconectadoBase = False then
    Exit;
  if ExisteTabla(tabla) = True then
    Exit;
  try
    SQLConnection.ExecuteDirect(sql);
    BBDDstringMonitor := 'BBDD-Tabla ' + tabla + ' creada';
    MonitorBBDD(BBDDstringMonitor);
    resultado := True;
  except
    on E: Exception do
    begin
      resultado := False;
      BBDDstringMonitor := 'BBDD-No se ha creado o alterado la tabla ' + tabla +
                           '. Error SQL' + #13 + #10 + E.Message;
      Application.MessageBox(PChar(BBDDstringMonitor), 'Atencion', MB_OK);
      MonitorBBDD(BBDDstringMonitor);
    end;
  end;
  Result := resultado;
end;

Cuando se genera un error en la sentencia, except me devuelve el error y tal, pero, si por ejemplo la sentencia sql es
'UPDATE CIUDADES SET ALCALDE='MALO' WHERE SUELDO>10000'
¿Como se cuantas filas se ven afectadas? parece que hay un componente TSQLDataSet.ExecSQL que devuelve el resultado sobre el numero de filas afectadas, pero no encuetro la solucion usando DBxExpres (dbxfb4d14.dll y fbclient.dll)

¿Alguna idea?

Gracias

Siempre puedes lanzar la sentencia equivalente para contar, antes del UPDATE (con el mismo WHERE):

Código SQL [-]
  SELECT COUNT(clave_primaria) AS CUENTOS WHERE SUELDO>10000

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?:D

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.

Supongo que en ese caso dependería de si el SGBD devuelve esa información y si los componentes permiten recuperarla.
Siento no poder ayudarte más.

Gracias neftali, creo que los componentes dbxpress no devuelven nada, segun lo que leido en los manuales, por eso preguntaba, sniff:(

Otra opción es hacerlo todo por procedimientos almacenados, y que estos procedimientos tengan un parámetro de salida con el resultado

Por dar "soluciones" que no quede :P

Me has "pillado", y eso ¿como se hace ozswizzard?

La verdad es que no he pensado muy bien mi mensaje anterior, estaba en plan coña pero me imagino lo siguiente:

Los motores de bases de datos más usados y con cierta base para plantear lo que se quiere hacer (sql server, mysql, firebird, oracle, etc) sueles tener una ejecución de sentencias por variable de tipo cadena, es decir, una cosa así:

Código SQL [-]
Exec_Sql "update tabla where (condición)"

Y, seguramente, desde el propio motor debe ser relativamente fácil saber que devuelve esa ejecución.

Esa es la idea gorsso modo

Ese es el problema, que no se como recuperar esa informacion de estado.

Mira a ver si te vale este enlace, en lo que respecta a row_count

http://www.firebirdmanual.com/firebi...es-firebird/40

Puedes preparar un procedimeinto almacenado que te devuelva el nº de registros afectados.

Seguramente puedas hacerlo desde el excute script añadiendole la sentencia que devuelve el nº de registros afectados.

Un saludo

ROW_COUNT


DESCRIPCION:La variable de contexto ROW_COUNT contiene el número de filas afectadas por la declaración más reciente DML (INSERT, UPDATE, DELETE, SELECT o FETCH) en el gatillo actual, el procedimiento almacenado o bloque de ejecución.
TIPO RESULTADO: INTEGER
EJEMPLO:
update Figures set Number = 0 where id = :id; if (row_count = 0) then insert into Figures (id, Number) values (:id, 0);
FUNCIONAL EN: PSQL
AGREGADA EN: Versión Firebird 1.5
MODIFICADA EN: Versión Firebird 2.0

A ver si leemos la documentación ;)

A ver si la ponen bien para que la leamos. ;)

Saludos

No había visto tu respuesta :confused:

PEnsaba que te referías a mi comentario, por eso he respondido. ;)

De todas maneras, el link que pongo es a la página oficial de Firebird, de ahí que me sorprenda que no esté toda la información que tú aportas. Es importante el matiz de los valores que devuelve row_num para ver que no le vale a nuestro amigo.

Saludos

La info es de aquí.

Creo que puede usarlo mediante un "stored procedure"

Esto...., una cuestion a los espertos,

Cuando ejecutais una sentencia cualquiera en sql, os fiais siempre de que ha hecho lo que quereis, o teneis algun truco, quiero decir.

Si ejecuto SQLconnection.execute('SELECT * FROM CIUDADES', nil, @DataSet) en DataSet tengo el resultado de la consulta, aunque sea 0, pero
si ejectuto SQLconnection.executedirect('UPDATE CIUDADES SET ALCADE='MALO' WHEN SUELDO>10000'), ¿como sabeis que ha hecho algo o lo ha hecho bien?
yo suelo poner un try, except pero solo funciona cuando la setencia sql esta mal escrita, pero si esta bien y "no hay ningun alcalde malo" no me entero de que o no ha hecho nada o de que todos los alcaldes son malos.

Vale, si, podria hacer un count previo y otro posterior, pero, seguro que hay algo que resuelva esta cuestion:confused:

PD: LJM (Leete el Jodido Manual), ya si ya me he estudiado "parte" del manual y hasta tengo varios libros de sql, aunque, ¡os necesitooooo:D!

Porque lo hace bien, no hay duda, hace exactamente lo que se le dice.
Otra cosa distinta es que no haya hecho lo que tú esperabas, pero eso ya es fallo de uno.

Correcto casimiro, firebird es muy bueno, reconozco que no soy experto en sql, uso sql (bueno firebird) desde hace unos pocos años y siempre, siempre me he fiado de el y nunca me ha fallado.

Pero estaba hasta los webs de usar programas de terceros para ver el contenido de tablas, borrar registros "sucios", cambiar un valor para hacer unas pruebas, etc.
Asi que desde hace un par de proyectos incluyo un pequeño manejador de la tablas de la base de datos, donde puede añadir tablas, indices, campos, cambiar campos, etc. y ahora le he añadido ese memo para hacer cositas, tipo filtro para ver los registros pero solo de una fecha o borrar algo, etc. y es ahora cuando he visto que estaria bien si se pudiera tener ese "log" de resultado.

¿Como haceis vosotros? usais programas tipo IBQ u os lo "currais a pelo".

¿Por preguntar eh?:D

En todo caso, conectas con ibexpert o flamerobin... y listo. ¿Para qué complicarse la vida? :)

No me jo...:rolleyes: no me digas que me estoy complicando la vida usando dbxpress, era con el que empece (creo que por dephi 2005) despues de abandonar las tablas BDE y me costo encontrar la libreria para delphi 2010, porque creo, ya no me acuerdo, que en alguna version delphi se desprendio de los componentes dbxpress para atacar a interbase/firebird y me tuve que "buscar la vida" y encontrarlos "por ahi".

Si tuviera todo el tiempo del mundo...igual me leia todos los mensajes de las zonas de este foro y a lo mejor, encontraria el componente ideal, pero casi siempre es mejor usar lo que uno "domina", pero acepto sugerencia para cambiar.:D