PDA

View Full Version : کپی کردن آیتم های listbox در database


ali643
یک شنبه 09 مرداد 1384, 19:02 عصر
سلام

با یه حلقه for محتویات یه لیست باکس رو در دیتابیس ذخیره کردم اما در هر رکورد تمام محتویات لیست باکس ذخیره شده است و به تعداد آیتم های لیست باکس رکورد اضافه شده
چیکارش کنم که اینجوری نشه؟؟

مرسی
vcldeveloper
دوشنبه 10 مرداد 1384, 02:28 صبح
AdoTable1.Active := True;
AdoTable1.FieldByName('Your_Field').AsString := ListBox1.Items.CommaText;

با دستور بالا کل مقادیر موجود در لیست باکس به فیلد Your_Field اضافه میشه - فقط یک رکورد.
ali643
دوشنبه 10 مرداد 1384, 16:57 عصر
اگه بخوایم به چند تا رکورد اضافه بشه چیکارش کنیم
vcldeveloper
سه شنبه 11 مرداد 1384, 01:50 صبح
اگه بخوایم به چند تا رکورد اضافه بشه چیکارش کنیم
من متوجه منظور شما نمیشم، ما که در پست قبلی خودتون عنوان کردید که :

اما در هر رکورد تمام محتویات لیست باکس ذخیره شده است و به تعداد آیتم های لیست باکس رکورد اضافه شده
چیکارش کنم که اینجوری نشه؟؟
میشه بگید دقیقا چیکار میخواید بکنید؟
ali643
سه شنبه 11 مرداد 1384, 10:23 صبح
من می خوام اگه 10 تا آیتم در لیست باکس دارم هر آیتم در لیست باکس بشه یه رکورد در بانک اطلاعاتی
vcldeveloper
چهارشنبه 12 مرداد 1384, 02:04 صبح
من می خوام اگه 10 تا آیتم در لیست باکس دارم هر آیتم در لیست باکس بشه یه رکورد در بانک اطلاعاتی


var
i : integer;
begin
for i := 0 to ListBox1.Items.Count-1 do
begin
AdoTable1.Append;
AdoTable1.FieldByName('Your_Field').AsString := ListBox1.Items[i];
AdoTable1.Post;
end;
end;
ali643
چهارشنبه 12 مرداد 1384, 09:53 صبح
ای ول
مرسی