Delphi用ini文件连接数据库
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了Delphi用ini文件连接数据库,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含1703字,纯文字阅读大概需要3分钟。
内容图文
![Delphi用ini文件连接数据库](/upload/InfoBanner/zyjiaocheng/871/702489665ab04f4795854d70a19cf516.jpg)
CS数据库连接-delphi+ini
chinayaosir
{delphi connection database with ini file}
unit DataModule;
interface
uses
SysUtils, Classes, DB, ADODB,INIFiles;
type
TDataModule1 = class(TDataModule)
ADOConnection1: TADOConnection;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule1: TDataModule1;
implementation
{$R *.dfm}
{
db.ini file
[connect]
servername=192.168.1.2
database=MRCRM
UserID=sa
Password=crm202.*-+ok
---------------------------------------------------
ado connection string
ADOConnection1.Close;
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=True;'+
'User ID=sa;Password=crm202.*-+ok;Initial Catalog=CRM;Data Source=192.168.1.2';
ADOConnection1.Open;
}
procedure TDataModule1.DataModuleCreate(Sender: TObject) ;
var
inifile :TINIFile;
inipath,connstr:String;
ServerName,DbName,UserName,Pwd:String;
begin
inipath:='db.ini';
{ExtractFilePath(Application.ExeName)+'/db.ini' ;}
inifile:=TIniFile.Create(inipath);
try
ServerName := inifile.ReadString('connect','servername','');
DbName := inifile.ReadString('connect','database','');
UserName := inifile.ReadString('connect','UserID','');
Pwd := inifile.ReadString('connect','Password','');
finally
inifile.Free;
end; //end try
try
connstr:='Provider=SQLOLEDB.1;'+
'Persist Security Info=False;'+
'Auto Translate=True;'+
'Data Source='+ServerName+';'+
'Initial Catalog='+DbName+';'+
'User ID='+UserName+';'+
'Password='+PWD;
ADOConnection1.Close;
ADOConnection1.ConnectionString:=connstr;
ADOConnection1.Open;
except
//ShowMessage('init database fail,pls check!');
end; //try end
end; //procedure end
end. //program end
内容总结
以上是互联网集市为您收集整理的Delphi用ini文件连接数据库全部内容,希望文章能够帮你解决Delphi用ini文件连接数据库所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。