Error en Sintaxis Invisible

[martini002]

Saludos Amigos, donde quiera que se encuentren,
Tengo casi una hora intentando descubrir cual es el error
en esta linea, porque no me la quiere ejecutar,
me da el comun error: SQL Logic Error or Missing DataBase

Estuve leyendo sobre el Insert, pero no encuentro realmente el Error,
agradeceria como siempre su tiempo y su ayuda

Código Delphi [-]
  ZQueryBD.SQL.Text:= 'Insert Into RFac (Monto, Fecha, Hora) Values ('+Monto+', Date(NOW()), Time(NOW()))';

Extraido de este Codigo.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
Var
  Codigo:String;
begin
  DataSourceBD.Enabled:= False;
  ZQueryBD.Close;
  ZQueryBD.SQL.Clear;
  ShowMessage('Insertamos');
  ZQueryBD.SQL.Text:= 'Insert Into RFac (Monto, Fecha, Hora) Values ('+Monto+', Date(NOW()), Time(NOW()))';
  ShowMessage('Escrito');
  ZQueryBD.Open;
  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.Open;
  ZQueryBD.Close;
  ZQueryBD.SQL.Clear;
  ZQueryBD.SQL.Text:= 'Insert Into F'+Codigo+' (Articulo, Monto) Values (Total:, '+Monto+')';
  ZQueryBD.Open;
  ZQueryBD.Close;
  ZQueryBD.SQL.Clear;
  ZQueryBD.SQL.Text:= 'Delete From Factura';
end;

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