文件名称：Delphi创建SQLserver数据库视图的例子.rar
文件大小：275KB
文件格式：RAR
更新时间：2022-07-30 04:25:32
Delphi源码-数据库实例
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;
【文件预览】：
codesc.net
----视图的例子()
--------Project1.dsk(4KB)
--------Project1.res(876B)
--------Unit1.dfm(2KB)
--------database()
--------Unit1.ddp(51B)
--------Project1.cfg(406B)
--------Unit1.pas(1KB)
--------Project1.dpr(188B)
--------Project1.dof(3KB)
--------Unit1.dcu(5KB)