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

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

También hay que comentar que las acciones que pides (INSERT, DROP, DELETE, UPDATE,...) entiendo que son sentencias SQL, por lo tanto no dependen (casi nada) de los componentes que utilices y de la Base de Datos.

Si revisas ejemplos de SQL (aunque no sean IBX+FB) deberían servirte para saber cómo se utilizan.

[darkbits]

yo utilizo (INSERT, DROP, DELETE, UPDATE,...) para MYSQL en win XP como monousuario en red me funciona de maravilla

pero cuando utilizo en firebird 2.5 win Windows XP como monousuario tambien funciona de maravilla
cuando lo coloco en RED ahi se me cuelga cuando realizo la misma accion en 2 PC

estoy utilizando (INSERT, DROP, DELETE, UPDATE,...) para firebird
vi lo que me recomienda ecfisa y si voy a ese paso y realizo como dice el manual.

pero please necesito ejemplos firebir don Delphi si conocen algun LINK

[Casimiro Noteví]

¿No dijiste que usabas la versión de firebird "embebida"?, esa es monousuario.

[darkbits]

en el servidor XP eh utilizado firebird Instalacion completa
en las demas PC XP utilice firebird "embebida" pero me recomendaron utilizar Instalacion Completa como el servidor
y sigo con el problema

llego a la conclusion q mi problema esta en mi codigo

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

Empezado por darkbits

...pero cuando utilizo en firebird 2.5 win Windows XP como monousuario tambien funciona de maravilla
cuando lo coloco en RED ahi se me cuelga cuando realizo la misma accion en 2 PC

¿Puedes explicar un poco con más detalle, qué significa "se me cuelga"?
Sin tener en cuenta otros datos, eso parece tema de transacciones y bloqueos, pero das pocos datos del problema.
¿Puedes describirlo mejor y poner algo de código?

[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;
  ...