Porque no viene el Dataset en Delphi for PHP 1.0 ????

[AGAG4]

Mira, tengo un formulario donde muestro los datos de X cliente, por ejemplo:

Código -> Campo donde se capturará el código del cliente

Nombre,
Dirección,
RFC,
Población,

Dias de Credito,
Limite de Credito

Los 2 ultimos campos son editables es decir solo se pueden modificar, tengo un boton que se llama Consultar, dentro de ese boton tengo lo siguiente para buscar el código del cliente:

Código PHP:

 
  //Armamos Select
  $Sql='SELECT NUMCLI,NOMCLI,DIRCLI,RFCCLI,CPCLI,POBCLI,
          DIASCRED,LIMITECR FROM CLIENTES';
  $this->ibQryCliente->Sql=$Sql;
  $this->ibQryCliente->Filter=" NUMCLI >= ".$this->edNumCli->Text." 
            and NUMCLI <=".$this->edNumCli->Text."";
 
  //Preparamos Query
  $this->ibQryCliente->Prepare();
  
  //Reabrimos Query
  $this->ibQryCliente->close();
  $this->ibQryCliente->open();
 
  //Mostramos Datos del Cliente
  $this->edNomCli->Text = $this->ibQryCliente->Fields['NOMCLI'];
  $this->edDirCli->Text = $this->ibQryCliente->Fields['DIRCLI'];
  $this->edPobCli->Text = $this->ibQryCliente->Fields['POBCLI'];
  $this->edRFCCli->Text = $this->ibQryCliente->Fields['RFCCLI'];
  $this->edCPCli->Text  = $this->ibQryCliente->Fields['CPCLI'];
  $this->edDiasCred->Text      = $this->ibQryCliente->Fields['DIASCRED'];
  $this->edLimiteCredito->Text = $this->ibQryCliente->Fields['LIMITECR']; 


Hasta aqui vamos bien, el Query apunta al registro del cliente, ahora modificar los ultimos 2 campos, como puedo decirle al Query que me guarde las modificaciones ????

[AGAG4]

Ya probe el siguiente código basandome de un ejemplo del Sr. Andreano y no me jala, no marca error, simplemente no hace nada:

Código PHP:

  $this->ibdbCXC->BeginTrans();

  $this->ibQryCliente->SQL = 
"UPDATE CLIENTES SET DIASCRED =".$this->edDiasCred->Text."   
WHERE  NUMCLI = ".$this->edNumCli->Text."";

  $this->ibQryCliente->open();
  $this->ibQryCliente->close();

  $this->ibdbCXC->CompleteTrans(); 


Aclaro, el ejemplo del Sr. Andreano usa un Insert into.. para insertar un registro, y no usa el BeginTrans, pero también ya lo probe sin usarlo.

[AGAG4]

Ya he investigado en la pagina de codegear, he visto ejemplos de esa pagina, he visto ejemplos que vienen al instalar el Delphi for php y no consigo Modificar un registro de una tabla de firebird 1.5, ya revise la ayuda que trae Delphi PHP y no vienen ejemplos, alguien sabe ????

[donald shimoda]

Empezado por AGAG4

Ya probe el siguiente código basandome de un ejemplo del Sr. Andreano y no me jala, no marca error, simplemente no hace nada:

Código PHP:

  $this->ibdbCXC->BeginTrans();

  $this->ibQryCliente->SQL = 
"UPDATE CLIENTES SET DIASCRED =".$this->edDiasCred->Text."   
WHERE  NUMCLI = ".$this->edNumCli->Text."";

  $this->ibQryCliente->open();
  $this->ibQryCliente->close();

  $this->ibdbCXC->CompleteTrans(); 


Aclaro, el ejemplo del Sr. Andreano usa un Insert into.. para insertar un registro, y no usa el BeginTrans, pero también ya lo probe sin usarlo.

Estas realizando un update, no un insert. Sino existe el registro no hará nada!

[AGAG4]

He compilado por partes para saber que valor tiene edNumCli->text y tiene el código a buscar para modificar y el edDiasCred->Text también toma el valor a modificar, por lo tanto, no se que pasa ó que me falta por hacer

Y eso de que si no esta el registro no hace nada mi chavo, eso ya lo sé, es por eso que ya he compilado por partes para mostrar los valores que toma....

[donald shimoda]

Empezado por AGAG4

He compilado por partes para saber que valor tiene edNumCli->text y tiene el código a buscar para modificar y el edDiasCred->Text también toma el valor a modificar, por lo tanto, no se que pasa ó que me falta por hacer

Y eso de que si no esta el registro no hace nada mi chavo, eso ya lo sé, es por eso que ya he compilado por partes para mostrar los valores que toma....

