杭州交通信息网a380座位分布图:VB代码,高手来答题,急
来源：百度文库 编辑：杭州交通信息网 时间：2024/06/13 16:48:34
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)
每句的含义
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)
每句的含义