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

shahram_s

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

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

amirzazadeh

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

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

shahram_s

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

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

شاپرک

چهارشنبه 25 شهریور 1388, 15: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, 16:45 عصر

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

مهدی قربانی

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

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

shahram_s

سه شنبه 07 مهر 1388, 11:17 صبح

ERROR 424
OBJECT REQUIRED

مهدی قربانی

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

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

shahram_s

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

با سلام و تشکر

shask00l

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

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

شاپرک

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

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

Ali_Fallah

یک شنبه 12 مهر 1388, 18: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 هست یا خیر