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