导航:
论坛 -> 数据库专区
斑竹:liumazi,waterstone
作者:
sxfgf (FC_FGF)
★☆☆☆☆
-
普通会员
2022/11/5 16:11:28
标题:
AdoQuery 创建SQL函数,该怎么实现?
浏览:1024
加入我的收藏
楼主:
从一个数据库自动生成了一个脚本文件,用于方便创建新的数据库 AdoQuery1.ParamCheck:=False; AdoQuery1.Close; Adoquery1.SQL.Clear; AdoQuery1.SQL.LoadFromFile('CreateTable.sql'); ADoQuery1.SQL.Add(sql); AdoQuery1.ExecSQl; AdoQuery1.Close; Adoquery1.SQL.Clear; AdoQuery1.SQL.LoadFromFile('FUNCTION.sql'); ADoQuery1.SQL.Add(sql); AdoQuery1.ExecSQl; 执行第一段的时候, 正常,执行第二段的时候提示:关键字‘ALTER’附近有语法错误 CreateTable.sql中最有几行: /****** Object: Default [DF_B_Clients_is_Candel] Script Date: 11/05/2022 14:59:56 ******/ ALTER TABLE [dbo].[B_Clients] ADD CONSTRAINT [DF_B_Clients_is_Candel] DEFAULT ((0)) FOR [is_Candel] /****** Object: Default [DF_B_Clients_yingshou] Script Date: 11/05/2022 14:59:56 ******/ ALTER TABLE [dbo].[B_Clients] ADD CONSTRAINT [DF_B_Clients_yingshou] DEFAULT ((0)) FOR [yingshou] /****** Object: Default [DF_B_Clients_yingfu] Script Date: 11/05/2022 14:59:56 ******/ ALTER TABLE [dbo].[B_Clients] ADD CONSTRAINT [DF_B_Clients_yingfu] DEFAULT ((0)) FOR [yingfu] /****** Object: Default [DF_B_Clients_yushou] Script Date: 11/05/2022 14:59:56 ******/ ALTER TABLE [dbo].[B_Clients] ADD CONSTRAINT [DF_B_Clients_yushou] DEFAULT ((0)) FOR [yushou] /****** Object: Default [DF_B_Clients_yufu] Script Date: 11/05/2022 14:59:56 ******/ ALTER TABLE [dbo].[B_Clients] ADD CONSTRAINT [DF_B_Clients_yufu] DEFAULT ((0)) FOR [yufu] FUNCTION.sql中并没有 ALTER 请问是哪里出了问题?
----------------------------------------------
偶尔做做代码应付一下工作,却发现Delphi已成必配
作者:
2022/11/5 17:35:21
1楼:
看不到FUNCTION.SQL及CreateTable.sql的內容 沒辦法看問題
----------------------------------------------
-
作者:
2022/11/5 20:39:18
2楼:
see this: ---------- ... -- AdoQuery1.SQL.LoadFromFile('CreateTable.sql'); -- ADoQuery1.SQL.Add(sql); <-- you are add new SQL text? Why? ... ---------- try this: Memo1.Text := ADOQuery1.SQL.Text; <---- what the resulted? It's OK?
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3
作者:
2022/11/5 20:59:36
3楼:
每段sql后面加个go断句
----------------------------------------------
-
作者:
2022/11/6 5:56:16
4楼:
better look your result-text-sql on ADOQuery1.SQL.Text....??? -- verify usage of ";" on end of each command-line -- try study about "execute block" on scripts!!!
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3
作者:
sxfgf (FC_FGF)
★☆☆☆☆
-
普通会员
2022/11/27 11:28:28
5楼:
最后还是以备份恢复数据库实现了,新数据库的创建
----------------------------------------------
偶尔做做代码应付一下工作,却发现Delphi已成必配