مشکل در کار با memo و ذخیره آن در بانک

سلام
اساتید محترم به کمکتون محتاجم
من میخوام یه متن را که در memo یا richedit هر کدام که باشه در بانک sql 2000 ذخیره کنم واسه ذخیره مشکلی ندارم مشکلم اینجاست که تمام خطهای نوشته ام را هر کدام در یه سلول فیلدم قرار میده که من میخوام مثل edit در یه سلول باشه تمام متنم چون در هنگام برگشتش یعنی انتقال اطلاعات memo از بانک به نرم افزار فقط خط اول یا متن اولین سلول به نرم افزار میاد حالا یه راه حلی جلو پام بذارید مهم نحوهی ذخیره اش در بانک نیست فقط جوری حل شه مشکل ممنون میشم گشتم راه حلش نبود تو سایت بدجور گرفتارم مرسی فقط اگه امکان داره یه راه حل با مثال یه با کد نمونه باشه ممنون میشم

دوست عزیز. چرا از DBMemo استفاده نمیکنی؟

از چه کدی برای انتقال اطلاعات از Memo به فیلدت استفاده میکنی؟

سلام مرد مباح عزیز استاد بزرگوار
مرسی که همیشه اولی
dbmemo رو کجا باید پیدا کرد
من از کد

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
 begin
    ADOTable1.Append;
    ADOTable1['a']:=RichEdit1.Lines.Text;
    ADOTable1.Post;
  end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Active:=false;
ADOTable1.Active:=true;
ADOTable1.Open;
ADOTable1.First;
begin
RichEdit1.Lines.Text:=ADOtable1.FieldValues['a'];
exit;
end;
end;

---

که یکی وارد میکنه یکی بر میگردونه استفاده کردم که کار میکنه حالا کوئری این دستور چی میشه با کوئری نتونستم درستش کنم اگه مشه کمک کنی ممنونم
بازم مرسی

توی تب DB access یک کامپوننت با این نام هست و میتوی از اون استفاده کنی و کارت راحت حل میشه.
من تا حالا این کارو با کد نکردم ولی به نظرم چندتا مشکل توی کدت هست.

به هر حال به کد نیازی نداری.

سلام
داداش
حالا با این کد

کد:

---

