Error en Sintaxis Invisible

[[Caral]]

Hola
Cuando se inserta, se actualiza etc, no se abre la tabla o el query, se ejecuta la accion con ExecSQL.
No estoy seguro que en ZEos sea asi, pero casi podria estar seguro que de no serlo habra un equivalente:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
Var
  Codigo:String;
begin
  DataSourceBD.Enabled:= False;
  ZQueryBD.Close;
 //  ZQueryBD.SQL.Clear; no se necesita limpiar si se usa text, solo con add.
  ShowMessage('Insertamos');
  ZQueryBD.SQL.Text:= 'Insert Into RFac (Monto, Fecha, Hora) Values ('+Monto+', Date(NOW()), Time(NOW()))';
  ShowMessage('Escrito');
  ZQueryBD.ExecSQL;  // se ejecuta la accion
  ShowMessage('Insertado');
  ZQueryBD.Close;
 // ZQueryBD.SQL.Clear;
  ZQueryBD.SQL.Text:= 'Select Max(Codigo) as Codigo From RFac';
  ZQueryBD.Open;
  Codigo:= ZQuery1.FieldByName('Codigo').AsString;
  ZQueryBD.Close;
 // ZQueryBD.SQL.Clear;
  ZQueryBD.SQL.Text:= 'Create Table F'+Codigo+' (Articulo Char(48), Cantidad Integer, Precio Decimal)';
  ZQueryBD.Open;
  ZQueryBD.Close;
 // ZQueryBD.SQL.Clear;
  ZQueryBD.SQL.Text:= 'Insert Into F'+Codigo+' Values (Select * From Factura)';
  ZQueryBD.ExecSQL; // se ejecuta
  ZQueryBD.Close;
 // ZQueryBD.SQL.Clear;
  ZQueryBD.SQL.Text:= 'Insert Into F'+Codigo+' (Articulo, Monto) Values (Total:, '+Monto+')';
  ZQueryBD.ExecSQL;  // se ejecuta
  ZQueryBD.Close;
 // ZQueryBD.SQL.Clear;
  ZQueryBD.SQL.Text:= 'Delete From Factura';
end;

Por otro lado seria bueno que usaras parametros en la consulta.
Saludos

[martini002]

Exactamente Caral,

Eso era, se usa efectivamente "ZQueryBD.ExecSQL;"
ya corregi lo de los Clear
Como es eso de usar parametros en la consulta?

Gracias, ya esta funcionando

[[Caral]]

Hola
Los parametros te dan la posibilidad de limpiar y verificar el codigo con eficiencia.
Se puede usar cualquier nombre para un parametro y va precedido de dos puntos.
Cuando se usa params se comienza en 0 para el primer dato.

Código Delphi [-]
ZQueryBD.SQL.Text:= 'Insert Into RFac (Monto, Fecha, Hora) Values ( :Mon, :fecha, :Hora )';
ZQueryBD.Params[0].Value:= Monto;
ZQueryBD.Params[1].Value:= Date(NOW());
ZQueryBD.Params[2].Value:= Time(NOW());
ZQueryBD.ExecSQL;

saludos

[martini002]

Gracias Caral,
Muy amable siempre,
Estoy seguro de que me va a ayudar bastante
lo pondre en practica desde ahorita

Saludos

[[Caral]]

Hola
Con gusto.
Saludos