تبدیل یک ستون دیتابیس به چند فایل متنی

[ironclip]

آقای کشاورز اینم یه عنوان خوب برای سوالم ، خواهش می کنم پاکش نکنید


سلام دوستان من دارم یه برنامه خیلی کوچیک می نویسم نیاز به کمک دارم

من تو دیتابسم فقط یک ستون دارم به اسم tel_num که به فرض مثال 1000 تا رکورد داره

حالا من می خوام این رکوردهارو 100 تا 100 تا تو یک نوت پد ذخیره کنم

هر نوت پت 100 تا رکورد داشته باشه


خیلی گیرم منتظر هستم

[مهران رسا]

مشکل کجاست ؟ کدی که نوشتید رو قرار بدید

[ironclip]

برنامه رو تا وقتی که ado ارتباط برقرار می کنه

الان می خوام تعداد سطرهای tel_num را به یک list اضافه کنم

و 100 تا 100 تا به فایل متنی تبدیل کنه


مچکرم از شما که پاسخ دادید

اگه می شه دوباره راهنمای کنید

[javadt]

شما مي تونيد با روش زير اطلاعات رو توي ليست اضافه كنيد

list1.clear
While Not Rst.EOF()
DoEvents
list.AddItem Rst.Fields("tel_num")
Rst.MoveNext
Wend

[ironclip]

من سعی کردم اما نتونستم

[javadt]

بيا دوست عزيز
اينكار رو برات با adodb انجام دادم

[ironclip]

خیلی خیلی ممنون حالا قسمت دومش را باید از کدام دستور for یا do ... while استفاده کنم

که 100 تا 100 تا جدا کنه و در فایل متنی ذخیره کنه

[javadt]

شما مي توني دستورات روتو رويداد كليك ليست بنويسي و با چند تا حلقه

for i =1 to 100

next i

for i =101 to 200

next i
محتوي ليست باكس رو داخل تكست بريزي

[ironclip]

فکر کنم این روش بهتر باشه





Private Sub Command1_Click()
a = 1000
For i = 0 To (a \ 100)
For j = 0 To 100

( code )

Next j
Next i

End Sub

حالا باید برای ذخیره کردن چی کنم

به جای ( code ) چی بنویسم

[javadt]

Open App.Path & "\1.txt" For Output As 1
Print #1, Text
Close #1

[ironclip]

دستت درد نکنه اما یه مشکل دیگه ای هست

فایل ایجاد می شه اما هیچی ذخیره نمی کنه

راستی اگه تعداد ستون ها 1000 تا باشه باید 10 تا فایل متنی ایجاد کنه که هر فایل متنی 100 خط داشته باشه




بزار کامل تر توضیح بدم :

این برنامه را برای یه دوست می خوام که در مخابرات کار می کنه

که برای دستور قطع و وصل یک خط باید این کا را انجام بده برای هر شمار تلفن

من می خوام کمکش کنم که این همه برای قطع و وصل زحمت نکشه چون گاهی اوقاط تعداد شماره تلفن ها به یک میلیون هم میرسه

مثلا شماره اینه 0000000 ابن شماره در لیست قرار بگیره و در فایل متنی در به این صورت قرار بگیره




به فرض مثال این دستوری هست که برای مثال استفاده می شه

reg_vasl_kardan= tel_n

منظور از tel_n همون شماره تلفن هست

به فرض مثال این فایل متنی هست







reg_vasl_kardan= 0000000
reg_vasl_kardan= 0000001
reg_vasl_kardan= 0000002
reg_vasl_kardan= 0000003
.
.
.
reg_vasl_kardan= 0000100

[ironclip]

این قسمتشو درست کردم





reg_vasl_kardan= 0000000
reg_vasl_kardan= 0000001
reg_vasl_kardan= 0000002
reg_vasl_kardan= 0000003
.
.
.
reg_vasl_kardan= 0000100








الان فقط مونده ذخیره کردنش که باید 1000 تا 1000 تا از هم جدا بشه و در فایل متنی ذخیره بشه

[ironclip]

کسی نتونست کمکم کنه

تو قسمت ذخیرش موندم ، می خوام اگه تو دیتابیسم یک میلیون سطر باشه این هارو 1000 تا 1000 تا جدا کنه و در فایل متنی جداگانه ذخیره کنه

[ironclip]

کسی کمکم نکرد تو این چند هفته ... :ناراحت: