| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 数据库专区 斑竹:liumazi,waterstone | |||||
| 作者： |
|
2022/11/5 16:11:28 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 从一个数据库自动生成了一个脚本文件，用于方便创建新的数据库 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 |
|||||
| 作者： |
|
2022/11/27 11:28:28 | ||||
| 5楼： | 最后还是以备份恢复数据库实现了，新数据库的创建 ---------------------------------------------- 偶尔做做代码应付一下工作，却发现Delphi已成必配 |
|||||
| 信息 |
| 登陆以后才能回复 |
