Criando View NOME MES
Boa Tarde a todos, estou fazendo o seguinte procedimentos, mas não cria a view, será que deixer de fazer allguma coisa?
Obrigado
obs.: MSSQL 2000 e Delphi 7.0
procedure TFrmExpor_Mes.MOVSEMI;
var
MesAno: String;
Begin
MesAno := FormatDateTime(´MMYY´, DATE - 30);
with qryExp_mes do
begin
Close;
SQL.Clear;
SQL.Add(´CREATE VIEW MOVSEMI ´+MesAno);
SQL.Add(´AS´);
SQL.Add(´SELECT * FROM MOVSEMI´);
SQL.Add(´WHERE DATA >= :DTINI AND <= :DTFIM´);
ParamByName(´DTINI´).AsString:=edtIni.Text;
ParamByName(´DTFIM´).AsString:=edtFim.Text;
ExecSql;
end;//with
end;
Ou Algumem tem outra sugestão?
Obrigado
Luis Bertocco
Obrigado
obs.: MSSQL 2000 e Delphi 7.0
procedure TFrmExpor_Mes.MOVSEMI;
var
MesAno: String;
Begin
MesAno := FormatDateTime(´MMYY´, DATE - 30);
with qryExp_mes do
begin
Close;
SQL.Clear;
SQL.Add(´CREATE VIEW MOVSEMI ´+MesAno);
SQL.Add(´AS´);
SQL.Add(´SELECT * FROM MOVSEMI´);
SQL.Add(´WHERE DATA >= :DTINI AND <= :DTFIM´);
ParamByName(´DTINI´).AsString:=edtIni.Text;
ParamByName(´DTFIM´).AsString:=edtFim.Text;
ExecSql;
end;//with
end;
Ou Algumem tem outra sugestão?
Obrigado
Luis Bertocco
Bertocco
Curtidas 0