中科新闻网莫扎特和谁过不去:VB代码,高手来答题,急
来源：百度文库 编辑：中科新闻网 时间：2024/05/10 08:54:42
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)
每句的含义