Connect to the sql server

Posted on 2000-02-23
Last Modified: 2010-04-04
I wrote a simple client program which connect to sql server. In the program, i have a data module which has a "database" component. During design time, I supply the parameters : "username = sa
              password = sa" which should provide the right login name & password. Somehow, everytime, the program running, it has error message;
  "invalid username & password, login failed". I changed the "database" property allow the "login prompt" as "true", that way, the program running fine with the sql login box come up every time. ( and I provide sam e user name and password to it). I don't understand why this could happen?
Is there any way I can succeed to connect sql database without the login prompt coming up?

Question by:llucy88
  • 2

Accepted Solution

ZifNab earned 60 total points
ID: 2551453
you can try this :

 procedure TForm1.Database1Login(Database: TDatabase;
         LoginParams: TStrings);
   {The Event OnLogin from TDataBase}
      LoginParams.Values['USER NAME'] := 'YourUserName';
      LoginParams.Values['PASSWORD'] := 'YourPassWord';

I think is has to be user name= ... and password= ...


Expert Comment

ID: 2551467
sorry i meant:  

in design-mode

username=username and password=password (perhaps the spaces are the problem)

the code above is for run-time.

LVL 27

Expert Comment

ID: 2551668
hi llucy, zif,

sometimes its nice to see fragments from my paqs ;-)
here the whole answer for the direction that zif meant

--- begin paste

                   use the TDatabase Component,
                   give on the Property DataBaseName a name
                   give on the Property AliasName the Name of the Alias you want to use

                   on the TTable(s) and/or TQuery(s) Components you use the Property DataBaseName should
                   have the same entry as TDataBase.DataBaseName.

                   Now you can use Following code :

                   procedure TForm1.Database1Login(Database: TDatabase;
                     LoginParams: TStrings);
                   {The Event OnLogin from TDataBase}
                     LoginParams.Values['USER NAME'] := 'YourUserName';
                     LoginParams.Values['PASSWORD'] := 'YourPassWord';

                   procedure TForm1.BitBtn1Click(Sender: TObject);
                     {Connect Now}
                     database1.connected := true;

--- end paste

good luck on the try


Author Comment

ID: 2551683
On design time, the space was the problem. It should as "USER NAME" in
stead of " USERNAME".


Featured Post

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Intraweb submit form as a POST request 4 323
Path  to current project in Delphi. 2 92
Delphi XE10, MySQL Query 4 164
can i put an image from resource into image tag ? 6 26
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit If you want to manage em…

839 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question