سوال؟؟؟؟؟ استفاده از data

[shina jun]

سلام
من یه برنامه نوشتم که با عنصر data به پایگاه داده وصل میشه یه کد میخوام که تمام محتویایت پایگاه داده رو رکورد به رکورد توی یک فایل ذخیره کنه تاکید می کنم اتصال پایگاه با عنصرdata است نه با عنصر adodcلطفا کمکم کنید خیلی ضروریه

[xxxxx_xxxxx]

تفاوت چنداني با Adodc نداره.


Data.Recordset.MoveFirst
Open "C:\a.txt" For Output As #1
For i = 0 To Data.Recordset.RecordCount - 1
Print #1, Data.Recordset.Fields!FiledName1,
Print #1, Data.Recordset.Fields!FiledName2,
Print #1, Data.Recordset.Fields!FiledName3,
Print #1, Data.Recordset.Fields!FiledName4,
Print #1, Data.Recordset.Fields!FiledName5
Data.Recordset.MoveNext
If Data.Recordset.EOF = True Then
Data.Recordset.MovePrevious
End If
Next i
Close #1

نكته: چيزي كه باعث ميشه تا هر ركورد در يك خط چاپ بشه. علامت كاما(,) آخر دستورات هست كه در فايل باعث ايجاد يك Tab ميشه. خط آخر نباد كاما داشته باشه تا بعد از چاپ آخرين فيلد به خط بعدي بره تا ركورد بعدي در خط جديد چاپ بشه.

موفق باشيد/