delphi判断MSSQL数据库中表格是否存在? 如何批量创建表格?


本文整理自网络,侵删。

 function TableExists(TableName:string):Boolean;
var
str:string;
begin
str:='SELECT * FROM sysobjects WHERE name ='+''''+TableName+'''';
DM.qry1.Close;
DM.qry1.SQL.Clear;
DM.qry1.SQL.Add(str);
DM.qry1.ExecSQL(False);
if DM.qry1.RecordCount=1 then
Result:=True
else
Result:=False;
end;



procedure CreateTable(TableName:string);
const
SQL='CREATE TABLE [dbo].[TABLE1] ( '+
' [RQ] [datetime] NOT NULL , '+
' [RGZ] [char] (4) COLLATE Chinese_PRC_CI_AS NULL , ' +
' [Sun] [real] NULL , ' +
' [Moon] [real] NULL , '+
' [UD] [real] NULL , '+
' [O] [decimal](8, 2) NULL , '+
' [H] [decimal](8, 2) NULL , '+
' [L] [decimal](8, 2) NULL , ' +
' [C] [decimal](8, 2) NULL , ' +
' [JE] [bigint] NULL , ' +
' [V] [bigint] NULL ) ON [PRIMARY]';
var
str:string;
begin
str:=StringReplace(SQL,'[dbo].[TABLE1]',TableName,[rfReplaceAll]);
DM.qry1.Close;
DM.qry1.SQL.Clear;
DM.qry1.SQL.Add(str);
DM.qry1.ExecSQL(false);
end;

相关阅读 >>

Delphi dbgrideh 的分组统计 datagrouping

Delphi截获和干扰窗体最小化�p最大化和关闭消息

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

Delphi 删除字符串中首个字符

Delphi 下找到目录中的所有文件夹

Delphi 动态创建一个ipedit控件

Delphi 获取鼠标当前位置的相对坐标

Delphi 常见的各种形式的组件的安装方法介绍

Delphi实现百度地图经纬度与地址互转

Delphi 检测判断字符串是否包含有中文字符

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...