Delphi MySQL Help Needed

[SVB]

Im trying to learn MySQL with Delphi. Ive got it to connect to my database fine. Now Im trying to make it validate an entered username and password to the username and password on the database.
This code is for the login button action. It compiles, but when I click login, I get an error. How do I do this? Iim not sure what way to lay out the "enteredusername.Text", if it even needs .text etc. I think I need to use "pchar" somewhere, but arent sure where. Someone help!

 mysql_query(@sqlconnection, 'SELECT * FROM staff WHERE staffid = enteredusername.Text AND password= enteredpassword.Text');
      sqlresult := mysql_store_result(@sqlconnection);
      sqlrow := mysql_fetch_row(sqlresult);
      if sqlrow[1] = enteredpassword.Text
      then //The rest of the code....

[littleFella]

It looks to me like you're trying to use some sort of API or something, and it looks awfully similar to PHP way of doing things.

Aren't there any delphi components to connect to MySQL from Delphi? I thought there were. Try OpenSource components at http://www.zeoslib.net.

Having installed the components all you will have to (to mimic your code) do would be something like:

PHP Code:

mySQL.Close;
mySQL.SQL.UnPrepare;
mySQL.SQL.Prepare;
mySQL.SQL.Query.Text:='SELECT * FROM staff WHERE staffid =' + enteredusername.Text+  'AND password=' + enteredpassword.Text;
mySQL.SQL.Open; 


Traversing a dataset is done like this:

PHP Code:

SomeDataSet.First; // make sure you're at the begining
while not SomeDataSet.EOF do
begin
 // some code here such as:
 // Caption:=SomeDataSet.Fields[0].Value;
 //or 
 // Caption:=SomeDataSetFieldName.Value;
  SomeDataSet.Next;
end; 


If you have an option to use any database you pick, then try Firebird, which is closer to SQL compliance than MySQL, and unlike MySQL, it is trully free, even for commercial apps.

<edit: typos in code>

[SVB]

Thanks for that.
I finally got it to work by the following:

mysql_query(@sqlconnection, pchar('SELECT * FROM staff WHERE staffid = '+enteredusername.Text));
      sqlresult := mysql_store_result(@sqlconnection);
        if sqlresult.row_count = 0 then
           showmessage('Username does not exist')
        else
        begin
        sqlrow := mysql_fetch_row(sqlresult);
      if sqlrow[1] = enteredpassword.Text
      then // then else end code here