مشكل اينك كد چي ميتونه باشه

[hentjanson]

سلام چرا من در اين كد با خطا مواجه ميشم قبلا از اين استفاده كردم ولي حالا اين خط رو ارور ميده ؟


IF (DataModule2.ADOTable1.Locate('namketab',maskedit1 .Text,[loPartialKey]))=True then
Showmessage (' ! ßÊÇÈ ÝæÞ ÞÈáÇ ËÈÊ ÑÏíÏå ÇÓÊ ')

[s.mostafa.rahmani]

مي‌شه لطف كنيد و خطاش رو بنويسيد

[m-khorsandi]

اول اينكه بايد پيغام خطا رو بنويسی چون ما نميتونيم حدس بزنيم.
دوم، دليل اصلی بوجود اومدن خطا اين هست كه اطلاعاتی در مورد چیزی كه مينويسی نداری.

[Hsimple11]

دستور Locate را در Help دلفی ببینید پارامترهای آن دقیقا به چه چیزی ربط پیدا میکند . بعد اشکال کار خود را حتما پیدا میکنید.

موفق باشید...

[hentjanson]

اين كد منه كه درون يك دكمه نوشتم قبلا اينو استفاده كردم الان برام جايه تعجب داره خطا ميگيره


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
IF (DataModule2.ADOTable1.Locate('namketab',maskedit1 .Text,[loPartialKey]))=True then
Showmessage (' ! ßÊÇÈ ÝæÞ ÞÈáÇ ËÈÊ ÑÏíÏå ÇÓÊ ')
Else Begin
DataModule2.ADOTable1.Insert;
if maskedit2.text='' then showmessage('ÔãÇÑå ÔÇÈß ßÊÇÈ ÑÇ æÇÑÏ ßäíÏ')else
if maskedit3.text='' then Showmessage('äÇã ßÊÇÈ ÑÇ æÇÑÏ ßäíÏ') else
if maskedit4.text='' then Showmessage('äÇã ÎÑíÏÇÑ ÑÇ æÇÑÏ äãÇííÏ') else
With DataModule2 Do
Begin
ADOTable1.Insert;
ADOTable1.Edit;
ADOTable1number.AsString := maskEdit1.Text;
ADOTable1isbn.AsString := maskEdit2.Text;
ADOTable1namketab.AsString := maskEdit3.Text;
ADOTable1name.AsString := maskEdit4.Text;
ADOTable1tedad.AsString := maskEdit6.Text;
ADOTable1fe.AsString := maskEdit7.Text;
ADOTable1gheymat.AsString := maskedit8.Text;
ADOTable1Date.AsString := PrintNormal;
ADOTable1.Post;
BitBtn1.Enabled:=false;
Button1.Enabled:=true;
end;
end;
end;

[s.mostafa.rahmani]

داداش قرار شد خطاشو بنويسي :عصبانی::عصبانی++:

[hentjanson]

اين خط


IF (DataModule2.ADOTable1.Locate('namketab',maskedit1 .Text,[loPartialKey]))=True then

اين پيام


[Error] Unit1.pas(55): Undeclared identifier: 'loPartialKey'

[merced]

تو ليست uses , بايد DB رو اضافه کني

[hentjanson]

متجه نشدم ميشه واضح تر بگي

[Hamid_PaK]

اشکال از بانک هست، قبلا اندکس داشته ولی الان مشکلی براش بوجود اومده.

یا حق ...

[hentjanson]

دوستان در شرايط فعلي بايد چكار كنم بانك رو دوباره ايجاد كنم ميشه كمك كنيد در اين رابطه ؟

[hentjanson]

سلام به تمام دوستان هر كاري ميتونستم انجام دادم بانك رو حتي دوباره ساختم بازم نشد برنامه رو ميزارم ببنيد .

[s.mostafa.rahmani]

دوستان گفته بودند كه DB رو در قسمت uses اضافه كنيد درسته ميشه.

اين هم درست شده‌اش:
21216