急```我的ADO连接字符串连接本地SQL怎么老是登陆不了呢~~~~在线等待~~~~~

Question

function GetAppPath(): string;
begin
  Result:=ExtractFilePath(ParamStr(0));
  if Result[Length(Result)]<>'\'then Result:=Result+'\';
end;function TFdata.ConnYbCenDB: Boolean;
var
  ServerName,DBName,LoginType,UserName:string;
  F:TIniFile;
  S,Pwd:string;
begin
  F:=TIniFile.Create(GetAppPath()+'Config.INI');
  ServerName:=F.ReadString('DataBase','ServerName','192.168.0.1');
  DBName:=F.ReadString('DataBase','DataBaseName','YbCenDB');
  LoginType:=F.ReadString('DataBase','LoginType','0');
  Pwd:=F.ReadString('DataBase','Password','YbCenDB');
  UserName:=F.ReadString('DataBase','UserName','sa');
  F.Free;
 s:='Provider=SQLOLEDB.1;Password=Pwd;Integrated Security=SSPI;'+
    'Persist Security Info=False;User ID='+UserName+';Initial Catalog='+DBName+';'+
    'Data Source='+ServerName;
  if LoginType='1'then S:=S+';Integrated Security=SSPI';
  jianxingda.Connected:=false;
  jianxingda.ConnectionString:=S;
  try
    jianxingda.Connected:=true;
    Result:=true;
  except
    if Application.MessageBox('连接数据库失败，'+#13+
                              '请检查服务器是否启动或设置是否正确！'+#13#13+
                              '是否现在进行服务器设置？',
                              '信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
    Result:=false;
  end;
end;
老是提示登陆不了我指明的那个“YbCenDB”源呢`/~？~~？
可以加我的QQ：254734866```或者 MSN:[email protected] ''''先谢谢了`````
分数不够可以再加`````````
注：我连接的是本地SQL````

Answer 1

'YbCenDB'不是你的SA密码？你这是““YbCenDB”源”说是什么

Answer 2

看一下sql server服务管理器有没有开。
设置断点看连接字符串有没有问题。

Answer 3

连接串可以这样写，我的是经过函数处理的，你看看吧
AdoUserAdd.ConnectionString:=' Provider=SQLOLEDB.1;'+'Persist Security Info=False;User ID='+GetRegInfo(3)+';Password='+GetRegInfo(4)+';'+
                  'Initial Catalog='+GetRegInfo(2)+';Data Source='+GetRegInfo(1);

Answer 4

>>>s:='Provider=SQLOLEDB.1;Password=Pwd;Integrated Security=SSPI;'
所以密码错误？

Answer 5

....  UserName:=F.ReadString('DataBase','UserName','sa');
  F.Free;
 s:='Provider=SQLOLEDB.1;Password=Pwd;Integrated Security=SSPI;'+
-------------------这句有错.(Pwd是变量,你怎么那样写)应为:
 s:='Provider=SQLOLEDB.1;Password='+Pwd+';Integrated Security=SSPI;'+

Answer 6

如果你的机器是单机作战，要ServerName:=F.ReadString('DataBase','ServerName','127.0.0.1);

Answer 7

把你的INI文件內容貼出來.應該是你INI文件內容的問題.

Answer 8

个人认为这里错了'Data Source='+ServerName;  //应该是数据源名称

Answer 9

内部代码确定连接时,可用showMessage(s);显示一下连接信息是否错.

Answer 10

hehe ,看看你的连接字符串