PDA

View Full Version : سوال: ذخیره نتیجه کوئری در فایل دیگر



syasamboo3
سه شنبه 07 شهریور 1391, 18:31 عصر
سلام به همه دوستان.
من یه فایل اکسس دارم. توی اون یه کوئری از 3 تا جدول ایجاد میکنم.حالا میخوام اطلاعات این کوئری رو توی یه فایل دیگه و یک جدول ذخیره کنم.کسی میتونه کمکم کنه.ممنون میشم

syasamboo3
چهارشنبه 08 شهریور 1391, 18:19 عصر
کسی نبود به ما جوابی بده

Abbas Amiri
چهارشنبه 08 شهریور 1391, 23:05 عصر
به لینک زیر مراجعه کنید
http://barnamenevis.org/showthread.php?355713-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D8%AE%D8%B1%D9%88%D8%AC%DB%8C-%DA%86%D9%86%D8%AF-%DA%A9%D9%88%D8%A6%D8%B1%DB%8C-%D8%AF%D8%A7%D8%AE%D9%84-%DB%8C%DA%A9-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D8%AC%D8%AF%DB%8C%D8%AF-%DB%8C%D8%A7-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D8%AF%DB%8C%DA%AF%D8%B1

syasamboo3
یک شنبه 12 شهریور 1391, 19:45 عصر
ممنونم جناب امیری.لطف فرمودید. به لینک سر زدم.ولی چیزی ازش دستگیرم نشد.اگر دوستان یه نمونه کوچیک بزارن ممنون میشم.فقط میخوام نتیجه یه کوری توی یه فایل دیگه و یه جدول ذخیره بشه.خیلی گیرم.ممنون میشم کمکم کنید

Abbas Amiri
یک شنبه 12 شهریور 1391, 19:56 عصر
به لینک سر زدم.ولی چیزی ازش دستگیرم نشد

فرض کنیم کوئری ایجاد شده نامش Query1 باشد و آدرس فایل مقصد شما در متغیر strExternalAccessPath و نام جدول مقصد هم Table1 باشد



strExternalAccessPath = "C:\MyProjects\MyAccessFile.mdb"
CurrentDb.Execute "INSERT INTO Table1 IN '" & strExternalAccessPath & "' SELECT * FROM Query1"

syasamboo3
یک شنبه 12 شهریور 1391, 20:09 عصر
با عرض شرمندگی این کدا رو باید کجا بنویسم.(میدونم سوال خنده داری بود)ولی .......

syasamboo3
دوشنبه 13 شهریور 1391, 00:12 صبح
کسی نبود به ما جوابی بده.راستی یادم رفته بگم
برای ذخیره سازی فایل و جدولی وجود نداره.خودش باید ساخته بشه

Abbas Amiri
سه شنبه 14 شهریور 1391, 00:04 صبح
کدهای زیررا در روال Clickیک باتن کپی کنید.


Sub CreateNewDB_CopyQdfInTdf()
Dim MyWs As Workspace
Dim Mydb As Database
Dim strExternalAccessPath As String
Set MyWs = DBEngine.Workspaces(0)
strExternalAccessPath = "c:\MyAccessFile.mdb"
If Dir(strExternalAccessPath) <> "" Then
Kill strExternalAccessPath
End If
Set Mydb = MyWs.CreateDatabase(strExternalAccessPath, dbLangGeneral)
Mydb.Close
Set Mydb = Nothing
CurrentDb.Execute "SELECT Q1.* INTO Table1 IN '" & strExternalAccessPath & "' FROM Q1"
End Sub

syasamboo3
سه شنبه 14 شهریور 1391, 00:49 صبح
مرسی دوست عزیز زحمت کشیدید.فرمایشات شما رو انجام دادم.فایل جدید ایجاد میشه ولی جدولی توش ساخته نمیشه.یه ارور هم میده که تو تصویر پیوست گذاشتم92311
واقعا نمیدونم مشکل چیه خیلی هم گیرم

syasamboo3
سه شنبه 14 شهریور 1391, 17:18 عصر
نبود یاری کننده ای

Abbas Amiri
سه شنبه 14 شهریور 1391, 18:28 عصر
مطمئن نیستم ولی احتمالا شما در کوئری فیلد Attachments دارید . اگر اینطور است بنده فعلا راه حلی ندارم باید هرکدام ازدوستان اطلاع دارند ویا حوصله جستجو وایجاد راه حل ، کمک کنند.

syasamboo3
چهارشنبه 15 شهریور 1391, 09:20 صبح
بله قربان.همچین فیلدی رو دارم