کپی برخی فیلدهای جدول یک بانک در جدول بانک دیگر با vb.net

[mehdikoki]

من یه بانکی که اکسس هست دارم که توش یک جدولی که این جدولم چندتا فیلد داره. حالا میخام مقادیر برخی از فیلدها رو داخل یه بانک اکسس دیگه بریزم. اینکار با ado.net وی بی دات نت با دستورات sql چطور میتونم انجام بدم.مرسی

[anvar.net]

قبلا تو همین تالار بر روی این موضوع بحث شده - لطفا جستجو کن
بصورت کلی روال کار بصورت زیره : شما دو تا دیتابیس داری (دیتابیس مرجع که اطلاعات ازش خونده میشه و دیتابیس مقصد که اطلاعات داخلش ثبت میشه) لذا دو کانکشن جدا داری.

اول اطلاعات رو از بانک اطلاعاتی 1 با Datareader میخونی (فقط ستون هایی که باید در بانک اطلاعاتی دوم درج میشوند)

با دستور If چک می کنی که دیتاریدر ردیف هایی داره یا نه؟ اگر داشت:
کمند دومت رو داده ها رو در جدول 2 درج می کنه می نویسی مثلا:
Insert Into yourtable (S1, S2,S3) values(?,?,?)
تا اینجا از مقادیر نهایی اطلاعی نداریم پس بجاش از علامت ؟ استفاده می کنیم. Sها هم ستون های مورد نظره
حالا به مجموعه پارامترها , پارامترهای مورد نظرمون رو اضافه می کنیم مثلا
Objdata.addparameter("ID", DataType,Size,Nothing)

کل پارامترها رو به همین صورت اضافه می کنی . دیتاتایپ ها بصورت زیر هستند
Data.OLEDB.OLEDBTYPE.Char
سایزشون هم با توجه به مقادیر موجود در ستون ها ست می کنی .
تا اینجا هم از مقدار واقعی داده های ارسالی اطلاعی ندارم پس از Nothing بصورت موقتی استفاده می کنیم

حالا در یه حلقه While مقادیر واقعی رو از دیتاریدر بالایی می گیریم و به مجموعه پارامترها ارسال می کنیم
While datareader.read

command.parameter (ID).value=datareader.item(id)) به همین صورت سایر پارامترها رو اضافه و مقدار دهی می کنی

بعد هم

command.excutenonequary
end while
end if


روال کار به همین صورته