import و export اطلاعات دربرنامه (بانک اکسس)

[javadt]

سلام
من توی نرم افزارم می خوام مثلا یک جودل از بانک نرم افزار یک رو export کنم و داخل بانک نرم افزار دو در جاهایی که تعیین کردم از بانک اون اطلاعات رو import کنم
برای این کار ازچه چیزی می تونم استفاده کنم؟
بهتره بانک رو export کنم یا مثلا یک فایل دیگه بسازم و توش اطلاعات باشه
با تشکر

[kia.celever]

سلام.
فکر نمیکنم که راه مستقیمی برای این کار وجود داشته باشه پس به نظر من باید یک فایل واسطه که vb بتونه با اون کار کنه بسازی (مثلا فایل متنی) و اطلاعات فیلدهای رکوردست های برنامه ی اول رو توی اون بریزی و به برنامه ی دوم هم بگی که بره و اطلاعات رو از این فایل import بکنه.

[javadt]

خوب اینجوری اگر حجم اطلاعات زیاد بشه که مشکل می شه و امکان خطا بالا میره

[rd.net]

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

[xxxxx_xxxxx]

از طریق دستورات sql میتونید اینکارو انجام بدید:


Dim DB As Database
Set DB = OpenDatabase(App.Path & "\db1.mdb", True)
DB.Execute "INSERT INTO Table2 In '" & App.Path & "\db2.mdb' SELECT * FROM Table1 "
عملی که انجام میشه این هست که محتویات Table1 از فایل db1 کپی میشه داخل Table2 از فایل db2

موفق باشید/

[javadt]

تشکر ولی اگر بخوایم از db 1 به یکسری جدول خاص از db2 دو بریزه چی؟

[xxxxx_xxxxx]

خب همین کارو برعکس انجام بدید، از db1 به db2 چه فرقی با db2 به db1 داره؟!
اگر منظورتون اینه که چندتا جدول منتقل بشن بازم زیاد تغییری نمیخواد بدید. از همون دستور دوباره استفاده کنید

[milad3em]

شرمنده که تاپیک 5 سال پیش رو میارم بالا ولی من می خوام از این روش استفاده کنم برای انتقال اطلاعات از یک فایل اکسل 2012 به اکسس 2012 از دستور زیر که استفاده می کنم بهم ایراد می گیره ممنون میشم راهنماییم کنید


Private Sub CopyButton_Click()

Dim ExcelFile As String
Dim AccessFile As String
Dim WorkSheet As String
Dim TableName As String
Dim DBase As Database
Dim SQL As String

ExcelFile = App.Path & "\Book1.xlsx"
AccessFile = App.Path & "\db1.mdb"
WorkSheet = "Sheet1"
TableName = "Table1"

Set DBase = OpenDatabase(ExcelFile, True, False, "Excel 8.0")

SQL = "Select * into [;database=" & AccessFile & "]." & TableName & " FROM [" & WorkSheet & "$]"

DBase.Execute SQL

MsgBox "Copy Completed To " & TableName


End Sub



جالبیش اینه که برای اکسل 2000 جواب میده اما فایل اکسل با پسوند *.xlsx رو ارور میده


خیلی کارم گیره ها

[meys34]

سلام اگر ممکنه فایل پروژه رو قرار بدید...