begin
b.SQL.Clear;
b.Close;
b.SQL.add('insert into a(a) values('''+memo1.Lines.Text+''');');
b.Open;
end;

---

با این کوئری در بانک ذخیره میشه ولی یه خطا میده که میگه
command text dose not return a result set
در ضمن من از دلفی 7 استفاده می کنم هر چقدر توی تب هاش گشتم این تبی که گفتین رو پیدا نکردم
توی پکیج هاشم گشتم نبود
مرسی بازم
مشکل این خطا چیه

1. من هم از دلفی 7 استقاده میکنم. تا جایی که یادم میاد اسم دقیقش DataAccess هست و اسم کامپوننت هم DBMemo.
امکان نداره نباشه. چون به صورت پیش فرض با خود دلفی نصب میشه. ولی اگه بازم پیداش نکردی حتما دلفی رو دوباره اینستال کم.
خیلی کارهاتو توی کار با دیتابیس راحت میکنه.

2. ننوشتی که B از چه نوع کامپوننتی هست. ولی از Errorی که میبینم میتونم حدث بزنم که ADOQuery هستش. برای این کار از ADOCommand توی خود تب ADO استفاده کن تا مشکلت حل بشه و ارر نده.

سلام. در مورد پیغام خطا حق با مرد مباح عزیز هست. ضمن اینکه اگر اصرار به استفاده از adoQuery دارید به جای متد Open باید از ExecSql استفاده کنید

با سلام
و تشکر از توجه تون
راستش مر مباح عزیز من با adocommand تا حالا کار نکردم نمیدونم نحوه کار باهاش چه جوری
ولی مشکلم رو با همون کوئری حل کردم و نوشتم من یه جدول ثبت سند دارم که برای 4 قسمتش از ممو استفاده میکنم تمام ایرادای که داشت رو گرفتم کد من اینه

کد:

---

data.s_vekalat.SQL.Clear;
data.s_vekalat.Close;
data.s_vekalat.SQL.add('insert into s_vekalat(code_m,safe,jeld,shomare,shomare_ab,hoze,h_sabt,h_tahrir,b_oragh,b,kol,noe_s,shomare_a,hoze_a,moakel,vakil,m_v,ekhtiarat,tarikh,tarikh_a)values('''+edit22.Text+''','''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+edit6.Text+''','''+edit7.Text+''','''+edit8.Text+''','''+edit9.Text+''','''+edit10.Text+''','''+edit11.Text+''','''+edit12.Text+''','''+edit13.Text+''','''+memo1.Lines.Text+''','''+memo2.Lines.Text+''','''+memo3.Lines.Text+''','''+memo4.Lines.Text+''','''+maskedit1.Text+''','''+edit16.Text+''')');
data.s_vekalat.ExecSQL;
showMessage('ÇØáÇÚÇÊ ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ');

---

من این کد رو واسه تمام جدول هام به کار بردم هیچ کدام مشکلی نداشته غیر این یکی که چون از ممو استفاده کردم و ناچارم استفاده بکنم گیر کردم
که حالا ایرادی گرفت که مغز من نکشید که از کجاست اررش اینه
string or binary data would be truncated
نمیدونم مشکلش از کجاست اگه راهنمایی کنید ممنونم
از دوست عزیز فرهاد جون نیز ممنون

دوست عزیز. من واقعا نمیدونم چرا اینقدر قضیه رو سخت میکنی. وافعا دلیلی داره که از DBMemo استفاده نمیکنی؟
من قبلا هم عرض کردم که خودم تا حالا با کد اطلاعات توی Memo نریختم پس نمیتونم کمک خوبی باشم ولی خود دلفی برای این کار کامپوننت داره و استفاده از اون منطقیه.
چیز دیگه ای هم در این مورد نمیدونم که بتونم بیشتر کمکتون کنم.

سلام دادش مباح
من طبق گفته شما عمل کردم و به جای ممو از dbmemo استفاده کردم با این کد

کد:

---

data.s_vekalat.SQL.Clear;
data.s_vekalat.Close;
data.s_vekalat.SQL.add('insert into s_vekalat(code_m,safe,jeld,shomare,shomare_ab,hoze,h_sabt,h_tahrir,b_oragh,b,kol,noe_s,shomare_a,hoze_a,moakel,vakil,m_v,ekhtiarat,tarikh,tarikh_a)values('''+edit22.Text+''','''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+edit6.Text+''','''+edit7.Text+''','''+edit8.Text+''','''+edit9.Text+''','''+edit10.Text+''','''+edit11.Text+''','''+edit12.Text+''','''+edit13.Text+''','''+dbmemo1.Lines.Text+''','''+dbmemo2.Lines.Text+''','''+dbmemo3.Lines.Text+''','''+dbmemo4.Lines.Text+''','''+maskedit1.Text+''','''+edit16.Text+''')');
data.s_vekalat.ExecSQL;
showMessage('ÇØáÇÚÇÊ ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ');

---

حالا ایراد بر طرف شده یعنی ارر نمیگیره ولی در پایگاه داده اطلاعاتی رو که توی dbmemo دارم داخل بانکم ذخیره نمیکنه فیلدای داخل بانک خالیه
من با همون ممو بالاخره فهمیدم مشکلش از کجاست مشکلش اینه که مثلا من داخل ممو تایپ میکنم پوریا رستمی ذخیره میکنه ولی وقتی فاصله بین پوریا و رستمی زیاد میشه یعنی میشه پوریا رستمی اون ارر رو میگیره که البته این مشکل با تایپ انگلیسی وجود نداره با تایپ فارسی مشکل داره به دادم برسید

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

با سلام خدمت دوستان عزیز
من یه سوال داشتم با یه مثال توضیح میدم
من یه ممو دارم که نوشته ی داخل یک edit رو هر بار با زدن دکمه ای میندازم تو ممو حالا سوال من اینه که من میخوام وقتی نوشته ی اول رو وارد ممو کردم نوشته ی دوم در همون خط در ادامه ی نوشته ی اولیم باشه یعنی بعد از وارد شدن بره بعد از نوشته ای که اول وارد کردم قرار بگیره ممنون میشم که بگید چطوری این کار رو بکنم
من از این کد برای وارد کردن نوشته ی edit ام استفاده می کنم ولی وقتی نوشته ی دوم رو وارد میکنم میره در خط دوم ممو قرار میگیره

کد:

---

memo1.Lines.Add(edit23.Text

---

کد:

---

Memo1.Text:=Memo1.Text+Edit1.Text;

---

با تشکر داش فرهاد
یه سوال دیگه اگه مموی ما خودش به صورت پیش فرض یک مقداری داخلش باشه بعد که مقدار edit رو وارد میکنیم مقدار اون رو در خط دوم وارد میکنه یعنی اگه خود ممو حاوی مقداری باشه بعد که برنامه رو اجرا میکنیم مکان نما خودش به خط دوم میره اگه بخوایم همون خط اول بره باید چیکار کنیم
بازم مرسی از جواب سریعت خیلی سالاری

کد:

---

Memo1.Text:=Trim(Memo1.Text)+Edit1.Text;

---

داش فرهاد خیلی سالاری به خدا ممنون
اگه یه توضیح کوچیک راجب به این trim بدی که چیه و کارش چیه ممنون میشم
بازم مرسی سالار

توضیح help دلفی کامل تر از توضیحی هست که من میتونم بدم:

نقل قول:

---

Trims leading and trailing spaces and control characters from a string.

Unit

SysUtils

Category

string handling routines

Delphi syntax:

function Trim(const S: string): string; overload;

function Trim(const S: WideString): WideString; overload;

C++ syntax:

extern PACKAGE AnsiString __fastcall Trim(const AnsiString S);

extern PACKAGE WideString __fastcall Trim(const WideString S);

Description

Trim removes leading and trailing spaces and control characters from the given string S.

---

شاد باشید

با سلام
اگه من بخوام با تیک زدن یه چک باکس وارد ممو بشم چطوری باید این کارو بکنم البته بدون دستور setfocus یعنی اینکه وقتی چک باکس رو زدم وارد ممو بشه و وقتی غیر فعالش کردم از ممو خارج بشه ممنون میشم جواب بدین

با سلام
فکر کنم اگر کد زیر را در رویداد click ان checkbox بنویسید جواب دهد :

if checkbox1.checked then

ActiveControl:=Memo1
else
ActiveControl:=checkbox1;

البته اگر بگردید کدهای بهتری پیدا میکنید.
با تشکر

با تشکر از M.Hashemi
ولی این کد مشکل من رو حل نکرد یه توضیح بیشتر بدم
مشکل من اینه که من داخل ممو یه مقداری دارم مثلا نوشتم سلام مموی من enable ش false وقتی که روی چک باکس کلیک میکنم enable رو برام true میکنه و وارد ممو میشه و باید بعد از نوشته یداخل ممو مکان نما قرار بگیره که قبلا داش فرهاد کدی رو به من داد که اونم امتحان کردم جواب نداد کدای داخل چک باکس من اینه

کد:

---

begin
if checkbox1.Checked=true then
begin
memo3.Enabled:=true;
//memo3.SetFocus;
memo3.Color:=clWhite;
Memo3.Text:=Trim(Memo3.Text);
end
else
memo3.Enabled:=false;
end;

---

l
که با دستور setfocus وارد ممو که میشه دیگه نمیگذاره که چک باکس رو غیر فعال کنم
ممنون میشم کمک کنید

یعنی هیچ راه حلی نداره این سوال
فقط با setfocus باید وارد شد؟

با سلام
اگر به جای دستور setfocus از دستور ActiveControl استفاده بکنید مشکلی نخواهید داشت
کد زیر را در رویداد click چک باکس بنویسید.

if CheckBox1.Checked then
begin
Memo1.Enabled:=true;
ActiveControl:=memo1;
end
else
memo1.Enabled:=false;
end;

این کد را در دلفی 2010 امتحان کردم کار کرد.
با تشکر

سلام دوست عزيز
براي حل اين مشكلي كه داري فرقي نميكنه از DBMemo استفاده كني يا از Memo ولي به جاي Memo1.Lines.Text يا DBMemo.Lines.Text بنويس Memo.text يا DBMemo.Text
اما اگه من به جاي شما باشم به جاي اينهمه كد SQL نوشتن توي دلفي كه با توجه به نياز به كوتيشن گذاري كار سختي هم هست از Stored Procedur هاي SQLServer استفاده ميكردم
تو اين زمينه اگه مايل بودي بگو تا برات توضيح كامل تر همراه با مثال برات بگذارم
موفق باشي.

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