Que bueno que lo sepas, te recomiendo que cuando publiques código publiques el que corresponda con lo que quieres hacer de modo que el que lee pueda ayudarte, no somos adivinos y el código que publicaste no hace lo que quieres que haga, por eso lo comente con el fin de ayudarte por si ahi estaba tu error.

Por otro lado no se para que te complicas tanto, para ver si el SQL esta funcionando coloca una sentencia completa en texto, sin agregado de variables, y prueba con el método execute, una sentencia que no devuelve datos no se abre ni se cierra, eso es para conjuntos de datos.

Por si no queda claro lo que digo:

Código PHP:

 $this->ibdbCXC->BeginTrans();

  $this->ibQryCliente->SQL = 
"INSERT INTO CLIENTES 
   (DIASCRED)
  VALUES
   ('01/01/2008')
 FROM
    CLIENTES";

  $this->ibQryCliente->execute();

  $this->ibdbCXC->CompleteTrans(); 


Por cierto no tengo Delphi for php a mano, por tanto no lo he probado.

Saludos

[AGAG4]

Empezado por donald shimoda

Que bueno que lo sepas, te recomiendo que cuando publiques código publiques el que corresponda con lo que quieres hacer de modo que el que lee pueda ayudarte, no somos adivinos y el código que publicaste no hace lo que quieres que haga, por eso lo comente con el fin de ayudarte por si ahi estaba tu error.

Por otro lado no se para que te complicas tanto, para ver si el SQL esta funcionando coloca una sentencia completa en texto, sin agregado de variables, y prueba con el método execute, una sentencia que no devuelve datos no se abre ni se cierra, eso es para conjuntos de datos.

Por si no queda claro lo que digo:

Código PHP:

 $this->ibdbCXC->BeginTrans();

  $this->ibQryCliente->SQL = 
"INSERT INTO CLIENTES 
   (DIASCRED)
  VALUES
   ('01/01/2008')
 FROM
    CLIENTES";

  $this->ibQryCliente->execute();

  $this->ibdbCXC->CompleteTrans(); 


Por cierto no tengo Delphi for php a mano, por tanto no lo he probado.

Saludos

Si fuistes tan observador creo que te distes cuenta que soy novato en delphi for php, asimilo que es dephi pero ese es mi problema que tengo que pensar que estoy interactuando con php aunque la interfaz sea delphi, y creo que fui claro con mis comentarios de arriba si el código que puse esta mal pues por eso lo publique para ver si alguien me dice en que estoy mal, y veo que tu percepción "No Fue Buena" Mi Chavo, ya encontre la solución de mi problema, estaba bien lo que hacia solo que antes de aplicar la sentencia SQL del Update tengo que cerrar el Query:
Ejemplo:

Código PHP:

   //CERRAMOS
   $this->ibQryCliente->close();

   $this->ibQryCliente->SQL = 
   "UPDATE CLIENTES SET DIASCRED =".$this->edDiasCred->Text."   
   WHERE  NUMCLI = ".$this->edNumCli->Text."";

   //ABRIMOS
   $this->ibQryCliente->open(); 


Con tan solo cerrar, tomar sentencia y abrir query ya modifica el registro,
ACLARO:

Sobre el comentario de:
"ESO DE QUE NO SOMOS ADIVINOS"

Alli si te pasastes viejo, creo que he sido my claro en lo que he comentado, mi problema era de que no podía actualizar X registro, si hubieras sido tan observador hubieras encontrado la solución, asi es que no seas tan "drastico" en ayudar a esta comunidad, no todos pensamos igual que tu, a mi solo me faltaba un pequeño empujon, pero gracias a que le estuve insistiendo, haciendo pruebas, moviendo código, etc. etc. pude encontrar la solución....

Aclarando el otro comentario:
"y el código que publicaste no hace lo que quieres que haga,"

Si estas tan seguro de que no hace lo que quiero yo que haga porque no fuistes tan obervador de decirme pon el Close primero y después el open, asimilo que tu sabias la solución del problema, pues veo que no.

P.D. No quiero hacer grilla, ni mucho menos ser tan grosero, pero no me gusta que haya gente que nos vea como pequeños enanos que no sabemos nada, todos empezamos desde abajo.

A pesar de todo....

Gracias por tu ayuda....

[donald shimoda]

Empezado por AGAG4

P.D. No quiero hacer grilla, ni mucho menos ser tan grosero, pero no me gusta que haya gente que nos vea como pequeños enanos que no sabemos nada, todos empezamos desde abajo.

A pesar de todo....

Gracias por tu ayuda....

Debe ser como tu dices, desde ya sabes que contarás con mi ayuda cuando la necesites. Veo que lo de la frase de tu firma lo dices con conocimiento de causa.

Suerte.