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

Complicarse la vida por intentar crear un programa similar a IBExpert con el mismo propósito que los que usamos IBExpert: administrar nuestras bases de datos. Me parece que a eso se refiere Casimiro.

Por cierto, es biblioteca, no librería. Y "a ver", no "ha ver". ;)

Hola Al, no creo que hacer un formulario para crear tablas y campos sea complicarse la vida, eso esta bien, no se pretende hacer algo igual sino algo que me sirva mejor, mas rapido y en cualquier parte, y algo propio, algo mas controlado.
He echado un vistado a la pagina de HK software, tendre que mirarlo mas a fondo.

En cuanto a "libreria", bueno, pues esta bien que defiendas el termino correcto (es wikiopedia dice que lo correcto es biblioteca, pero que la RAE admite los dos), pero vas a tener que luchar mucho para quitarnos a todos la mania adquirida durante años y por muchas personas, es casi como queder que no adoptemos aglicismos que estan por todas partes, personalmente prefiero los terminos castellanos/españoles/latinos.

En cuanto "ha ver", Usted perdone;), tengo los dedos frios y a veces son mas rapidos que la vista.
Nota: no pongo acentos porque no quiero dejarme ninguno, y estoy perdiendo la constumbre de poner la primera mayuscula es nombre propios, si es que dejeneramos poco a poco...:D

Dbexpres está bien, quería decir lo que ha aclarado Al González, que no vale la pena hacer un programita para crear tablas, campos y esas cosas, salvo que sea eso lo que quieres hacer. Pero para mantener una base de datos es mejor usar algo que ya se sabe que funciona y está creado para ello.
Pero si lo haces por aprender, pues vale, está bien, por supuesto.

Por cierto, yo también soy de "biblioteca". Hace muuuuuuuchos años trabajé en una librería, de las que venden libros, y no era una biblioteca :D

Por eso mismo no te vale la pena perder el tiempo creando la rueda :)

No si por aprender no es, aunque tambien, son necesidades que le van surgiendo a uno, ya comento que uso para esos menesteres IBQ, pero la verdad no me gusta dejar programas de terceros en la instalaciones de los clientes, prefiero tenerlo "todo controlado;)" en mi aplicacion.

Lo que acostumbro a hacer es una opción donde se abre una ventanita y puedo ejecutar sentencias sql, aunque para los usuarios "listillos" suele ser más peligroso que un "primate con arma de fuego repetidora" :)

Que tal,
Creo estan tratando de matar una mosca con un cañon:

Código Delphi [-]
TSQLQuery QDataset
if QDataset.RowsAffected > 0
....

Si que es peligroso, si, yo lo protejo con clave privada.
Pero, ¿no te interesa saber el resultado de la ejecucion por ejemplo de un DELETE?

No.


:p
Desde que uso delphi+firebird (1998) nunca me ha hecho falta esas cosas :)

#:-)# Eso pasa por no leer la documentación.

No que va, solo queremos saber el resultado de una accion,:D

Ah bueno yo pensaba que andaban de cacería ... :rolleyes:

Eso es lo curioso. :)

Nuestro atolondrado amigo César ya había comentado algo sobre la alternativa de usar un componente TSQLXXX, que como todos los TSQLXXX nativos forman parte de dbExpress (o DBX), pero al parecer él no lo ve así:
Y es que la propiedad RowsAffected que juanelo atinadamente mencionó, viene a ser lo mismo que tomar el resultado devuelto por el método ExecSQL:
Saludos. :)

Me da la impresión de que, quizá, estás malinterpretando la consulta. Vamos, es que me sorprende esta afirmación.

Claro que muy posiblemente no sea lo usual y es más para un software de administración de bases que para un sistema final, pero este tipo de resultados en ocasiones son bienvenidos. No pocas veces me ha sucedido estar actualizando algo y notar que no se afectó ninguna fila, lo que me lleva a darme cuenta de que algo andaba mal con mi código SQL, por dar un ejemplo.

// Saludos

Creo que sí lo había entendido bien :)
Nunca me ha hecho falta crear algo en mi programa para comprobar algo así, ya que en el momento de desarrollo y pruebas uso flamerobin/ibexpert.
Yo entiendo que cesarsoftware quiere tener una especie de ibexpert integrado en su programa, hecho por él mismo. Y eso es lo que digo que nunca me ha hecho falta.
:)

Al, no se si quieres que me mosquee contigo o que te ignore:mad:, al menos lo de "atolondrado" te lo podias guardar para ti, al igual que tus correcciones sobre "biblioteca" y "ha ver", si vas a aportar algo positivo sobre delphi hazlo, parece ser que no soy el unico que busca una respuesta en una pregunta.

Y la respuesta es esta, porque al menos procuro trabajar y buscar la solucion mientras converso en este post

Código Delphi [-]
procedure TFormConfTablas.BotonSQLClick(Sender: TObject);
var
  sql, msg: string;
  SQLQuery: TSQLQuery;
begin
  BotonSQL.Enabled := False;
  sql := MemoSQL.Text;
  SQLQuery := TSQLQuery.Create(nil);
  try
    SQLQuery.SQLConnection := FormBBDD.SQLConnection;
    SQLQuery.CommandText := sql;
    SQLQuery.ExecSQL(True);
    Application.MessageBox(PChar(IntToStr(SQLQuery.RowsAffected) +
                           ' Filas afectadas'), PChar(String(NombrePC)), MB_OK);
  except
    on E: Exception do
    begin
      msg := E.Message;
      Application.MessageBox(PChar(msg), 'Atencion', MB_ICONERROR);
    end;
  end;
  SQLQuery.Free;
  BotonSQL.Enabled := True;
end;

Gracias juanelo, ahi tenias la respuesta, el "problema" es que siempre he usado TSQLDataSet y no TSQLQuery, a partir de ahora igual cambio. Gracias de nuevo.

Hombre me da gusto que no hayas tenido que montar el lanza cohetes, aunque veo que ganas no te faltan ... (broma) :D

Supongo que me meto donde no me llaman, Cesar, pero creo que Al en ningún momento tuvo intención de ofenderte. No sé de donde eres pero lo mismo en México la palabra "atolondrado" no tiene connotaciones tan negativas, o se ha expresado mal o pensaba que había puesto suficientes emoticonos como para que se entienda el buen rollo.

Sobre las correcciones, hay gente que tienen ciertas costumbres.

Lo mismo hablo de más, pero es la sensación que a mí me ha dado, que no iba con mala fe.

Un saludo

Roman, "lo normal" es no tener que hacer un mini "ibexpert" dentro de una aplicacion, si la base de datos esta predefinida, pero por la naturaleza de algunas aplicaciones, las bases de datos son dinamicas, por ejemplo, cuando un cliente compra un robot nuevo y lo asigna a mi aplicacion, se crean tablas para ese elemento y se pueden crear registros de toda naturaleza, sobre todo al principio y es mas comodo poder limpiar o borrar una tabla desde la propia aplicacion.
Con esta solucion siempre podemos saber las filas afectadas y con un except y E.message el resultado negativo a una consulta.
El saber no ocupa lugar, bueno unas pocas lineas de codigo:D