انتقال كلي و سريع اطلاعات يك جدول به جدول ديگر

[saeedharati]

سلام و درود به همه اساتيد
ميخوام اطلاعات يك جدول رو به يك جدول ديگر با adodc به صورت كلي و سريع انتقال بدم لطفا كمك كنيد

[saeedharati]

كسي نيست جواب بده گيرم اساتيد

[saeedharati]

لطفا كمك كنيد

[saeedharati]

كسي نيست كمك كنه اساتيد محترم لطفا كمكم كنيد

[saeedharati]

لطفا راهنمايي فرماييد

[محسن واژدی]

سلام علیکم
کد زیر بررسی کنین:

Private Sub Command1_Click()
Dim Cn
Set Cn = CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\1.mdb;Persist Security Info=False"
Cn.Execute "INSERT INTO Table2 SELECT * FROM Table1"
Cn.Close
Set Cn = Nothing
End Sub


بجای Table1 نام جدول هدف و Table2 هم نام جدول مقصد را مینویسیم

موفق باشید

[saeedharati]

سلام شرمنده بنده مي خوام اطلاعات يك جدول در يك بانك ديگر كه sql است و بهش اتصال پيدا كردم رو داخل يك فايل mdb در جدول خاصي كه در آدرس خاصي مي باشد انتقال دهد

[saeedharati]

آقاي واژدي در مورد اينم لطفا كمك كنيد

[محسن واژدی]

سلام علیکم
تابع زیر را در ماژول کد یا فرم قرار بدین:

Public Sub CopyTableFromDB1ToDB2(ByVal sMainDB$, ByVal sDestinationDB$, ByVal sTableName$)
On Error Resume Next
Dim Cn, sTarTblNam$, sDesTblNam$
sTarTblNam$ = sTableName$
sDesTblNam$ = sTableName$
Set Cn = CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sMainDB$ & ";Persist Security Info=False"
Cn.Execute "SELECT * INTO " & sDesTblNam$ & " IN '" & sDestinationDB$ & "' " & " FROM " & sTarTblNam$
Set Cn = Nothing
End Sub

آرگومان های این تابع:


sMainDB: نام بانکی که میخواهیم جدولی را از آن کپی کنیم
sDestinationDB: نام بانک مقصد که جدول کپی شده به آن اضافه میشود
sTableName: نام جدولی که قصد داریم آنرا کپی کنیم


برای مثال:
Private Sub Command1_Click()
CopyTableFromDB1ToDB2 "C:\From.mdb", "C:\To.mdb", "Table1"
End Sub

موفق باشید

[saeedharati]

شرمنده شما نوشتيد نام بانكي ميخواهيم اطلاعات از آن كپي كنيم ، من با كد زير به بانك sql قبلا اتصال پيدا كردم و اطلاعات آن تو ديتاگرايد نمايش داده ميشه حالا مي خوام اون اطلاعات رو تو يك بانك اكسس بريزم

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & Me.noe.Text & Me.TxtDataBaseName.Text & ";Data Source=" & Me.TxtServerName.Text & ""
Adodc1.RecordSource = "select * from " & txt_table.Text
Adodc1.Refresh


ممنون از راهنمايي تون

[محسن واژدی]

شرمنده شما نوشتيد نام بانكي ميخواهيم اطلاعات از آن كپي كنيم ، من با كد زير به بانك sql قبلا اتصال پيدا كردم و اطلاعات آن تو ديتاگرايد نمايش داده ميشه حالا مي خوام اون اطلاعات رو تو يك بانك اكسس بريزم

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & Me.noe.Text & Me.TxtDataBaseName.Text & ";Data Source=" & Me.TxtServerName.Text & ""
Adodc1.RecordSource = "select * from " & txt_table.Text
Adodc1.Refresh


ممنون از راهنمايي تون

خواهش میکنم، میتوانیم query-recourd-source را بصورت زیر بنویسیم:
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & Me.noe.Text & Me.TxtDataBaseName.Text & ";Data Source=" & Me.TxtServerName.Text & ""
Adodc1.RecordSource = "SELECT * INTO " & txt_table.Text & " IN 'c:\des.mdb' " & " FROM " & txt_table.Text
Adodc1.Refresh
End Sub

موفق باشید

[saeedharati]

سلام كد مورد نظر فك كنم درسته اما يك خطا داره لطفا راهنمايي كنيد و فايل اكسس مورد نظر در محل خود برنامه مي باشد مي شود آدرس فايل رو تعيين كرد تو آدرس خود برنامه ، خطاي مورد نظر رو به صورت عكس فرستادم

93533

93534

[محسن واژدی]

سلام كد مورد نظر فك كنم درسته اما يك خطا داره لطفا راهنمايي كنيد و فايل اكسس مورد نظر در محل خود برنامه مي باشد مي شود آدرس فايل رو تعيين كرد تو آدرس خود برنامه ، خطاي مورد نظر رو به صورت عكس فرستادم

سلام علیکم
بر روی بانک access تست کردم مشکلی نداشت

[saeedharati]

هر دوتا اكسس بوده امتحان كرديد شما حالا من sql هست به اكسس بايد چيكار كنم

[saeedharati]

يكي كمك كنه مشكل منو

[saeedharati]

كسي نيست راهنمايي كنه لطفا

[saeedharati]

هيچ كس نيست كمك كنه اساتيد لطفا راهنمايي كنيد بخدا گير كردم

[saeedharati]

اساتيد لطفا كمك كنيد

[kitcat_m18]

سلام،
این جواب شما تمام و کمال:
http://barnamenevis.org/showthread.php?304008-%D8%A7%D9%86%D8%AA%D9%82%D8%A7%D9%84-%D8%A7%D8%B7%D9%84%D8%A7%D8%B9%D8%A7%D8%AA-%D8%A8%DB%8C%D9%86-%D8%AF%D9%88-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-SQL-%D8%AF%D8%B1-%D8%AF%D9%88-%D8%B3%D8%B1%D9%88%D8%B1-%D9%85%D8%AA%D9%81%D8%A7%D9%88%D8%AA
اینم چیزی که باید جستجو کنی:

http://www.google.com/search?hl=en&client=firefox-a&hs=DA3&rls=org.mozilla:en-US:official&sa=X&ei=HGPSTuOmBoHsOcOQhZ8P&ved=0CBcQvwUoAQ&q=openrowset/opendatasource&spell=1&bav=on.2,or.r_gc.r_pw.,cf.osb&biw=1152&bih=701&cad=h

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

[saeedharati]

ممنون از راهنمايي تون ولي كمكي بهم نكرد تشكر