مشکل با ADO

[شفیعی]

سلام
من یک برنامه نوشته ام که یک بانک اطلاعاتی از نوع DBF را باز می کند و اطلاعات فارسی تحت داس موجود در این بانک را به فارسی تحت ویندوز تبدیل می کند قبلا این برنامه را با TABLE نوشته بودم وهیچ مشکلی نداشت ولی از آن موقعی که از ADO استفاده کرده ام مشکل پیدا کرده است اطلاعات پس از تبدیل در بانک ذخیره نمی شود و پیغام زیر را می دهد



procedure TForm1.N1Click(Sender: TObject);
VAR S,F:STRING;
begin
IF ADOTABLE1.Active THEN
BEGIN
F:=DBGrid1.SelectedField.DisplayName;
ADOTABLE1.First ;
S:=F+' آیا فیلد '+'تبدیل شود ؟';
if MessageDlg(S,mtconfirmation,[mbyes,mbno],0)=mryes then
WHILE NOT ADOTable1.EOF DO
BEGIN
IF NOT VARISNULL(ADOTABLE1[F]) THEN
BEGIN
S:=ADOTABLE1[F];
if TRIM(s) <> '' THEN
BEGIN
ADOTABLE1.Edit;
ADOTABLE1[F]:=FDOS_FWIN(S);
ADOTABLE1.Post;
END;
END;
ADOTABLE1.Next;
END;
END;
end;

[vcldeveloper]

من هم تو یه برنامه ای با همین پیغام مواجه شده بودم. پدرم رو در آورد.
اما مشکل من از داس به ویندوز نبود. بعد از یه خورده سر و کله زدن فهمیدم که اگر یه فیلد Auto Number به جدول اضافه کنم و اون فیلد رو به عنوان Key قرار بدم ...مشکل بر طرف می شه.
البته مشکل من در Access بود. نمی دونم این حرفا بدرت کار شما هم می خوره یا نه! :roll:

[hr110]

ظاهراً که مشکلی نیست، ولی یک راه دیگه را هم برای پییمایش جداول استفاده کن و اینبار از for و ADOTABLE1.RecNo:=I استفاده کن ممکن است مشکل سر اولین رکورد باشد.

[شفیعی]

سلام
خسته نباشید
دستور شما را انجام دادم ولی مشکل حل نشد

[سار]

میشه دو مطلب رو مشخص کنید که :
1)روی چندومین خط میاستد(Error میده)
2)تا چند رکورد و به عبارت بهتر تا کجا و چندومین رکورد رو آپ دیت میکنه؟

[شفیعی]

سلام
خسته نباشید
روی دستور زیر این پیغام را می دهد


ADOTABLE1.Post;

روی اولین رکورد این پیغام را می دهد

[moradi_am]

آقای شفیعی سلام
آیا در داخل تابع FDOS_FWIN روی جدول کاری انجام نمیدهید (مثلا Edit ) ؟

[شفیعی]

سلام


function fdos_fwin(FDW : STRING):STRING;
VAR FD:STRING;
T,T1:INTEGER;
SS:CHAR;
BEGIN
FD:=FDW;
FDW:='';
IF TRIM(FD) <> '' THEN
for t:=0 to length(FD) do
begin
ss:=FD[t];
T1:=Ord(SS);
case T1 of
1..127:
FDW:=FDW+SS;
128: FDW:=FDW+CHR(48);
129: FDW:=FDW+CHR(49);
130: FDW:=FDW+CHR(50);
131: FDW:=FDW+CHR(51);
132: FDW:=FDW+CHR(52);
133: FDW:=FDW+CHR(53);
134: FDW:=FDW+CHR(54);
135: FDW:=FDW+CHR(55);
136: FDW:=FDW+CHR(56);
137: FDW:=FDW+CHR(57);

