[Lazarus] SQL select problem

[Eric Kom]

On 20/11/2012 15:20, Luk Vandelaer wrote:
> You don't leave the while loop when you found the correct user.
Thanks again Luk,
>
> For each record there will be a showstring call processed.
>
> It should be something like:
>
> var found: boolean;
> ....
>        found := false;
>        while not SQLQueryMySQL.EOF and not found do begin
>           //Retrieved data fields and assigned to a string variables
>           retUsername := SQLQueryMySQL.Fields[0].AsString;
>           retPassword := SQLQueryMySQL.Fields[1].AsString;
>           found :=  (getUsername = retUsername) AND
>              (getPasswordHash = retPassword);
>           SQLQueryMySQL.Next;
>          end;
>        if found then begin
>              retFullname := SQLQueryMySQL.Fields[2].AsString;
>              ShowString('Retrieving information for: ' + retUsername);
>              StatusBarLogin.Update;
>              sleep(2000);
>              ShowString('Connected to server as: ' + retUsername +
> 		', known as ' + retFullname);
>        end
>        else
>              ShowString('Failed to connect using: ' + getUsername);
By putting the retFullname := SQLQueryMySQL.Fields[2].AsString; 
statement after the SQLQueryMySQL.Next; statement,  this last statement 
makes  the  field fullname to jump to the next row, by selecting a wrong 
fullname for the credentials on check.

anyway thanks again for your debugging.
>
> Luk
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>


-- 
Kind Regards

Eric Kom

System Administrator - Metropolitan College
  _________________________________________
/ You are scrupulously honest, frank, and \
| straightforward. Therefore you have few |
\ friends.                                /
  -----------------------------------------
    \
     \
         .--.
        |o_o |
        |:_/ |
       //   \ \
      (| Kom | )
     /'\_   _/`\
     \___)=(___/

2 Hennie Van Till, White River, 1240
Tel: 013 750 2255 | Fax: 013 750 0105 | Cell: 078 879 1334
erickom at kom.za.net | erickom at metropolitancollege.co.za
www.kom.za.net | www.kom.za.org | www.erickom.co.za

Key fingerprint: 513E E91A C243 3020 8735 09BB 2DBC 5AD7 A9DA 1EF5