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 idhttp控件的防止异常的处理

Delphi 让嵌入窗体的 webbrowser 控件无边框

Delphi d10.x 并行库ppl编程之 tparallel.for

winapi 字符及字符串函数(6): ischaralphanumeric - 是否是个文字(字母或数字)

Delphi下载指定网址（url）的文件，带进度条显示

Delphi datasnap的线程池

Delphi 实现拦截api的钩子(hook)

Delphi 每年、月、周、日的开始与结束的时间startofayear … startoftheyear … endofayear … endoftheyear

Delphi firedac 下的 sqlite [10] - 使用 r-tree 搜索

Delphi with do和for do语句

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

转载请注明出处：木庄网络博客 » delphi判断MSSQL数据库中表格是否存在？ 如何批量创建表格？