当前位置:主页>仓库管理软件> 列表

用DELPHI 代码实现在MSSQL2000 中附加数据库 找免费管家婆软件

进销存软件版1楼: 本人正在做个毕业设计,但写完后总有个问题,
软件给人家用的话还要配置数据库,就想在程序中用代码实现
那位高手能指点一下吗,最好是能给个例子

2楼: 来自毕生的财富-管道的故事!

很久很久以前,在意大利的一个小村子里,有叫布鲁诺和柏波罗的两个年轻人,他们是堂兄弟,而且都雄心勃勃。

一天,

机会来了。村里决定雇两个人把附近河里的水运到村广场的水缸里去。这份工作交给了柏波罗和布鲁诺。两个人都抓起两个水桶奔向河边。一天结束后,他们把村上的水缸装满了。村里的长辈按每桶水一分钱的价钱付钱给他们。

第二天,柏波罗说:“一天才几毛钱的报酬,却要这样来回提水,干脆我们修一条管道把水引到村里去吧。”布鲁诺大声嚷嚷道:“柏波罗,我们有一份很不错的工作。我一天可以提一百桶水。一分钱一桶水的话,一天就是一元钱!一个星期后,我就可以买双新鞋;一个月以后,我就可以买一头母牛;六个月后,我就可以盖一间新房子。我们有全村最好的工作。放弃你的管道吧!”

但柏波罗相信他的梦想终会实现。于是他就去做了。他将一部分白天的时间用来提水,另一部分时间以及周末用来建造管道。

布鲁诺和其他村民开始嘲笑柏波罗,布鲁诺赚到的钱比柏波罗多一倍,他不断地向柏波罗炫耀自己新买的东西。

柏波罗不管这些,继续挖他的管道,哪怕每次只是一英寸。

最后,柏波罗的好日子终于来到了——管道完工了!现在村子里源源不断地有新鲜水供应了。柏波罗也不用再提水桶了。而柏波罗口袋的钱也就越来越多。

管道使得提桶人布鲁诺失去了工作。于是柏波罗找到布鲁诺说:“布鲁诺,我想教你建造管道……然后你再教其他人……然后他们再教其他人……直到管道铺满本地区的每个村落…….最后,全世界的每有一个村子都有管道。”

柏波罗继续说,“我们只需从流进这些管道的水中赚取一个很小的比例。越多的水流进管道,就有越多的钱流入我们的口袋。我所建的管道不是梦想的结束,而只是开始。”

布鲁诺终于明白了这幅宏伟的蓝图。他笑了,他向他的老朋友伸出他那粗糙的手。

或许你有一份好的工作,或许你对目前的工作不是很满意,现在网络赚钱已成为现实,迅速的建立自己的团队,建立自己的赚钱管道,为明天的成功打下基础,有兴趣的朋友进入我的网站详细了解

【Soho之家公司网址】[URL=http://3711.9soho.com]http://3711.9soho.com/[/URL]

【咨询QQ】277341915(耐心讲解等待您的咨询)
[img]http://9soho.com/pic/banner/001.gif[/img]
(摘自《管道的故事》贝克.哈吉斯/文) 如免费管家婆软件

3楼: 呵呵,我刚好做了这个配置数据库,你想要么?

4楼: 两种方法:


1.提供数据库的源库文件及日志文件,用SQL语句附加到数据库里边
2.提供数据库的备份文件,用SQL语句还原

其实就是这样,只要选择一个思路,其他技术上的东东都不难的。

5楼: 先连接到数据库服务器任意数据库上,然后执行如下sql语句:
EXEC sp_attach_db @dbname = N''Queue'',
@filename1 = N''D:\数据库\Queue_Data.mdf'',
@filename2 = N''D:\数据库\Queue_log.ldf''
Queue是你的数据库名字,下面的是你数据库文件的路径

6楼: To:zhwwlp:要给分哦!
function TForm1.F_addSQLDB: Boolean;
begin
Result := False;
with TADODataSet.Create(nil) do
begin
Connection := Self.con1;
CommandText := '' select * from sysdatabases where [Name] = :P '';
Parameters[0].Value := ''LibraryManage'';
Open;
if recordcount < 1 then
begin
with TADOCommand.Create(nil) do
begin
Connection := con1;
CommandText := ''EXEC sp_attach_single_file_db @dbname = :P1, @physname = :P2 '';
Parameters[0].Value := ''LibraryManage'';
Parameters[1].Value := ExtractFilePath(Application.ExeName) +
''Data\DBLibraryManage_Data.mdf'';
Execute;
Free;
end;
end;
Free;
end;
Result := True;
end;

进销存软件版7楼: 接受答案了.