Delphi用ini文件连接数据库
2008-12-24 12:10
411 查看
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
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文件的操作类IniOptions
- Delphi对保存数据库连接信息的Ini文件的操作类
- Delphi使用BDE连接远程MS SQL SERVER 2000数据库时出现“Db-library network communciations layer not loaded.”错误的解决方法
- Delphi中用ADO连接数据库
- 回答一位朋友的提问:在Delphi7下如何与DLL共享数据库连接
- delphi连接数据库
- Delphi 开发时运行出现 程序连接数据库错误 在指定的 DSN 中,驱动程序和应用程序之间的体系结构不匹配
- Delphi ADO 连接数据库例子
- delphi连接数据库
- Delphi中用ADO控件连接数据库例子
- delphi连接数据库程序 报ORA-06413: 连接未打开
- delphi中连接sql server 2008 数据库方法
- Delphi 使用之连接数据库
- Delphi启动数据库连接属性对话框
- Delphi使用BDE连接远程MS SQL SERVER 2000数据库时出现“Db-library network communciations layer not loaded.”错误的解决方法
- Delphi 利用 SybaseOleDBProvider 连接 SYBASE 数据库
- DELPHI入门3--最简单的数据库连接,运用
- delphi中ado如何动态连接数据库
- DELPHI 获取SQLSEVER服务器&断开数据库连接
- 回答一位朋友的提问:在Delphi7下如何与DLL共享数据库连接