Delphi创建SQLserver数据库视图的例子.rar

Delphi创建SQLserver数据库视图的例子,使用create View语句来生成视图,当然本程序创建好视图后,也可删除视图,下面是详细的代码: //创建一个视图: procedure TForm1.Button1Click(Sender: TObject); begin try with ADOquery1 do begin Close; SQL.clear; SQL.add('create View ' Edit1.Text); SQl.Add('as '); SQL.Add(' Select * from T_dia_spxx'); ExecSQL; SQL.Clear; SQL.Add('Select * from ' Edit1.Text); Open; ShowMessage('视图创建' Edit1.Text '成功'); end; except showmessage('可能视图已存在'); end; end; //删除一个视图: procedure TForm1.Button2Click(Sender: TObject); begin with ADOquery1 do begin Close; SQL.clear; SQL.add('Drop view ' Edit1.Text); ExecSQL; end; end;