Como capturar una variable de Firebird en Delphi

[Casimiro Noteví]

Hola, te recomiendo que uses parámetros.

Código Delphi [-]
IBQuery1.Close();
IBQuery1.SQL.Text := 'Select Sum(monto) from Montos WHERE NOMBRES = :nombre AND CAST(FECHA as DATE) = CURRENT_DATE';
ibquery.params[0].asstring := edit1.Text;
IBQuery1.ExecSQL;
Monto := IBQuery1.Fields[0].AsInteger;
ShowMessage(InttoStr(Monto));

Y recuerda usar etiquetas cuando pongas código. Bienenido a clubdelphi

[Ncvg]

Empezado por Casimiro Notevi

Hola, te recomiendo que uses parámetros.

Código Delphi [-]
IBQuery1.Close();
IBQuery1.SQL.Text := 'Select Sum(monto) from Montos WHERE NOMBRES = :nombre AND CAST(FECHA as DATE) = CURRENT_DATE';
ibquery.params[0].asstring := edit1.Text;
IBQuery1.ExecSQL;
Monto := IBQuery1.Fields[0].AsInteger;
ShowMessage(InttoStr(Monto));

Y recuerda usar etiquetas cuando pongas código. Bienvenido a clubdelphi

Buenas gracias por la bienvenida y el consejo me es de mucha ayuda encontrar un lugar donde pueda consultar y ser ayudado, acabo de arreglarlo a algo asi.

Código Delphi [-]
IBQuery1.Close();
IBQuery1.Open();
IBQuery1.SQL.Text := 'Select Sum(monto) from Montos WHERE NOMBRES = :nombre AND CAST(FECHA as DATE) = CURRENT_DATE';
ibquery1.params[0].asstring := ENOMBRE.Text;
IBQuery1.ExecSQL;
Monto := IBQuery1.Fields[0].AsInteger;
ShowMessage(InttoStr(Monto));

Pero ahora me aparece el siguiente error 'Empty SQL Statement' probe quitando el IBQuery.Open(), pero me aparece el error 'Use open for a select Statement'. a que se puede deber.


Lo uso en SQL y me da un solo dato por lo que la columna 0 me debería devolver ese dato, que puede estar mal?

[Casimiro Noteví]

Código Delphi [-]
IBQuery1.Close();
// IBQuery1.Open();

Quita esa línea.

[Ncvg]

Ahora me aparece 'Use Open for a Select Statement' dejo el error en adjunto

No se a que se puede deber.

[Casimiro Noteví]

Quería decirte que quitaras el .Open de ahí, pero que lo pusieras en lugar del ExecSql.

Código Delphi [-]
IBQuery1.Close();
IBQuery1.SQL.Text := 'Select Sum(monto) from Montos WHERE NOMBRES = :nombre AND CAST(FECHA as DATE) = CURRENT_DATE';
ibquery1.params[0].asstring := ENOMBRE.Text;
IBQuery1.Open();
Monto := IBQuery1.Fields[0].AsInteger;
ShowMessage(InttoStr(Monto));

El Open es cuando se hace Select. El ExecSql cuando es delete, insert, update.

[Ncvg]

Acaba de funcionar, te agradezco mucho, no conozco mucho de Delphi pero esto me ayuda a aprender mucho, deje una recomendación de reputación en tu nombre, gracias

[Casimiro Noteví]

Pues mira este hilo.
De ahí te recomiendo La cara oculta de Delphi 4, que está enfocado principalmente a bases de datos.
Aparte, en nuestro FTP encontrarás gigas de información, cursos, programas, componentes, libros, ejemplos, etc.