Question

delphi 用ini文件连接数据库

procedure TDM.DataModuleCreate(Sender: TObject);
var
conn:tinifile;
begin
//数据库连接设置。 conn.ini
iniFilePath:=ExtractFilePath(application.ExeName); //获取INI文件路径。
if inifilePath[length(inifilePath)]='' then
begin
iniFilePath:=iniFilePath+'conn.ini';
conn:=tinifile.Create(iniFilePath);
end
else
begin
iniFilePath:=iniFilePath+'conn.ini';
conn:=tiniFile.Create(inifilePath);
end;
if not FileExists(iniFilePath) then
begin
application.MessageBox('配置文件不存在!','提示',mb_OK) ;
APplication.Terminate;
end;
UserIDStr:=conn.ReadString('config','userID','');
passwordStr:=conn.ReadString('config','password','');
ServerNameStr:=conn.ReadString('config','ServerName','');
dataBaseNameStr:=conn.ReadString('config','DataBaseName','');
if (ServerNameStr='') or (DatabaseNameStr='') then
begin
application.MessageBox('数据库配置不正确，请重新配置!','提示',mb_ok);
Application.Terminate;
end;
ADOConnection1.Close;
ADOConnection1.ConnectionString:='';
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;User ID='+UserIDstr+';Password='+Passwordstr+ ';Data Source='+ServerNameStr+ ';Initial Catalog='+DatabaseNamestr;
try
ADOConnection1.Connected:=true;
except
application.MessageBox('数据库配置不正确，请重新配置!','提示',mb_ok);
ADOConnection1.Connected:=false;
application.Terminate;
end;
end;
end.

我想弄一个 ini 文件 用来连接数据库 上面是代码 不知道哪里有问题 提示数据库配置不正确，请重新配置 下面是数据库信息
[config]
UserID=sa
Password=
DataSource=PC8263-20130515
DatabaseName=ksl2013
哪位高手 给指导一下 非常感谢

Answer 1

ServerNameStr:=conn.ReadString('config','ServerName','');

ini文件中没有ServerName这项。

建议：连接数据库最好不要放在数据模块或窗体的Create事件中，这样容易引起其他问题。

Answer 2

什么数据库？Provider是否正确

追问

sql server2000 的 MSDASQL

追答

ServerNameStr:=conn.ReadString('config','ServerName','');
这句写错了，你的ini里是'DataSource'，改成这样，即可
ServerNameStr:=conn.ReadString('config','DataSource','');

追问

好使了   多谢了      我一点运行  就弹这个  调哪个属性能调回来啊

追答

adoconnection1的loginPrompt设为false即可

追问

太谢谢了 273786256
可以加您么