PDA

View Full Version : سوال: ايمپورت كردن دسته اي به داخل فايل MDB



connector
دوشنبه 02 فروردین 1389, 12:49 عصر
با سلام
من يه برنامه نوشتم كه نامي رو از DBEdit ميگيره و با زدن يك دكمه اون رو در داخل بانك اكسس ذخيره ميكنه حالا من يه جاهايي نياز دازم تا كاربر بتونه فرضا 100 نام رو يكباره بتونه در فيلد Name از بانك اكسس ايمپورت كنه لطفا بفرماييد چه راه كاري براي اين كار وجود داره و براي اينكاز از چه كدي استفاده كنم؟
با تشكر

pezhvakco
سه شنبه 03 فروردین 1389, 17:58 عصر
درود :
این تعداد ورودی از کجا قرار بیاد .
روش های ریادی برای اضافه کردن به بانک هست .
در کل اضافه کردن به بانک همیشه یکی یکی بوده و هست، فقط میشه این کار را برای راحتی توسط یک برنامه شرطی و یا حلقه انجام بدی .

connector
سه شنبه 03 فروردین 1389, 21:42 عصر
با تشكر از پاسخ شما
فكر ميكنم كار راحت اين باشه كه كاربر بتونه همه نامهايي رو كه قرار هست در فيلدي از ديتابيس ذخيره بشه ابتدا در داخل فرضا يك Memo تايپ يا كپي و پيست كنه و بعد با زدن يك دكمه كليه نامهاي موجود وارد فيلد Name از بانك اكسس بشه لطفا بفرماييد از چه كدي بايد استفاده كنم يا اگر سمپلي در اين زمينه داريد محبت كنيد
ممنون
عكسش رو هم براي اينكه بهتر منظورم رو متوجه بشيد قرار دادم
http://www.imgplace.com/viewimg168/1410/19sample.gifhttp://www.imgplace.com/img168/1410/19sample.th.gif (http://www.imgplace.com/viewimg168/1410/19sample.gif)
http://www.imgplace.com/viewimg168/1410/19sample.gif

mehdimdp
پنج شنبه 05 فروردین 1389, 00:48 صبح
خب اگه قراره اول داخل memo بریزه ؛ پس یعنی هر اسم با یک اینتر از یکدیگر جدا میشه
حالا من جای شما باشم یک edit روی فرمم میذارم. و در رویداد OnKeyUp اون ادیت این کد رو مینویسم:


procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then
begin
table.insert;
table.fieldbyname('name').value:=edit1.text;
table.post;
end;
end;

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

connector
پنج شنبه 05 فروردین 1389, 11:08 صبح
با تشكر از پاسخ شما
آيا اين كد در صورتي كه كاربر به يكباره 100 نام رو از فرضا يك فايل Word در Memo كپي و پيست كنه هم كار ميكنه؟يعني كاربر در Memo تايپ نكنه بلكه در Memo كپي كنه.

pezhvakco
شنبه 07 فروردین 1389, 09:33 صبح
کدی که " mehdimdp " نوشته برای شرایط خاص خودش کار می کنه .
میشه با دریافت اطلاعات از فایل دیگه هم کار کرد .
شما برای این کار باید خودت شرایط تعیین کنی .
اگر می خوای از داخل یک ممو اطلاعات ذهیره بشه، می تونی شرایط داخل ممو رو بررسی و اطلاعات را برداشته و ذخیره کنی .
مثلا
1): هر نام رو در یک سطر بنویسی و در آخر با زدن دکمه ذخیره کار ذخیره سازی رو انجام بدی =>
برای دکمه ذخیره کدی بنویسی که از سطر اول ممو ( Memo1.Line ) اطلاعات رو بگیره و سطر به سطر ذخیره و به سطر ( Line ) بره .
2) هر نام را با یک نشان بی همتا از نام دیگر جدا کنی و کد نویسی ذخیره را بنا به اون نشان انجام بدی =>
متن داخل ممو رو از حرف اول شروع به خوندن کنی و تا به نشان مورد نظر نرسیدی ( if test <> ''- then ) مقدار خوانده شده را داخل یک متغییر قرار بدی و متغییر راذخیره کنی.
3) هر چی به فکرت رسید که این بهتره .
فکر خوش .