As the title stated, i want to check if a database can be connected or not. Here's the code written by me :
procedure TMainForm.ConnectionBtnClick(Sender: TObject);
begin
try
MyDB.Close;
MyDB.DataBaseName:= edtDBPath.Text;
MyDB.Params.Clear;
MyDB.Params.Add('USER_NAME=' + edtUserName.Text);
MyDB.Params.Add('PASSWORD=' + edSysPassword.Text);
MyDB.LoginPrompt := False;
MyDB.Open
except
MessageDlg('Connection fail!', mtInformation, [mbOK], 0);
exit;
end;
MessageDlg('Connection success!', mtInformation, [mbOK], 0)
end;
FYI, im using TIBDatabase component and have the default username and password, which is 'SYSDBA' and 'MASTERKEY'.
For come unknown cause, when i try to provide MyDB with a random password (for eg: 123456) instead of the default one 'MASTERKEY', the system still able to connect and return me the command 'Connection success' as written above. Any idea what's wrong with that?
Thx in advance
---------------------------------
Love cheap thrills? Enjoy PC-to-Phone calls to 30+ countries for just 2ยข/min with Yahoo! Messenger with Voice.
[Non-text portions of this message have been removed]
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
SPONSORED LINKS
| C programming language | Computer programming languages | Java programming language |
| The c programming language | C programming language | Concept of programming language |
YAHOO! GROUPS LINKS
- Visit your group "delphi-en" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
