高校问答凤翔周边的旅游景点:VB代码,高手来答题,急
来源：百度文库 编辑：高校问答 时间：2024/04/29 09:41:29
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)
每句的含义