用ADO方式连接数据库MS SQL 2000,数据库密码为空时可以正确连接,可数据库设置密码后就无法连接,不知怎样解决!
请大家帮忙!
请大家帮忙!
解决方案 »
- 结束进程问题!!
- 应该是一个简单的问题??
- WIN2K下怎样实现自动关机??
- 我想问一下这个是怎么实现的
- 各们大侠们!做一个倒记时小程序怎么做呀?或有什么思路告诉我一下,小弟在这里谢谢了!!!
- 看高手怎么优化这个程序,使运行速度提高
- 关于RegisterHotKey
- 怎么内嵌execel?我往form里拖进一个texcelworksheet,接着就不知道怎么做了.
- 很多人说我爱钻牛角尖.这不,我又钻到牛角里了.大家知道,定义var i:integer; str:string;后,不能直接相互赋值.如i:=j.可是有人知道是为什么吗?
- 如何关闭数据库?
- 如何将定义好的函数类型变量转换成字符串
- 地震记实
procedure TdmJAM.DataModuleCreate(Sender: TObject);
var
FServer:string;
FDatabase:string;
FUser:string;
FPassword:string;
begin
AppPath:= ExtractFilePath(ParamStr(0));
FServer:=mrReadStrFromIniFile(AppPath+'sys.ini','DBconn','Server','(local)');
FDatabase:=mrReadStrFromIniFile(AppPath+'sys.ini','DBconn','Database','JAMDB');
FUser:=mrReadStrFromIniFile(AppPath+'sys.ini','DBconn','User','sa');
FPassword:=mrReadStrFromIniFile(AppPath+'sys.ini','DBconn','Password','');
if Conn.Connected then Conn.Close;
if FPassword='' then
conn.ConnectionString:='provider=SQLOLEDB.1;' +
'Persist Security Info=true;' + 'User ID=' + FUser +
';Initial Catalog=' + FDataBase + ';Data Source=' + FServer
else
conn.ConnectionString:='provider=SQLOLEDB.1;Password=' + FPassword +
'Persist Security Info=true;' + 'User ID=' + FUser +
';Initial Catalog=' + FDataBase + ';Data Source=' + FServer;
try
conn.Open;
Linked:=True;
except
showmessage('系统链接数据库失败,请重新链接数据库!');
Linked:=False;
end;
end;