فایلهای تصادفی -VB.Net 2008

[Shamsipour.ac]

1-چگونه میتوان در فایلهای تصادفی رکورد با طول ثابت تعریف کرد؟
2-کدهای زیر را نگاه کنید Error میده، علت چیست؟
لطفا درستش کنید و به [email protected] میل کنید و یا....
از پایین به بالا خط ششم:
خطای Bad record lengh

Module Fields1
Structure pr
Dim fname As String
Dim lname As String
Dim regcode As String
Dim shtxt As String
Dim namef As String
Dim addrs As String
Dim phone As String
Dim phonecode As String
Dim mob As String
Dim mobc As String
Dim mail As String
Dim jobp As String
Dim jobphd As String
Dim picpath As String
Dim title As String
Dim subj As String
Dim come As String
Dim city As String
Dim sch As String
Dim rfield As String
Dim addrjob As String
Dim job As String
Dim comekh As String
Dim score As Byte
Dim dd As String
Dim yy As String
Dim mm As String
Dim hamk As String
Dim isdav As String
Dim syy As String
Dim smm As String
Dim sdd As String
Dim eyy As String
Dim emm As String
Dim edd As String
Dim davcom As String
Dim id As Byte
Dim se1 As String
End Structure
Public person As pr
End Module
'=========================================================
Public Class Regfrm
Private Sub reg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reg.Click
FileOpen(1, "C:\Invention system\Ekhtera.mdb", OpenMode.Random, , , Len(person))
Dim lng As Long
lng = FileLen("C:\Invention system\Ekhtera.mdb") / Len(person)
Dim k As String
k = "C:\Invention system\Files\" & idtxt.Text.ToString & ".jpg"
FileCopy(cmd.FileName, k)
Seek(1, lng + 1)
person.picpath = k
person.regcode = idtxt.Text
person.lname = lnametxt.Text
person.fname = fnametxt.Text
person.namef = nameftxt.Text
person.shtxt = shtxt.Text
person.dd = ddtxt.Text
person.yy = yytxt.Text
person.mm = mmtxt.Text
person.city = citytxt.Text
person.sch = schtxt.Text
person.rfield = rfiledtxt.Text
person.phonecode = phonetxt.Text
person.phone = phonetxt.Text
person.mob = mobtxt.Text
person.mobc = mobcode.Text
person.addrs = addrtxt.Text
person.mail = mailtxt.Text
person.jobp = codej.Text
person.jobphd = phonej.Text
person.addrjob = addrjobtxt.Text
person.hamk = "144"
person.job = jobtxt.Text
person.title = Trim(tittletxt.Text)
person.subj = subtxt.Text
person.comekh = comtxt.Text
person.syy = syy.Text
person.smm = smm.Text
person.sdd = sdd.Text
person.eyy = eyy.Text
person.emm = emm.Text
person.edd = edd.Text
person.davcom = Trim(comdav.Text)
person.score = Val(sctxt.Text)
person.se1 = se.Text
If Val(lbid1.Text) + 1 > 99 Then
person.id = 10
Else
person.id = Val(lbid1.Text)
End If
person.score = Val(sctxt.Text)
person.isdav = sdavari.Text
person.come = comdav.Text
person.isdav = sdavari.Text
خطای FilePut(1, person, ) 'Error>"Bad record lengh
FileClose(1)
MsgBox("اطلاعات با موفقیت ثبت و برای داوری ارسال شد.", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "تایید")
End Sub
End Class​