سوال: نحوه تبدیل اطلاعات table به فایل txt [بایگانی]

shahram_s

دوشنبه 23 شهریور 1388, 13:18 عصر

چطور میتونم اطلاعات موجود در یک table را به فایل txt تبدیل کنم البته با توجه به شرایط زیر
1- اطلاعات موجود ( فیلدها) بدون فاصله در کنار هم قرار گیرند.
2- نام فیلدها نیازی نمی باشد.
3- این کار ار از طریق export انجام داده ام اما اگر از طریق کد نویسی باشد بهتر است .

amirzazadeh

دوشنبه 23 شهریور 1388, 14:08 عصر

چطور میتونم اطلاعات موجود در یک table را به فایل txt تبدیل کنم البته با توجه به شرایط زیر
1- اطلاعات موجود ( فیلدها) بدون فاصله در کنار هم قرار گیرند.
2- نام فیلدها نیازی نمی باشد.
3- این کار ار از طریق export انجام داده ام اما اگر از طریق کد نویسی باشد بهتر است .
بيبينيد اين لينك به دردتون ميخوره:
http://barnamenevis.org/forum/showthread.php?t=176477
............................
موفق باشيد

shahram_s

دوشنبه 23 شهریور 1388, 15:06 عصر

با تشکر اما این بر روی table هیچ عملی انجام نمیده . من میخواهم table را تبدیل کنم

شاپرک

چهارشنبه 25 شهریور 1388, 16:53 عصر

1-

DoCmd.OutputTo acOutputTable, "Employees", _
acFormatTXT, "Employee.txt", True

2- استفاده از DoCmd.TransferDatabase براي اطلاعات بيشتر به Help Access مراجعه كنيد.

3-در قسمت Refrence بايد Microsoft Scripting RunTime رو تيك بزني.

Set filesys = CreateObject("Scripting.FileSystemObject")
path = "C:\" + "TextFileName.txt"
Set filetxt = filesys.CreateTextFile(path, True)
'Header For Text File
filetxt.WriteLine "Abc" & Chr(32) & 13880101 & Chr(32) & SumMablagh
i = 1
While Not rs.EOF
X = rs.Fields("x")
Mab = rs.Fields("Mablagh")
filetxt.WriteLine i & Chr(32) & x & Chr(32) & Round(Mab) & Chr(32) & 0
i = i + 1
rs.MoveNext
Wend
filetxt.Close

اگر ميخواي بدون فاصله قرار بگيرند Chr(32) حذف كن.

shahram_s

یک شنبه 05 مهر 1388, 17:45 عصر

دستور اول اجرا میشود
اما دستوردوم در قسمت While Not rs.EOF
error میدهد اگر کمی توضیح بفرمائید ممنون می شوم.
با تشکر

مهدی قربانی

دوشنبه 06 مهر 1388, 00:05 صبح

سلام
چه اروری دریافت می کنید ( متن پیغام )

shahram_s

سه شنبه 07 مهر 1388, 12:17 عصر

ERROR 424
OBJECT REQUIRED

مهدی قربانی

پنج شنبه 09 مهر 1388, 14:08 عصر

سلام
مي تونيد فايل رو اينجا بذاريد تا بررسي بشه ؟

shahram_s

پنج شنبه 09 مهر 1388, 19:46 عصر

با سلام و تشکر

shask00l

جمعه 10 مهر 1388, 00:46 صبح

برای این کار lib های آماده هست . تبدیل فایل access به csv رو سرچ کن.

شاپرک

شنبه 11 مهر 1388, 10:08 صبح

شما فقط Copy و Paste كردي انتظار داري error نده!!!!!!!!!!
حتي به خودت زحمت ندادي اسم متغير ها و فيلدها رو عوض كني!!!!

Ali_Fallah

یک شنبه 12 مهر 1388, 19:48 عصر

1-

DoCmd.OutputTo acOutputTable, "Employees", _
acFormatTXT, "Employee.txt", True

2- استفاده از DoCmd.TransferDatabase براي اطلاعات بيشتر به Help Access مراجعه كنيد.

3-در قسمت Refrence بايد Microsoft Scripting RunTime رو تيك بزني.

Set filesys = CreateObject("Scripting.FileSystemObject")
path = "C:\" + "TextFileName.txt"
Set filetxt = filesys.CreateTextFile(path, True)
'Header For Text File
filetxt.WriteLine "Abc" & Chr(32) & 13880101 & Chr(32) & SumMablagh
i = 1
While Not rs.EOF
X = rs.Fields("x")
Mab = rs.Fields("Mablagh")
filetxt.WriteLine i & Chr(32) & x & Chr(32) & Round(Mab) & Chr(32) & 0
i = i + 1
rs.MoveNext
Wend
filetxt.Close

اگر ميخواي بدون فاصله قرار بگيرند Chr(32) حذف كن.

باتشکر از شما
ایا فایل تبدیل شده از نوع TextMS-DOS هست یا خیر