我的database每次进入都要输入数据库名字和进入的密码。在database的loginprompt中加入数据库名字和进入的密码并选中loginprompt也没有用。我估计是BDE中配的出了问题。
请高手提出详细的步骤直到database控件配置,谢谢!
请高手提出详细的步骤直到database控件配置,谢谢!
解决方案 »
- Delphi的Socket编程如何实现三层结构[出100分]
- adoconnection 如何连接foxpro数据库
- 求购进销存源码
- 各位大侠,bde与ado有何不同,ado有何缺陷?请指教(文同)
- 松下(Panasonic)Kx-P1121卷张问题?
- 怎么给TMeno ,TListView加上背景图片
- 什么问题?
- 如何将连接的数据库采用相对路径,ADO控件和数据库的连接!
- ===救命啊!救命啊!win2000里可以98不行啊===
- C/S(金太阳)
- 如何释放一个自己做的VCL控件
- [Fatal Error] AACtrls.pas(1): Program or unit 'AACtrls.pas' recursively uses itself
TNND的现在什么都是用的ADO,哎!!
以SQLSEVER数据库为例
try
Database1.loginprompt := False;
Database1.Connected := False;
Database1.Params.Clear;
Database1.Params.Add('DATABASE NAME='+'数据库名');
Database1.Params.Add('SERVER NAME='+'服务器名');
Database1.Params.Add('USER NAME='+'sa');
Database1.Params.Add('OPEN MODE=READ/WRITE');
Database1.Params.Add('SCHEMA CACHE SIZE=8');
Database1.Params.Add('BLOB EDIT LOGGING=');
Database1.Params.Add('LANGDRIVER=');
Database1.Params.Add('SQLQRYMODE=');
Database1.Params.Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
Database1.Params.Add('DATE MODE=0');
Database1.Params.Add('SCHEMA CACHE TIME=-1');
Database1.Params.Add('MAX QUERY TIME=300');
Database1.Params.Add('MAX ROWS=-1');
Database1.Params.Add('BATCH COUNT=200');
Database1.Params.Add('ENABLE SCHEMA CACHE=FALSE');
Database1.Params.Add('SCHEMA CACHE DIR=');
Database1.Params.Add('HOST NAME=');
Database1.Params.Add('APPLICATION NAME=');
Database1.Params.Add('NATIONAL LANG NAME=');
Database1.Params.Add('ENABLE BCD=FALSE');
Database1.Params.Add('TDS PACKET SIZE=4096');
Database1.Params.Add('BLOBS TO CACHE=64');
Database1.Params.Add('BLOB SIZE=32');
Database1.Params.Add('PASSWORD='+'');
try
Database1.connected := True;
// showmessage('连接成功');
// Database1.connected := False; except
Application.MessageBox('连接失败!请重新配置你的数据源!','错误',MB_OK+MB_ICONERROR); exit;
end;
设置 LoginPrompt属性为False
BDE Administrator定義一個別名 'Jonny',設發它的User Name,DatabaseName
在窗體內增加一個Tdabase,設DatabaseName為'mydb', 將AliasName設為'Jonny',雙擊TDatabse在Parameter Overrides:下
輸入User Name=sa
Password=pass //你自己的用戶和密碼
放置一個TQuery將DatabaseName設為'mydb'
設置sql. active=true;===> 搞定打字累了,沒功勞有苦勞
將Tdatabase.LoginPrompt属性为False
設置sql. active=true;===> 搞定