How to make database connection in delphi xe2 using TDatabase?
Following article shows how to make database connection in delphi xe2 using TDatabase. We have made a function called MakeConnection in which all the code for making database connection in delphi xe2 is written.
Take TDatabase delphi component on you delphi form (dfm file). Now set following setting to TDatabase delphi component.
object database1: TDatabase
DatabaseName = 'YourDatabaseName'
DriverName = 'YourDriver'
LoginPrompt = False
SessionName = 'Default'
end
DatabaseName = 'YourDatabaseName'
DriverName = 'YourDriver'
LoginPrompt = False
SessionName = 'Default'
end
Now, come to your pas file and create a function say MakeConnection like below:
function TMyForm.MakeConnection;
begin
try
MyForm.database1.Close;
begin
try
MyForm.database1.Close;
MyForm.database1.Params.Values['SERVER NAME'] := Servername;
MyForm.database1.Params.Values['USER NAME'] := Username;
MyForm.database1.Params.Values['PASSWORD'] := Password;
MyForm.database1.Params.Values['USER NAME'] := Username;
MyForm.database1.Params.Values['PASSWORD'] := Password;
MyForm.database1.Open;
if database1.Connected then
ShowMessage('Database connected')
else
ShowMessage('Database could not be connected')
except
on E : Exception do
begin
ShowMessage('Database Connection Error: ' + E.Message);
exit;
end;
end;
end;
if database1.Connected then
ShowMessage('Database connected')
else
ShowMessage('Database could not be connected')
except
on E : Exception do
begin
ShowMessage('Database Connection Error: ' + E.Message);
exit;
end;
end;
end;
No comments:
Post a Comment