济南鲁商凤凰城吧:VB代码,高手来答题

Set mydata = OpenDatabase(App.Path + "\db1.mdb")
Set myrecord = mydata.OpenRecordset("数据库") filename = FreeFile
Open Text1.text For Input As #filename
Do While Not EOF(1)
Line Input #filename, allline
myrecord.AddNew
mystring = Split(allline, ",", -1, 1)
myrecord.Fields("校园网IP") = mystring(0)
myrecord.Fields("权限") = mystring(1)
myrecord.Fields("N/Y") = mystring(3)
myrecord.Fields("日期") = mystring(4)
myrecord.Fields("时间") = mystring(5)
myrecord.Fields("网站域名") = mystring(9)
myrecord.Fields("网站IP") = mystring(10)
myrecord.Fields("端口") = mystring(11)
myrecord.Fields("性质") = "临时"
myrecord.Update
每一句含义是什么?铁别是Set myrecord = mydata.OpenRecordset("数据库") filename = FreeFile
Open Text1.text For Input As #filename
Do While Not EOF(1)
Line Input #filename, allline
myrecord.AddNew
mystring = Split(allline, ",", -1, 1)