خواندن و نوشتن در فایل به صورت رکورد

[eng.moaiedi 29]

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

سورس های داخل سایت و آموزش های مربوط به فایل رو هم مشاهده کردم ولی هیچ کدوم از اونها به صورت رکورد کار نکردن ممنون میشم دوستان راهنمایی بفرمایند با تشکر.

[eng.moaiedi 29]

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

[مجید آرتا 5,874]

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

ماشاءالله دست به اسپمتون قویه.

یک توضیح کامل راجب به کاری که میخواهید انجام بدید رو بگید و سورستونو آپ کنید بگم مشکلش کجاست

[نیما قبادی 246]

در اینباره اطلاعاتی خیلی زیادی ندارم من با فایل تا جایی که یادم بیاد برا ذخیره کردن استفاده کردم دیگه هم دورش نرفتم ولی حالا اگه کس دیگه ای باشه که کامل بدونه خوبه ما هم بیشتر یاد میگیریم*خنده**خنده شیطان

[eng.moaiedi 29]

من خودم کتابخونه ای بنام RandomAccessFile پیدا کردم اطلاعات ذخیره میشه بصورت رکورد ولی رکورد به صورت کلی بازیابی نمیشه... یعنی کل رکورد ها...

Dim Rand As RandomAccessFile

Dim Student As St
Student.Name = TxtName.Text
Student.Family = TxtFamily.Text
Student.BD = TxtBd.Text
Student.Reshte = TxtReshte.Text
Student.ID = TxtId.Text
Dim Ls As List
Ls.Initialize
Ls.Add(Student)
Rand.Initialize(File.DirInternal, "Student.dat", False)
Rand.WriteObject(Ls,True,Rand.CurrentPosition)
Rand.Close
Rand.Initialize(File.DirInternal, "Student.dat", False)
Ls = Rand.ReadObject(Rand.CurrentPosition)
Log(Ls)

Rand.Close

این هم کد بازیابی

Dim Ls As List
Ls.Initialize


If File.Exists(File.DirInternal,"Student.dat") Then
f.Initialize(File.DirInternal,"Student.dat",True)
Do While (f.CurrentPosition < f.Size -1 )
f.CurrentPosition = f.CurrentPosition+1
Ls.Add(f.ReadObject(f.CurrentPosition))
Log(Ls)
Loop
f.Close

End If

ولی هر کاری می کنم ارور می ده نمی دونم دیگه چیکار کنم....

[نیما قبادی 246]

چشمام داره درمیاد میزارم فردا حتما نگاه میکنم ببینم میتونم مشکلتونو میتونم حل کنم*تک قلب*

[mohammad-alone 564]

دوست خوبم شما برای اینکار میتونید از کتابخانه sql استفاده کنید