Criando View Concatenando
Bom dia estou fazendo o seguinte procedimentos, mas não cria a view, será que deixer de fazer allguma coisa?
Obrigado
obs.: MSSQL 2000
procedure TFrmExpor_Mes.MOVSEMI;
var
MesAno: String;
Begin
MesAno := ´MOVSEMI´+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´);
Params.ParamByName(´DTINI´).AsString:=edtIni.Text;
Params.ParamByName(´DTFIM´).AsString:=edtFim.Text;
ExecSql;
end;//with
end;
Obrigado
obs.: MSSQL 2000
procedure TFrmExpor_Mes.MOVSEMI;
var
MesAno: String;
Begin
MesAno := ´MOVSEMI´+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´);
Params.ParamByName(´DTINI´).AsString:=edtIni.Text;
Params.ParamByName(´DTFIM´).AsString:=edtFim.Text;
ExecSql;
end;//with
end;
Bertocco
Curtidas 0
Respostas
Night_man
11/08/2006
voce jah esprimentou colocar a lista de campos da view e do select assim
Create View Descricao ( Codigo, Descricao ) As
Select
TABCODIGOS.CODIGO,
TABDESCRICOES.DESCRICAO
From
TABCODIGOS, TABDESCRICOES
Create View Descricao ( Codigo, Descricao ) As
Select
TABCODIGOS.CODIGO,
TABDESCRICOES.DESCRICAO
From
TABCODIGOS, TABDESCRICOES
GOSTEI 0