138: FDW:=CHR(161)+FDW;
139: FDW:=CHR(220)+FDW;
140: FDW:=CHR(191)+FDW;
141: FDW:=CHR(194)+FDW;
142: FDW:=CHR(198)+FDW;
143: FDW:=CHR(193)+FDW;
144: FDW:=CHR(199)+FDW;
145: FDW:=CHR(199)+FDW;
146: FDW:=CHR(200)+CHR(157)+FDW;
147: FDW:=CHR(200)+FDW;
148: FDW:=CHR(129)+CHR(157)+FDW;
149: FDW:=CHR(129)+FDW;
150: FDW:=CHR(202)+CHR(157)+FDW;
151: FDW:=CHR(202)+FDW;
152: FDW:=CHR(203)+CHR(157)+FDW;
153: FDW:=CHR(203)+FDW;
154: FDW:=CHR(204)+CHR(157)+FDW;
155: FDW:=CHR(204)+FDW;
156: FDW:=CHR(141)+CHR(157)+FDW;
157: FDW:=CHR(141)+FDW;
158: FDW:=CHR(205)+CHR(157)+FDW;
159: FDW:=CHR(205)+FDW;
160: FDW:=CHR(206)+CHR(157)+FDW;
161: FDW:=CHR(206)+FDW;
162: FDW:=CHR(207)+FDW;
163: FDW:=CHR(208)+FDW;
164: FDW:=CHR(209)+FDW;
165: FDW:=CHR(210)+FDW;
166: FDW:=CHR(142)+FDW;
167: FDW:=CHR(211)+CHR(157)+FDW;
168: FDW:=CHR(211)+FDW;
169: FDW:=CHR(212)+CHR(157)+FDW;
170: FDW:=CHR(212)+FDW;
171: FDW:=CHR(213)+CHR(157)+FDW;
172: FDW:=CHR(213)+FDW;
173: FDW:=CHR(214)+CHR(157)+FDW;
174: FDW:=CHR(214)+FDW;
175: FDW:=CHR(216)+CHR(157)+FDW;
176..223 : FDW:=CHR(35)+FDW;
224: FDW:=CHR(217)+CHR(157)+FDW;
225: FDW:=CHR(218)+CHR(157)+FDW;
226: FDW:=CHR(218)+CHR(157)+FDW;
227: FDW:=CHR(218)+FDW;
228: FDW:=CHR(218)+FDW;
229: FDW:=CHR(219)+CHR(157)+FDW;
230: FDW:=CHR(219)+CHR(157)+FDW;
231: FDW:=CHR(219)+FDW;
232: FDW:=CHR(219)+FDW;
233: FDW:=CHR(221)+CHR(157)+FDW;
234: FDW:=CHR(221)+FDW;
235: FDW:=CHR(222)+CHR(157)+FDW;
236: FDW:=CHR(222)+FDW;
237: FDW:=CHR(223)+CHR(157)+FDW;
238: FDW:=CHR(223)+FDW;
239: FDW:=CHR(144)+CHR(157)+FDW;
240: FDW:=CHR(144)+FDW;
241: FDW:=CHR(225)+CHR(157)+FDW;
242: FDW:=CHR(225)+CHR(199)+FDW;
243: FDW:=CHR(225)+FDW;
244: FDW:=CHR(227)+CHR(157)+FDW;
245: FDW:=CHR(227)+FDW;
246: FDW:=CHR(228)+CHR(157)+FDW;
247: FDW:=CHR(228)+FDW;
248: FDW:=CHR(230)+FDW;
249: FDW:=CHR(229)+CHR(157)+FDW;
250: FDW:=CHR(229)+FDW;
251: FDW:=CHR(229)+FDW;
252: FDW:=CHR(237)+CHR(157)+FDW;
253: FDW:=CHR(237)+CHR(157)+FDW;
254: FDW:=CHR(237)+FDW;
255: FDW:=CHR(255)+FDW;
end;
end;
FDOS_FWIN:=FDW;
END;

[شفیعی]

سلام
در تابع بالا یک مشکل است وقتی اعداد را تبدیل می کند اعداد معکوس می شوند مثلا اگر درفیلد بانک اطلاعاتی نوشته ایم 39-13 پس از تبدیل می شود 13-39

[شفیعی]

سلام
پس تبدیل اطلاعات فارسی تحت داس به ویندوز . تصمیم گرفتم اطلاعات فارسی تحت ویندوز را به فونتهای IPT تبدیل کنم ولی کمی مشکل است چون برای این کار باید حروف قبل و بعد حرف مورد نظر رانیز چک نمود کسی از دوستان در این زمینه الگوریتم ویا طرحی برای راحتی کار ندارد