如何在Delphi中创建和使用udl文件:
方法一:
直接弹出UDL对话框:
use
ADOConed;
EditConnectionString(ADOQuery1);
方法二:
⑴、右键---新建---文本文档,重命名为 connSet.udl 。
⑵、双击打开 connSet.udl 按提示操作配置数据库,选择本地或远程数据库,配置好后退出。
⑶、使用Delphi 控件TADOConnection连接代码:
在Form1的OnCreate事件如下
try
ADOC.Connected := false;
ADOC.ConnectionString := '';
ADOC.ConnectionString := 'FILE NAME='+ExtractFilePath(ParamStr(0))+'/connSet.udl';
ADOC.Provider := ExtractFilePath(ParamStr(0))+'/connSet.udl';
ADOC.Connected := true;
except
showmessage('连接失败,请重新配置connSet.udl文件');
EXIT;
end;
try
ADOC.Connected := false;
ADOC.ConnectionString := '';
ADOC.ConnectionString := 'FILE NAME='+ExtractFilePath(ParamStr(0))+'/connSet.udl';
ADOC.Provider := ExtractFilePath(ParamStr(0))+'/connSet.udl';
ADOC.Connected := true;
except
showmessage('连接失败,请重新配置connSet.udl文件');
EXIT;
end;
⑷、如果你要把应用程序分发到局域网中使用,数据库服务器没有改变,直接复制应用程序就可以了,不用再配置connSet.udl 文件。当在另外一个局域网中安装有不同名的数据库服务器时,右键用记事本打开connSet.udl 文件,会看到: [oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=jfgl_sa;Initial Catalog=jfgl;Data Source=192.168.0.117[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=jfgl_sa;Initial Catalog=jfgl;Data Source=192.168.0.117
上面几行文件,这是新建connSet.udl 文件,并配置好数据库后自动生成的代码。我默认的登录用户为jfgl_sa,密码为空,数据库为jfgl,局域网数据库服务器名IP:192.168.0.117,你可按照自己的实际环境进行配置。
⑸、不同的局域网数据库服务器,你只要修改配置connSet.udl连接文件就可以了,不用修改Delphi代码,很方便哦。
⑹、故障处理:如果运行应用程序时,出现错误提示“无效的授权说明”,是因为前面我们已经新建了connSet.udl 连接,现在只要把Delphi控件TADOConnection的属性ConnectionString值删除为空,这是静态连接数据库的字符串值,所以删除ConnectionString值后,再重新编译就可以了。
在Delphi中如何创建和使用udl文件
原创
©著作权归作者所有:来自51CTO博客作者小宇飞刀的原创作品,请联系作者获取转载授权,否则将追究法律责任
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
在Bash Shell脚本中创建和使用变量
【代码】在Bash Shell脚本中创建和使用变量。
bash 开发语言 变量名 双引号 大小写 -
Python中创建和使用模块
介绍python的包与模块
python import 包 模块