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

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor ( If you're looking for how to monitor bandwidth using netflow or packet s…

760 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now