آموزش: کپی یک جدول از یک دیتابیس در داخل دیتابیس دیگر [بایگانی]

nazanin_90

شنبه 08 بهمن 1390, 19:11 عصر

سلام
باچه کدی میتوان یک جدول از یک دیتابیس اکسس را درون یک دیتابیس اکسس دیگر کپی نمود؟
با تشکر

ali_habibi1384

شنبه 08 بهمن 1390, 19:42 عصر

select * into table1 from table2

nazanin_90

شنبه 08 بهمن 1390, 20:31 عصر

select * into table1 from table2

با سلام
همانطور که عرض کردم قرار است یک جدول از یک دیتابیس جداگانه و مستقل در یک دیتابیس مستقل دیگر کپی شود.
این کد مربوط به کپی داده های جدول1 در جدول 2 در یک دیتابیس است آنهم بدون آدرس دیتابیس
با تشکر

night_secret

شنبه 08 بهمن 1390, 20:33 عصر

شما برنامه ای که میخواهید رو به من بگید؟؟؟

kitcat_m18

شنبه 08 بهمن 1390, 23:09 عصر

سلام،
از متد های OpenRowset و OpenDatasource در SQL استفاده کن.
Provider مورد نظرت رو براش ست می کنی هر حرکتی از هر نوع دیتابیسی که بخوای برات انجام میده.
خودم SQL به SQL زدم منتها یه سری تنظیمات هم باید رو بانکت انجام بدی تا بتونی از متد های بالا استفاده کنی.
موفق باشی :لبخندساده:

nazanin_90

یک شنبه 09 بهمن 1390, 11:01 صبح

با سلام مجدد
فكر مي كنم با حل شدن نكته زير بتوانم جواب اين سؤال را از طريق كد اسكيوال select into بدست بياورم
براي نسب دادن يك فيلد(A) ازيك جدول(Table1) به صورت table1.a نوشته ميشود حال اگر بخواهيم يك جدول(table1) را به ديتابيس آن (x.mdb) نسبت بدهيم آن را به چه صورتي بايد بنويسيم ؟
فكر نمي كنم آن را بصورت x.mdb.table1 بنويسيم جواب بدهد
با تشكر

kitcat_m18

یک شنبه 09 بهمن 1390, 13:25 عصر

با سلام مجدد
فكر مي كنم با حل شدن نكته زير بتوانم جواب اين سؤال را از طريق كد اسكيوال select into بدست بياورم
براي نسب دادن يك فيلد(A) ازيك جدول(Table1) به صورت table1.a نوشته ميشود حال اگر بخواهيم يك جدول(table1) را به ديتابيس آن (x.mdb) نسبت بدهيم آن را به چه صورتي بايد بنويسيم ؟
فكر نمي كنم آن را بصورت x.mdb.table1 بنويسيم جواب بدهد
با تشكر

چون اصلا به پست قبلی که دادم توجه نکردی درباره دستور توضیحات اضافی نمیدم.

Rs_Public.Open "Insert Into" & vbNewLine & _
"OPENDATASOURCE('SQLNCLI10.1','Password=" & Pass_Server & ";Persist Security Info=True;User ID=" & User_Server & ";Initial Catalog=Master;Data Source=" & IP_Server & "')" & vbNewLine & _
".[Youre_Catalog].[dbo].[Youre_Table]" & vbNewLine & _
"(" & vbNewLine & _
"[ID],[Jensiat], [Code_Meli], [Nam], [Name_Khanevadegi], [Name_Pedar], [SH_Shenasnameh], [Tarikhe_Tavalod], [Mahale_Sodo0r], [Vaziate_Taahol]" & vbNewLine & _
")" & vbNewLine & _
"SELECT" & vbNewLine & _
"[ID], [Jensiat], [Code_Meli], [Nam], [Name_Khanevadegi], [Name_Pedar], [SH_Shenasnameh], [Tarikhe_Tavalod], [Mahale_Sodo0r], [Vaziate_Taahol]" & vbNewLine & _
"From" & vbNewLine & _
"OPENDATASOURCE('SQLNCLI10.1','Password=" & Pass_Local & ";Persist Security Info=True;User ID=" & User_Local & ";Initial Catalog=Master;Data Source=" & IP_Local & "')" & vbNewLine & _
".[Youre_Catalog2].[dbo].[Youre_Table2] Where Send_Status=0" & vbNewLine & _
"Update Etelaate_Shakhs Set Send_Status=1,Send_Date='" & Shamsi.Today(HijriShamsi_) & "',Send_Time='" & Format(Time, "HH:mm:ss") & "' Where Send_Status=0", Cn

موفق باشی :لبخندساده: