ADOConnection.ConnectionString的问题

Question

ADOConnection1.ConnectionString := GetConnectionString;
我用这个语句一直提示我missing connection or connectionstring，请各位高手帮忙！我已经按照要求设置好，可是一直就是部能吧DB.INI的值赋进ADOConnection.ConnectionString 

Answer 1

GetConnectionString有返回值吗  你给的信息太少了missing connection or connectionstring这应该是ADOQuery之类的控件给出的提示吧  没设置ADOQuery.Connection

Answer 2

DB.INI中的连接字符串没有读取到，去查下INI文件的读取方法

Answer 3

先看一下GetConnectionString这个方法中。
ADOConnection1.Connected := false;
ADOConnection1.ConnectionString := GetConnectionString; 

Answer 4

你这么说不清楚 把相关代码贴上来看看
看看GetConnectionString 到底有没有赋值进去

Answer 5

ADOConnection1.ConnectionString := GetConnectionString; 
我用这个语句一直提示我missing connection or connectionstring，请各位高手帮忙！ 我已经按照要求设置好，可是一直就是部能吧DB.INI的值赋进ADOConnection.ConnectionString 
function GetConnectionString: string;
var
  SYSINI: TINIFile;
  ServerName, UserName, Password, InitDB: string;
  tmpstr: string;
begin
  SYSINI := TIniFile.Create('DB.INI');
  try
    ServerName := SYSINI.ReadString('Database', 'ServerName', '');
    UserName := SYSINI.ReadString('Database', 'UserName', '');
    InitDB := SYSINI.ReadString('Database', 'InitDB', '');
    Password := SYSINI.ReadString('Database', 'Password', '');
    Result := '';
    Result := 'Provider=SQLOLEDB.1;Password=' + Password + ';Persist Security Info=false;User ID=' + UserName + ';Initial Catalog=' + InitDB + ';Data Source=' + ServerName;
  finally
    SYSINI.Free;
  end;
end;

Answer 6

SYSINI := TIniFile.Create('DB.INI'); ini文件路径要些完整,不能只有文件名

Answer 7

SYSINI := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'DB.INI');

Answer 8

SYSINI := TIniFile.Create(ExtractFilePath(paramstr(0))+'DB.INI');

Answer 9

在ADOConnection1.ConnectionString := GetConnectionString; 
这一句有看看GetConnectionString的值不就得了？