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;