+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: گرفتن خروجی از اکسس با vb6 (/showthread.php?tid=2039)
صفحات
1
2
گرفتن خروجی از اکسس با vb6 - parvin - 04-06-2012
دوستان من یه فایل اکسس دارم که توش چند تافیلد هست. چطوری میتونم محتویات یکی از فیلدها رو توی یه فایل متنی نشون بدم. مثلا فرض کنید فیلد نام که شامل 20 تا اسم هست رو توی یه فایل متنی طوری نشون بدم که هر اسم تو یه سطر باشه.
RE: گرفتن خروجی از اکسس با vb6 - Amin_Mansouri - 04-06-2012
سلام
پروین تایپکتو دیده بودم کار داشتم
یعنی میخوای از فیلد توی تکست بنویسی؟
RE: گرفتن خروجی از اکسس با vb6 - parvin - 04-06-2012
اره .یعنی هر چی تو فیلد هست بره تو تکست .البته به صورت سطر به سطر
RE: گرفتن خروجی از اکسس با vb6 - Amin_Mansouri - 04-06-2012
کد:
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 SubRE: گرفتن خروجی از اکسس با vb6 - Amin_Mansouri - 04-06-2012
مثلا پروژه قبلیت 3 تا تکست باکس داشتی تکست باکس ها معرفی کن
دستورو فرااخوانی کن
پرینتشون میکنه
این حالت واسه وقتیه فیلدت به تکست باکس مربوطه
روش دشگه ای هم میخوای بگو
RE: گرفتن خروجی از اکسس با vb6 - parvin - 04-06-2012
آقا امین محتویات فیلد باید بره تو یه فایل متنی نه اینکه تو تکست باکس. یه فایل متنی مثل فایل های نوت پد درست بشه و محتویات اون فیلد مثلا فیلد نام توی اون فایل متنی ذخیره بشن
آقا امین این کدی که زحمتش رو کشیدی میاد محتویات textbox ها رو میریزه تو فایل متنی . من می خواه همه اطلاعات یک فیلد توش ریخته بشه. این انگار داره اطلاعات یک رکورد رو میبره به فایل متنی
RE: گرفتن خروجی از اکسس با vb6 - Amin_Mansouri - 04-06-2012
از 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 SubRE: گرفتن خروجی از اکسس با vb6 - parvin - 04-06-2012
دستت درد نکنه. دقیقا اینطوری میخواستم.
کار این comboکه گذاشتی چیه؟
RE: گرفتن خروجی از اکسس با vb6 - Amin_Mansouri - 04-06-2012
به جای پرینت میتونی در کمبو با دستور Combo1.AddItem فایل ها بریزی تو کمبو یا لیست باکس اول پاک میکنیم لیست باکس یا کمبو رو بعد میریزیم داخلش
RE: گرفتن خروجی از اکسس با vb6 - parvin - 04-06-2012
این خودش میره و تو درایو cفایل رو میسازه اگه بخوایم مسیر فایل رو خودمون بدیم چی میشه؟