ejemplo de insert, drop, delete, update firebir + delphi

[darkbits]

Gracias Neftali por tu interes

tengo una aplicacion de venta de productos de PC

cuando realizo la venta de un producto en red de cualquier punto funciona OK
el problema es cuando realizo la venta del mismo producto en mas de 2 diferentes puntos las PC se quedan sin funcionar el sistema ( colgado del sistema) hasta presionar ctrl + alt+ sup y reiniciar y si vendo otro producto q no sea el mismo si funciona.

llege a la conclusion el sistema solo funciona para solo en 1 PC y no me funciona en red para varias PC

No puedo realizar la misma accion en mas de 2 o mas PC

ese es mi problem todos estan con firebird instalacion como servidor en windows XP y esta programado en XE2 con IBX

por ello busco ejemplos de programitas pequeños de (INSERT, DROP, DELETE, UPDATE,...) para ver como se hace y corregir.

Lo raro es que utilizo el mismo con db MYSQL y funciona de maravilla en una PC o en 3 o mas PC


este es el codigo donde se bloquea el sistema:

Código SQL [-]
   _DM.consulta1.SQL.Text:= 'select * From inalmacen Where id_inal='+idprod.text;
    _DM.consulta1.Open;
    _DM.consulta2.SQL.Text:= 'update INALMACEN set cantidad_inal=:auxcantidad_inal Where id_inal='+ idprod.text;
    _DM.consulta2.ParamByName('auxcantidad_inal').Value:=inttostr(strtoint(_DM.consulta1.FieldByName('ca  ntidad_inal').Value) - strtoint(cantidad.Text)) ;
    _DM.consulta2.ExecSQL; // ejecuo la consulta y  AQUI ES EL PROBLEMA SE QUEDA EN STOP CUANDO HAY MAS DE 2 PC
    _DM.consulta2.Close;

DATA Module dond esta la DB= _DM


gracias.

[TOPX]

Empezado por darkbits

busco ejemplos de programitas pequeños de (INSERT, DROP, DELETE, UPDATE,...) para ver como se hace

Tal vez los tutoriales creados por [Caral] le sean de ayuda. A saber:

• Cómo empezar con Firebird
• Comparativa IBX + Zeos + Firebird + Velocidad
• Comparativo ADO + Access / IBX + Firebird + Velocidad

-

[darkbits]

TOPX gracias por el Link
ya li visite la primera vez y llego a cumplir todo del tutorial, busco algun link de ejemplos firebird+ delphi si conoces algun estare agradecidor.

[TOPX]

Empezado por darkbits

busco algun link de ejemplos firebird+ delphi

No es sólo un documento, esos tres tutoriales tienen todo el código fuente; descárguelos todos por favor.

[Neftali [Germán.Estévez]]

Además de los comentarios y tutoriales a los que te han remitido, yo optaría (centrándome en el código que has puesto), por no mantener las dos consultas abiertas.
En general es una buena costumbre no mantener consultas abiertas más tiempo del necesario.

Por lo que veo, la primera consulta se usa para buscar un valor.
Una vez abierta, recoge ese valor en una variable y ciérrala. Pruébalo y ya dirás...

Código Delphi [-]
  _DM.consulta1.SQL.Text:= 'select * From inalmacen Where id_inal='+idprod.text;
  _DM.consulta1.Open;
  Value := _DM.consulta1.FieldByName('cantidad_inal').Value;
  _DM.consulta1.Close;
  ...

[darkbits]

hice el consejo y nada.

Código SQL [-]
      _DM.consulta1.SQL.Text:= 'select * From inalmacen Where id_inal='+ StringGrid1.Cells[1,stringGrid1.Row];
      _DM.consulta1.Open;
      _DM.consulta2.SQL.Text:= 'update INALMACEN set cantidad_inal=:auxcantidad_inal Where id_inal='+ StringGrid1.Cells[1,stringGrid1.Row];
      _DM.consulta2.ParamByName('auxcantidad_inal').Value:=inttostr(strtoint(_DM.consulta1.FieldByName('ca  ntidad_inal').Value) + strtoint(StringGrid1.Cells[5,stringGrid1.Row])) ;
      _DM.consulta1.Close;
      _DM.consulta2.ExecSQL;
      _DM.consulta2.Close;

encontre este detalle si pueden ayudarme:

tengo 10 monitores en stock si la PC1 realiza la venta de 1 Monitor con el codigo q pego arriba me muestra 9 monitores en stock.
pero si habro la aplicacion en otra PC2..a.. PC5 me muestra que tengo sigue 10 monitores a la venta si le digo q quiero vender 1 ahi esta el problema. se bloquea todo,.

entonces veo que le falta algo despues de
_DM.consulta2.ExecSQL;

[Neftali [Germán.Estévez]]

¿Estás haciendo algo con transacciones?
Lo he comentado antes. ¿Estás haciendo los Commit?

[Casimiro Noteví]

Yo creo que este tema es el mismo que este otro, allí te expliqué y te pregunté cosas, al igual que te están preguntando aquí... y no las contestas
Mejor voy a unir los dos hilos.

[darkbits]

no hay algunos ejemplos por ahi please para mi es mas facil ver como se hace

agradecido.