SQL Update not working ? why ?

From: Skybuck Flying (nospam_at_hotmail.com)
Date: 03/29/04 

Date: Mon, 29 Mar 2004 08:47:26 +0200

Hello

If I add multiple players with a different name but with the same password
this update does not work ? why ?

For example:

Player1 Password
Player2 Password
Player3 Password

What's the problem ?

 // login player

 // change game settings

 { close query }
 ADOQuery1.Close;

 { clear parameters }
 ADOQuery1.Parameters.Clear;

 { player name }
 with ADOQuery1.Parameters.AddParameter do
 begin
  Name := 'PlayerName';
  DataType := ftString;
  Value := EditPlayerName2.Text;
 end;

 { player password }
 with ADOQuery1.Parameters.AddParameter do
 begin
  Name := 'PlayerPassword';
  DataType := ftString;
  Value := EditPlayerPassword2.Text;
 end;

 { player public ip address }
 with ADOQuery1.Parameters.AddParameter do
 begin
  Name := 'PlayerPublicIPAddress';
  DataType := ftString;
  Value := EditPlayerPublicIPAddress.Text;
 end;

 { player public udp port }
 with ADOQuery1.Parameters.AddParameter do
 begin
  Name := 'PlayerPublicUDPPort';
  DataType := ftString;
  Value := EditPlayerPublicUDPPort.Text;
 end;

 { player logged in }
 with ADOQuery1.Parameters.AddParameter do
 begin
  Name := 'PlayerLoggedIn';
  DataType := ftBoolean;
  Value := TRUE;
 end;

 { player timestamp }
 with ADOQuery1.Parameters.AddParameter do
 begin
  Name := 'PlayerTimeStamp';
  DataType := ftDateTime;
  Value := Now;
 end;

 ADOQuery1.SQL.Text := 'UPDATE TablePlayer ' +
        'SET PlayerLoggedIn = :PlayerLoggedIn, ' +
        'PlayerTimeStamp = :PlayerTimeStamp, ' +
        'PlayerPublicIPAddress = :PlayerPublicIPAddress, ' +
        'PlayerPublicUDPPort = :PlayerPublicUDPPort ' +
        'WHERE ( (PlayerName = :PlayerName) AND (PlayerPassword =
:PlayerPassword) )';
 ADOQuery1.ExecSQL;

Skybuck.

Relevant Pages

  • Re: SQL Update not working ? why ?
    ... // login player ... {close query} ... DataType:= ftString; ...
    (borland.public.delphi.database.ado)
  • Re: SQL Update ?
    ... // login player ... {close query} ... DataType:= ftString; ...
    (alt.comp.lang.borland-delphi)