关于delphi用TADOQuery连接数据库的问题

Question

各位大牛帮看下 我连接SQL数据库的流程哪里出错了。1.先在一个工程中添加一个VCL Form 和一个Data Module--
2.然后在DataModule中添加一个TADOConnection 并选择相应的数据库----显示测试成功 点击OK在指定ADOConnection的Mode属性为ShareDenyNone.
然后就在VCL Form里写上相关代码 只为测试是否连接成功

Answer 1

ADOConnection的Mode属性为ShareDenyNone，这个不需要设置，如果“测试连接”成功，就可以直接使用了。

Answer 2

测试成功后，将loginPrompt:=false;Connected:=true;就OK了。

Answer 3

学习一下，我只会用ODAC连Oracle，现在又会了ADO访问SQL哈。感谢~！

Answer 4

一般能选到数据库连接就是正确的，是不是没有最先创建DataModule窗体，或是 adoconnection的连接没有设置为真，或是你的adoquery没有连接上adoconection

Answer 5

谢谢楼上朋友的帮助 其实我帖子只发了一半 
中间有点事情 因为是贴图 帖子流程比较多久先点击 分布了 现在我继续把我的问题描述完。上面说在VCL Form里写代码了。 
代码如下
工程文件：project2.exe
program Project2;uses
  Forms,
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {DataModule3: TDataModule};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TDataModule3, DataModule3);
  Application.Run;
end.-------
Unit2
program Project2;uses
  Forms,
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {DataModule3: TDataModule};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TDataModule3, DataModule3);
  Application.Run;
end.------
Unit3
unit Unit3;interfaceuses
  SysUtils, Classes, DB, ADODB;type
  TDataModule3 = class(TDataModule)
    ADOConnection1: TADOConnection;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  DataModule3: TDataModule3;implementation{$R *.dfm}end.
为什么显示出‘Start!’消息框后就提示连接数据库错误？
显示不了下面的那个'Success!'消息框？
顺便问句怎么上传压缩的代码文件。

Answer 6

不好意思 发的太匆忙了 
后来仔细看了 各位给的意见原来xiaojun5556朋友说的对 要把连接数据库的DataModule先运行。
再发一下代码 .
project2
program Project2;uses
  Forms,
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {DataModule3: TDataModule};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TDataModule3, DataModule3);
  Application.CreateForm(TForm2, Form2);
  //Application.CreateForm(TDataModule3, DataModule3);
  Application.Run;
end.
--Unit2
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB;type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation
uses
  Unit3;
{$R *.dfm}procedure TForm2.FormCreate(Sender: TObject);
var
  Query: TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  ShowMessage('Start!');
  Query.Connection := DataModule3.ADOConnection1;
  ShowMessage('Success!');
end;end.
--
Unit3
unit Unit3;interfaceuses
  SysUtils, Classes, DB, ADODB;type
  TDataModule3 = class(TDataModule)
    ADOConnection1: TADOConnection;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  DataModule3: TDataModule3;implementation{$R *.dfm}end.这样就能成功连接数据库了 
再次谢谢各位帮忙。