Problemas com Conexão SQL 2005- Delphi 7

[userjin 11]

Bem Pessoal, estou criando minha aplicação seguindo tutoriais na internet.

configuro o ADOConnection e coloco o ADOQuery na ****. mas não adianta! Fica dando erro! Vejam

 

 

Alguem me ajuda?

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, StdCtrls, XPMan;

 

type

TForm1 = class(TForm)

ADOQuery1: TADOQuery;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

*****1: T*****;

*****2: T*****;

XPManifest1: TXPManifest;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Try

with ADOQuery1 do

begin

SQL.Clear;

SQL.Add('select * from Usuario where login ='+QuotedStr(Edit1.Text)+'and senha ='+QuotedStr(Edit2.Text));

ADOQuery1.Open;

if ADOQuery1.RecordCount <> 0 then

begin

ShowMessage('Usuario Valido');

end else

ShowMessage('Usuario Invalido!');

end;

Except

On E : Exception do

ShowMessage('Conexão perdida!'+E.Message);

 

end;

end;

 

end.

[/qoute]

[AceStryker 32]

Acho que a sua checagem esta dando erro, porque sempre esta caindo na exception, tente isso daqui:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se