码迷,mamicode.com
首页 > 数据库 > 详细

SQLDataSet中执行DDL语句

时间:2017-03-06 01:34:18      阅读:238      评论:0      收藏:0      [点我收藏+]

标签:jpg   pre   form   image   delete   code   新建   lin   set   

在SQLDataSet中执行我们输入的DDL语句,并观察执行结果。

这里为了省输入的时间,从先输好的记事本中复制的SQL语句。效果图:

技术分享

**************************************************************************************

具体操作:

**************************************************************************************

DBGrid1.DataSource->DataSource1.DataSet->ClientDataSet1.ProviderName->DataSetProvider1->

SQLDataset1.SQLConnection1->具体数据库(这里连接的是oracle中的新建的Persons(根据自己新建的表名)表);

这里SQLDataset1和ClientDataSet1都不能设置为TRUE,因为表还没建起来,会返回个错误。

现在在放入一个SQLDataSet2控件执行我们的DDL语句。

现在窗体结构应该如下图:

技术分享

**************************************************************************************

主要代码:

**************************************************************************************

procedure TForm3.ExeSQLScript;
var
  strScript:string;
  strSQL:string;
  iPos:integer;
begin
   strScript:=Memo1.Lines.Text;
   while Length(strScript)>0 do
   begin
     iPos:=Pos(;,strScript);
     if iPos>0 then
     begin
       strSQL:= Copy(strScript,1,iPos-1);
       SQLDataSet2.CommandText:=strSQL;
       SQLDataset2.ExecSQL(true);
       Delete(strScript,1,iPos);
     end else
     begin
       break;
     end;
   end;
   if ClientDataSet1.Active then
    begin
   ClientDataSet1.Refresh;
    end else
    begin
      ClientDataSet1.Active:=true;
    end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  ExeSQLScript;
end;

能上代码在DELPHI XE5 ,WIN7 X64,ORACLE 11G中测试通过。

SQLDataSet中执行DDL语句

标签:jpg   pre   form   image   delete   code   新建   lin   set   

原文地址:http://www.cnblogs.com/sun998/p/6507579.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!