سوال: انتقال تیبلها [بایگانی]

michkadol

یک شنبه 02 مرداد 1390, 09:07 صبح

با سلام
چطور میشه با چند خط برنامه
اطلاعات یک تیبل از دیتابیس شماره 1 رو cut کنیم به تیبل دیگری در دیتابیس شماره 2 انتقال دهیم

فیلدهای تیبلها یکی هستند فقط تیبل دیتابیس 2 یک فیلد کم داره
یعنی تیبل 1، 5 تا فیلد داره و تیبل 2، 4 تا فیلد

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

Mahsa Hatefi

یک شنبه 02 مرداد 1390, 10:29 صبح

1- با دستور SQL مي تونيد فيلد هاي مورد نظر را به جدول جديد بفرستيد و بعد جدول قبلي را با باز با دستور sql خالي كنيد
2- اطلاعات جدول اول را به يكي از فرمتهاي اكسل ، تكست و..... انتقال و سپس به جدول دوم ارسال كنيد

michkadol

یک شنبه 02 مرداد 1390, 10:39 صبح

1- با دستور SQL مي تونيد فيلد هاي مورد نظر را به جدول جديد بفرستيد و بعد جدول قبلي را با باز با دستور sql خالي كنيد
2- اطلاعات جدول اول را به يكي از فرمتهاي اكسل ، تكست و..... انتقال و سپس به جدول دوم ارسال كنيد

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

hasanr

یک شنبه 02 مرداد 1390, 11:58 صبح

سلام
ساده ترین راه اینه که با اکسس مثل اکسل برخورد کنین
جدول رو باز کنید و اون فیلد اضافه جدول اول رو Hide کنید حالا با کلیک در گوشه جدول همه فیلدها رو انتخاب کنین و راست کلیک کرده و Copy رو انتخاب کنین
سپس جدول دوم رو باز کنین و عمل Paste رو انجام بدین.
البته در صورت نیاز می تونین هر فیلد رو جداگانه هم انتقال بدین

michkadol

یک شنبه 02 مرداد 1390, 13:10 عصر

با تشکر از دوست عزیز hasanr
میدونم اینجوری امکان پذیره ولی میخوام شکل و شمایل خوبی داشته باشه تا با باز کردن یکی از دیتابیس ها و کلیک بر روی یک کامند عمل انتقال صورت گیرد

hasanr

یک شنبه 02 مرداد 1390, 13:16 عصر

در جدولهایتان فیلد مشترک وجود دارد ؟

michkadol

یک شنبه 02 مرداد 1390, 13:30 عصر

در جدولهایتان فیلد مشترک وجود دارد ؟

4 تا فیلد مشترکن و جدول دیتابیس 2 یک فیلد کم داره

hasanr

یک شنبه 02 مرداد 1390, 13:47 عصر

از این لینک (http://office.microsoft.com/en-ca/access-help/update-one-table-based-on-another-table-mdb-HP005188710.aspx) کمک بگیر
الان نمی تونم توضیح بدم اما مطلب واضح بیان شده.

به طور مختصر این میشه :
72869

UPDATE Bot INNER JOIN Big ON Bot.PART = Big.PART
SET Bot.MFG = [Big].[MFG];

michkadol

یک شنبه 02 مرداد 1390, 13:56 عصر

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

mazoolagh

دوشنبه 03 مرداد 1390, 17:47 عصر

DIM DB1,DB2 AS DATABASE
DIM RS1,RS2 AS RECORDSET
SET DB1=CURRENTDB
SET DB2=OPENDATABASE("آدرس کامل فایل دیتابیس")
SET RS1=DB1.OPENRECORDSET("TABLE_NAME")
SET RS2=DB2.OPENRECORDSET("TABLE_NAME")
DO WHILE NOT RS1.EOF
RS2.ADDNEW
RS2("FIELD1")=RS1("FIELD1")
...
...
RS2.UPDATE
RS1.DELETE
RS1.MOVENEXT
LOOP
RS1.CLOSE
SET RS1=NOTHING
RS2.CLOSE
SET RS2=NOTHING
DB2.CLOSE
SET DB2=NOTHING