查人人中国名人网我的世界骷髅怎么驯服:VB代码,高手来答题,急
来源：百度文库 编辑：查人人中国名人网 时间：2024/07/02 18:13:47
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)
每句的含义