我想用DELHPI建立SQL数据库,SQL语句来源于SQL脚本文件,如A.SQL,怎样写代码,谢了各位大虾。
解决方案 »
- delphi编程,检测电脑上是否装有 pdf 阅读器
- 怎么将Quickrep的控件预览的页面放在某控件里面(如panel)?
- 这样提交HTTP POST正确吗?
- 有什么软件用来制作环境/灯光效果图??
- 请问二维动态数组怎么设定上下界?
- ADODataset1的名字怎会成为与之相连的数据库的一个字段?
- 在DBGrid的OnTitleClick事件中这样写:select * from users order by column.fieldname 好象不行
- 时间查询任何做?
- 为什么有的控件没有*.dpk文件呢?那如何安装呀?
- Tedit 怎样设定只接受数字
- 跪求查找各种DELPHI函数的方法以及相关资料!
- ListView 难题
IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'CSDNDB')
DROP DATABASE [CSDNDB]
GOCREATE DATABASE [CSDNDB]
COLLATE SQL_Latin1_General_CP1_CI_AS
GO--建立几个表
CREATE TABLE [dbo].[AnonymousUsers] (
[UserId] [char] (36) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[LastLogin] [datetime] NOT NULL
) ON [PRIMARY]
GOCREATE TABLE [dbo].[Emails] (
[EmailID] [int] IDENTITY (1, 1) NOT NULL ,
[Subject] [nvarchar] (128) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Importance] [int] NOT NULL ,
[FromAddress] [nvarchar] (75) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Description] [nvarchar] (200) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Message] [ntext] COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GOCREATE TABLE [dbo].[ForumGroups] (
[ForumGroupId] [int] IDENTITY (1, 1) NOT NULL ,
[Name] [nvarchar] (256) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[SortOrder] [int] NOT NULL
) ON [PRIMARY]
GO
你直接再服务器上执行脚步不就完了为什么非要用delphi写程序?
难道你天天建立数据库?
SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+ 'Jet OLEDB:Database Password=%s;';function GetTempPathFileName(): string;
var
SPath, SFile: array[0..254] of char;
begin
GetTempPath(254, SPath);
GetTempFileName(SPath, '~SM', 0, SFile);
result := SFile;
DeleteFile(result);
end;//这里是关键
function CreateAccessFile(FileName: string; PassWord: string = ''): boolean;
var
STempFileName: string;
vCatalog: OleVariant;
begin
STempFileName := GetTempPathFileName;
try
vCatalog := CreateOleObject('ADOX.Catalog');
vCatalog.Create(format(SConnectionString, [STempFileName, PassWord]));
result := CopyFile(PChar(STempFileName), PChar(FileName), True);
DeleteFile(STempFileName);
except
result := false;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
CreateAccessFile('C:\aa.mdb');
end;