问题1:创建数据库,如不存在则创建。。存在则继续 Wrong: ADOConnSQL.Execute('if not exists(''Create Database data'')');
要如何改!!?
问题2:删除数据库时总是报该数据库正使用中。。free掉或close掉也不行。。请问是什么原因!??
先谢谢大伙了!!!
要如何改!!?
问题2:删除数据库时总是报该数据库正使用中。。free掉或close掉也不行。。请问是什么原因!??
先谢谢大伙了!!!
解决方案 »
- 有两个问题想向大侠求教!
- 新手关于LISTBOX的问题,急啊
- TcxTreeList,插入几十个节点,就明显感觉到需要等待,大侠能否指点一二?
- 定义写了一个右键菜单,但是原来的系统右键菜单里的复制,粘贴功能没有了,怎么样在自己的右键菜单里把这些功能加回去
- 大量数据操作时,界面冻结,如何解决。
- 请帮看一下应该如何释放内存,谢谢
- MSSQL中的这个SQL语句如何转换成ACCESS中的SQL语句?
- inherited在消息处理过程中的作用,欢迎讨论
- 放分
- 要做一个工资管理系统,有经验的朋友给点建议,谢谢
- GB2312的字符如何转化成UTF_8的字符,请大家帮帮我写一个DEMO程序,谢谢大家?
- ImageList静态加载的ico在工具栏上显示正常,但是如果是动态加载则会失真,怎么办?
strsql:='if not exists (select * from dbo.sysobjects'+
' where id = object_id(N''[dbo].[你要建立的表名]'')'+
' and OBJECTPROPERTY(id, N''IsUserTable'') = 1) '+
' begin '+
'CREATE TABLE [dbo].[你要建立的表名] ('+
' [id] [int] IDENTITY (1, 1) NOT NULL , '+
' [parent] [int] NOT NULL ,'+
' [name] [varchar] (50) NOT NULL'+
') ON [PRIMARY]'+
' end ';
这个是在sql server 中,access没有用过2、关掉你的程序删除就可以了!
1建立数据库
//建立数据库
databasename:='结转' + FormatDatetime('yyyymmdd', Date);
qyear.SQL.Clear;
qyear.SQL.Add('IF not EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N''' + databasename + ''')');
qyear.SQL.Add('CREATE DATABASE [' + databasename + '] ON (NAME = N''' + databasename + '_dat'', FILENAME = N''d:\结转data\' +
databasename + '_Data.MDF'' ,'+
' FILEGROWTH = 10%) LOG ON (NAME = N''' +databasename +'_Log'', '+
' FILENAME = N''d:\结转data\'+databasename+'_Log.LDF'' , '+
' FILEGROWTH = 10%)COLLATE Chinese_PRC_CI_AS ');
qyear.ExecSQL;
2。删除的时候暂时把adoconnction连到其他表比如master表,才能删除
Wrong: ADOConnSQL.Execute('if not exists(''Create Database data'')');
2.因为你的程序连接了数据库,所以无法删除,你可以连master再去删其他数据库。