Printable View
با سلام
قصد دارم با استفاده از یک پروسیجر و فرستادن پارامتر آن از طریق یک Editbox روی یک جدول عملیات جستجو را انجام بدهم
کد پروسیجر با شکل زیر است:
کد:
کد دلفی هم یه شکل زیر:کد:create procedure p1 (@a int)
as
Select * from services
where ids = @a
کد:
لطفا راهنمایی کنید که چرا بدون دادن خطا هیچ اتفاقی در جدول رخ نمیدهکد:ADOStoredProc1.Parameters.ParamByName('@a') .Value := edit1.Text;
ADOStoredProc1.ExecProc;
ADOTable1.active := false;
ADOTable1.active := true;
با تشکر
سلام.
من یک برنامه با دلفی دارم و می خواهم در فرم اول آن user و pass را از کاربر بگیرم اگر درست بود کاربر وارد بشه .
برای همین هم در sql یک table با نام های user و pass ایجاد کردم و مقدار 1 را درون هر دو فیلد ریختم .
بعد در دلفی روی باتن این کد را نوشتم :
if edit1.text= adotable1.fieldbyvalue('user') and edit2.text=adotable1.fieldbyvalue('pass') then
form2.show
خطا نمی گیره ولی اجرا هم نمیشه یعنی فرم 2 را نشون نمیده.
تشکر.
با سلام من با یه کوئری برات توضیح میدم حالا اگه خواستی به روش خودتم این کارو بکن
موفق باشیکد:selec * from table1 where ((user='''+edit1.text+''')and (pass='''+edit2.text+'''))
adoquery.open
if adoquery.recordcount=1 then
begin
form 2.show
سلام دوست عزیز.
دستور شما درست ولی می خواستم بدانم اولا مشکل دستور من کجاست و ثانیا اگر بخواهم دستور خودم را با پروسیجر بنویسم چطوری می شه این کار را کرد ؟
تشکر
اون قسمت شرطتو توی یه پرانتز بذار ببین درست میشه یا نه
اینجوریش کن
کد:if ((edit1.text= adotable1.fieldbyvalue('user')) and (edit2.text=adotable1.fieldbyvalue('pass'))) then
begin
form2.show
سلام.
این کاررا کرده بودم ولی در اینجا یادم رفته بود بنویسم ولی باز هم جواب نمی دهد .
سلام.
من این sp را نوشتم و با دلفی هم به آن وصل شدم ولی مثل اینکه جستجو جوابی پیدا نمیکنه یعنی recordcount صفر است :
create procedure enterk (@use nvarchar(10),@pas nvarchar(10))
as
begin
select * from enteruse where
usern=@use and pass=@pas
end
و این دستورات را هم در دلفی نوشتم :
ADOStoredProc1.Parameters.ParamByName('@use').Valu e :=edit1.Text ;
ADOStoredProc1.Parameters.ParamByName('@pas').Valu e :=edit2.Text ;
ADOStoredProc1.ExecProc ;
if ADOStoredProc1.RecordCount =1 then
begin
form2.Show ;
form1.Hide;
end;
سلام .
اگر بخواهم دستور insert را مانند تاپیک 5 بنویسم چطوری میشه ؟
تشکر.
سلام دوست عزیز ، هر چند میدونم دیر شده واسه جواب ، ولی احتمال میدم به درد بعضی های دیگه بخوره .جواب شما میشه این :
ضمنا بایستی در قسمت uses این رو هم اضافه کنید (db)کد:
if dm.users.Locate('id;password;',VarArrayOf([Edit1.Text,MaskEdit1.Text]),[loCaseInsensitive]) then
begin
form2.show();
else
begin
ShowMessage('error in user or pass');
edit1.Clear;
MaskEdit1.Clear;
Edit1.SetFocus;
end;