+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ماهو الخطأ في هذا الكود select type from login where email (/showthread.php?tid=9290)
ماهو الخطأ في هذا الكود select type from login where email - bac23 - 01-04-2018
ماهو الخطأ في هذا الكود ؟
PHP كود :
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select type from login where email = '''+edit1.text+''' ');
ADOQuery1.ExecSQL;
if not ADOQuery1.Eof = 'ADMIN' then
begin
form3.Show;
form2.Hide;
end
else
if ADOQuery1.Eof = 'USER' then
begin
form4.Show;
form2.Hide;
end;
RE: ماهو الخطأ في هذا الكود ؟ - S.FATEH - 01-04-2018
السلام عليكم عندما تستخدم Select في الـ Query اي ان الـ Query سيعيد سجلات لا تستخدم ExecSQL و انما استخدم Open يدلا من ذلك
جرب هكذا
PHP كود :
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select type from login where email = :email');
ADOQuery1.Parameters.ParamByName('email').Value := Edit1.Text;
ADOQuery1.Open;
if not ADOQuery1.Fields[0].AsString = 'ADMIN' then
begin
form3.Show;
form2.Hide;
end
else
if ADOQuery1.Fields[0].AsString = 'USER' then
begin
form4.Show;
form2.Hide;
end;
RE: ماهو الخطأ في هذا الكود ؟ - محمد الدرة - 01-04-2018
PHP كود :
if not ADOQuery1.Eof = 'ADMIN' then
الامر Eof يعيد فقط قيمة بوليانيه true or false هل وصل الى آخر سجل ام لا
فطريقة صياغتك للشرط خاطئة والصح انك اولاً تكتب الاستعلام التالي
PHP كود :
if ADOQuery1.fieldbyname('FieldName').value:='Admin';
أو
PHP كود :
if ADOQuery1.fields[Fields Number].value:='Admin';
RE: ماهو الخطأ في هذا الكود ؟ - bac23 - 02-04-2018
عند تنفيذ الكود هناك خطأ لم افهم؟؟
[dcc32 Error] Unit2.pas(43): E2015 Operator not applicable to this operand type
RE: ماهو الخطأ في هذا الكود ؟ - S.FATEH - 03-04-2018
السلام عليكم ما هو الكود الذي استخدمته ما هو نوع الحقل المستخدم