نمایش و ذخیره تعداد مشخصی از اطلاعات دیتابیس در یک فایل تکست (حل شده)

[ehsankhan 256]

سلام

دوستان عزیز ممنون میشم راهنمایی کنید

* در حالت عادی ما اطلاعات دیتابیس رو با دستور for میایم به ترتیب از اول به آخر با بالعکس نمایش میدیم

حالا من میخوام یه تعداد از ردیف های دیتابیس که حاوی چند ستون به نام های مثلا (ردیف،نام،،شغل) هست رو توی یه مقدار ( dim a as String ) بریزم و در نهایت در یک فایل تکست ذخیره کنم.

ردیف های دیتابیس:

1،علی،مهندس

2،حسن،دکتر

3،حسین،معلم

مدلی که من میخوام توی فایل تکست و string ذخیره بشه:

1،علی،مهندس+2،حسن،دکتر+3،حسین،معلم

 

ممنون از راهنمایی شما بزرگواران

[shahab.es 5,429]

سلام

به این شکل کار کنید

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

اینم میتونه مفید باشه

 

dim s as string = ""

cur = sql.exeQuery("SELECT * FROM tbl WHERE id between 3 AND 10")

for i = 0 to cur.rowCount -1 
cur.position = i
s = s & cur.getInt("id") &"," & cur.getString("job")&","& cur.getString("name") & "+"
next
Log(s)
file.writeString(file.dirinternal,"test.txt",s)

 

[ehsankhan 256]

در در 1395/09/12, 19:21:08، shahab.es گفته است :

سلام

به این شکل کار کنید

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

اینم میتونه مفید باشه

 

dim s as string = ""

cur = sql.exeQuery("SELECT * FROM tbl WHERE id between 3 AND 10")

for i = 0 to cur.rowCount -1 
cur.position = i
s = s & cur.getInt("id") &"," & cur.getString("job")&","& cur.getString("name") & "+"
next
Log(s)
file.writeString(file.dirinternal,"test.txt",s)

 

 

سلام شهاب جان

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

همیشه کمک های شما اساتید باعث پیشرفت ما هست.

 

[agha sasan 82]

برای اینکار مقدار هارو مانند کد زیر در یک متغییر لیست بریزید

	Dim l As List
	l.Initialize
For i= 0 To c.RowCount-1
	c.Position=i
	l.AddAll(Array(c.GetString("r1"),c.GetString("r2"),c.GetString("r3"))
Next

حالا اگه بخایید مثلا این لیستو محدود کنید به قسمت هایی که خودتون میخایید میتونید با مقدار دهی c.Position اولین مقداری که قراره گرفته بشه رو مشخص کنید و با قرار دادن عدد c.RowCount-1 بجای مقدار پایانی لیست خودتونو مشخص کنید

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

File.WriteList(File.DirRootExternal,"list.txt",l)

 

[ehsankhan 256]

در 36 دقیقه قبل، mrshirdel گفته است :

برای اینکار مقدار هارو مانند کد زیر در یک متغییر لیست بریزید

	Dim l As List
	l.Initialize
For i= 0 To c.RowCount-1
	c.Position=i
	l.AddAll(Array(c.GetString("r1"),c.GetString("r2"),c.GetString("r3"))
Next

حالا اگه بخایید مثلا این لیستو محدود کنید به قسمت هایی که خودتون میخایید میتونید با مقدار دهی c.Position اولین مقداری که قراره گرفته بشه رو مشخص کنید و با قرار دادن عدد c.RowCount-1 بجای مقدار پایانی لیست خودتونو مشخص کنید

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

File.WriteList(File.DirRootExternal,"list.txt",l)

 

 

ممنون از پاسختون اما ارور زیر رو میده :

 

B4A version: 6.30
Parsing code.    Error
Error parsing program.
Error description: Invalid number of parentheses.
Occurred on line: 163 (Main)
l.AddAll(Array(c.GetString("r1"),c.GetString("r2"),c.GetString("r3"))

 

[مهدی ایزدی 9,203]

در 13 ساعت قبل، ehsankhan گفته است :

 

ممنون از پاسختون اما ارور زیر رو میده :

 

B4A version: 6.30
Parsing code.    Error
Error parsing program.
Error description: Invalid number of parentheses.
Occurred on line: 163 (Main)
l.AddAll(Array(c.GetString("r1"),c.GetString("r2"),c.GetString("r3"))

 

سلام

کل کدتون و یه عکس از ساختار دیتابیستون قرار بدید

آیا توی دیتابیس شما هم اسم فیلد ها r1 تا r3 هست که توی کدتون اینها رو قرار دادید؟

[agha sasan 82]

اون فیلد ها رو من بطور مثال قرار دادم حواسم نبود بگم شما فیلد هارو عوض کنید ببخشید