04-06-2012، 12:04 AM
دوستان من یه فایل اکسس دارم که توش چند تافیلد هست. چطوری میتونم محتویات یکی از فیلدها رو توی یه فایل متنی نشون بدم. مثلا فرض کنید فیلد نام که شامل 20 تا اسم هست رو توی یه فایل متنی طوری نشون بدم که هر اسم تو یه سطر باشه.
صفحات: 1 2
04-06-2012، 12:04 AM
04-06-2012، 12:43 AM
سلام
پروین تایپکتو دیده بودم کار داشتم
یعنی میخوای از فیلد توی تکست بنویسی؟
پروین تایپکتو دیده بودم کار داشتم
یعنی میخوای از فیلد توی تکست بنویسی؟
04-06-2012، 12:47 AM
اره .یعنی هر چی تو فیلد هست بره تو تکست .البته به صورت سطر به سطر
04-06-2012، 01:06 AM
کد:
Private Sub Form_Load()
Text4.Text = Text1.Text & vbCrLf & Text2.Text & vbCrLf & Text3.Text
Dim sFileText As String
Dim iFileNo As Integer
iFileNo = FreeFile
'open the file for writing
Open "C:\Test.txt" For Output As #iFileNo
'please note, if this file already exists it will be overwritten!
'write some example text to the file
Print #iFileNo, Text4.Text
'close the file (if you dont do this, you wont be able to open it again!)
Close #iFileNo
End Sub04-06-2012، 01:18 AM
مثلا پروژه قبلیت 3 تا تکست باکس داشتی تکست باکس ها معرفی کن
دستورو فرااخوانی کن
پرینتشون میکنه
این حالت واسه وقتیه فیلدت به تکست باکس مربوطه
روش دشگه ای هم میخوای بگو
دستورو فرااخوانی کن
پرینتشون میکنه
این حالت واسه وقتیه فیلدت به تکست باکس مربوطه
روش دشگه ای هم میخوای بگو
04-06-2012، 08:58 AM
آقا امین محتویات فیلد باید بره تو یه فایل متنی نه اینکه تو تکست باکس. یه فایل متنی مثل فایل های نوت پد درست بشه و محتویات اون فیلد مثلا فیلد نام توی اون فایل متنی ذخیره بشن
آقا امین این کدی که زحمتش رو کشیدی میاد محتویات textbox ها رو میریزه تو فایل متنی . من می خواه همه اطلاعات یک فیلد توش ریخته بشه. این انگار داره اطلاعات یک رکورد رو میبره به فایل متنی
آقا امین این کدی که زحمتش رو کشیدی میاد محتویات textbox ها رو میریزه تو فایل متنی . من می خواه همه اطلاعات یک فیلد توش ریخته بشه. این انگار داره اطلاعات یک رکورد رو میبره به فایل متنی
04-06-2012، 10:39 AM
از Ado استفاده نکردی اون بهتر بود.
به هر حال بیا اینم از فیلد پروین پرینت میکنه رو پروژت هم تست کردم
به هر حال بیا اینم از فیلد پروین پرینت میکنه رو پروژت هم تست کردم
کد:
Private Sub Command2_Click()
Dim sFileText As String
Dim iFileNo As Integer
iFileNo = FreeFile
Open "C:\Test.txt" For Output As #iFileNo
If Data1.Recordset.RecordCount = 0 Then Exit Sub
Data1.Recordset.MoveFirst
Combo1.Clear
Do While Not Data1.Recordset.EOF
Print #iFileNo, Data1.Recordset(0)
Data1.Recordset.MoveNext
Loop
Close
End Sub04-06-2012، 10:59 AM
دستت درد نکنه. دقیقا اینطوری میخواستم.
کار این comboکه گذاشتی چیه؟
کار این comboکه گذاشتی چیه؟
04-06-2012، 11:02 AM
به جای پرینت میتونی در کمبو با دستور Combo1.AddItem فایل ها بریزی تو کمبو یا لیست باکس اول پاک میکنیم لیست باکس یا کمبو رو بعد میریزیم داخلش
04-06-2012، 11:13 AM
این خودش میره و تو درایو cفایل رو میسازه اگه بخوایم مسیر فایل رو خودمون بدیم چی میشه؟
صفحات: 1 2