| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4650 人关注过本帖
标题:动态连接SQL数据库
只看楼主 加入收藏
yangguofa
Rank: 1
等 级:新手上路
帖 子:197
专家分:0
注 册:2004-5-5
收藏
 问题点数:0 回复次数:13 
动态连接SQL数据库
我们在使用Delphi编写以Micorsoft SQL Server为后台数据库的时候,经常为程序的发布担忧:
我们怎样才能让用户自由设置数据库参数,程序自动连接? 笔者经过多次试验,使用Delphi自带的
DataBase数据库连接控件可以很好的实现SQL数据库的自动连接。实现方法如下:

procedure ConnectDatabase(ServerName,DatabaseName,UserName,PassWord:String);
var
  Database1:TDataBase;
begin
   Database1.DatabaseName := ’Test’;
   Database1.DriverName := ’MSSQL’;
   LoginPrompt := False;
   with Database1.Params do
   begin
      Add(’DATABASE NAME=’ + DatabaseName);
      Add(’SERVER NAME=’ + ServerName);     //ServerName也可以是SQL服务器的IP地址
      Add(’USER NAME=’ + UserName);         //设置MSSQL数据的用户名称 如:sa
      Add(’OPEN MODE=READ/WRITE’);
      ADd(’SCHEMA CACHE SIZE=8’);
      Add(’BLOB EDIT LOGGING=’);
      Add(’LANGDRIVER=’);
      Add(’SQLQRYMODE=’);
      Add(’SQLPASSTHRU MODE=SHARED AUTOCOMMIT’);
      Add(’DATE MODE=0’);
      Add(’SCHEMA CACHE TIME=-1’);
      Add(’MAX QUERY TIME=300’);
      Add(’MAX ROWS=-1’);
      Add(’BATCH COUNT=200’);
      Add(’ENABLE SCHEMA CACHE=FALSE’);
      Add(’SCHEMA CACHE DIR=’);
      Add(’HOST NAME=’);
      Add(’APPLICATION NAME=’);
      Add(’NATIONAL LANG NAME=’);
      Add(’ENABLE BCD=FALSE’);
      Add(’TDS PACKET SIZE=4096’);
      Add(’BLOBS TO CACHE=64’);
      Add(’BLOB SIZE=32’);
      Add(’PASSWORD=’ + PassWord);        //设置MSSQL用户口令;
   end;
   try
     Database1.Connected := true;
     Query1.DatabaseName := ’Test’;
     ...   //数据库查询
   
   Except
     Application.MessageBox(’数据库连接错误!’,’错误’,MB_OK+MB_ICONERROR);
   end;
end;
搜索更多相关主题的帖子: SQL 数据库 动态 Delphi 后台 
2004-06-01 09:45
我是菜鸟
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2004-6-1
收藏
得分:0 
这种方法不太让人理解。。
2004-06-02 14:16
hanpengshan_00
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2004-7-16
收藏
得分:0 

其实也没有必要设置这么多参数

另外数据库的用户名和密码应该加密后保存到ini文件中(不要保存到注册表里)


2004-07-27 13:08
囡囡
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2004-11-10
收藏
得分:0 
请问,如果我用ado的话,有能动态的连接数据库的方法吗
2004-11-10 15:06
rozenja
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2004-11-21
收藏
得分:0 

好像这样讲对于我们这些新手来说

是很难理解的


2004-11-22 21:59
zyloveln
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2004-11-29
收藏
得分:0 
有没有好用的例子或书籍介绍一下

2004-11-29 14:12
wuheng
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2004-12-2
收藏
得分:0 

写的不错。顶,如果能介绍一下动态连SQL时候connectionstring的参数怎么设置就更好了。

我一直在研究这个问题。


2004-12-02 16:46
plzmj2001
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2005-1-14
收藏
得分:0 
正在写这一文章。。。。
数据库的恢复与备份。
主要是解决开发中的恢复内容 。。。。
2005-01-14 08:55
handle
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2004-8-2
收藏
得分:0 
wait..
2005-01-28 16:29
shuyue1981
Rank: 1
等 级:新手上路
帖 子:89
专家分:0
注 册:2005-1-20
收藏
得分:0 
关注!

一个爱学习的人!
2005-01-31 12:04
快速回复:动态连接SQL数据库
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030634 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved