Question

delphi7 做的程序 连不上数据库 ini配置的数据库

程序是用DELPHI7做的 数据库是sql2000 我在自己的电脑上用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','DataSource','');
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;
//conn.WriteString('config','DBCon',adoconnection1.ConnectionString);
except
application.MessageBox('数据库配置不正确，请重新配置!','提示',mb_ok);
ADOConnection1.Connected:=false;
application.Terminate;
end;
end;

Answer 1

如果你的电脑装的不是服务器版的操作系统，就基本可以断定你的程序没有问题，而是操作系统的问题。如果你的系统是Windows XP，你必须先解决文件夹共享、打印机共享这样的问题，才来考虑怎么在另一台机子上连接你的数据库。

追问

你的意思是 我电脑上的共享文件夹 在我放程序的那台电脑上 能访问到 才可以 是么

追答

是这个意思，但就算别的电脑能访问到你的共享文件夹了，也还不能保证就一定能连接上你的数据库，这个我没有试过，你可以试试。我用的SQLSERVER都是装在服务器上的，所以不存在这样的问题。

Answer 2

delphi7菜单栏->database->explore->OBject->New
设置一个数据库文件的别名，在哪里设置好绝对路径， 编程时用别名读取数据库，这样在别的电脑上不会受影响