UC知道VB语句..帮我解释一下
来源：百度知道 编辑：UC知道 时间：2024/09/25 17:11:13
Private Sub CmdMStart_Click()
Timer_1s.Enabled = True
databasefile1 = App.Path + "\异步电动机温升.mdb"
i = 0
Do
i = i + 1
databasefile2 = App.Path + "\异步电动机温升" + Str(Date) + Str(i) + ".mdb"
Loop While Dir(databasefile2) <> ""
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile databasefile1, databasefile2, False
Set db = OpenDatabase(databasefile2)
Set rst1 = db.OpenRecordset("select * from 各点温度变化表") ',dbOpenDynaset)
Do While rst1.RecordCount <> 0
rst1.MoveFirst
rst1.Delete
rst1.MoveFirst
Loop
rst1.Close
Pic1.Visible = True
pic1_refresh
End Sub
谁能不能帮我解释一下??
Timer_1s.Enabled = True
databasefile1 = App.Path + "\异步电动机温升.mdb"
i = 0
Do
i = i + 1
databasefile2 = App.Path + "\异步电动机温升" + Str(Date) + Str(i) + ".mdb"
Loop While Dir(databasefile2) <> ""
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile databasefile1, databasefile2, False
Set db = OpenDatabase(databasefile2)
Set rst1 = db.OpenRecordset("select * from 各点温度变化表") ',dbOpenDynaset)
Do While rst1.RecordCount <> 0
rst1.MoveFirst
rst1.Delete
rst1.MoveFirst
Loop
rst1.Close
Pic1.Visible = True
pic1_refresh
End Sub
谁能不能帮我解释一下??
Private Sub CmdMStart_Click()
'计时开始
Timer_1s.Enabled = True
'数据库文件的位置是程序所在目录下的异步电动机温升.mdb文件
databasefile1 = App.Path + "\异步电动机温升.mdb"
i = 0
'循环直到找到当天有效的数据库文件
Do
i = i + 1
databasefile2 = App.Path + "\异步电动机温升" + Str(Date) + Str(i) + ".mdb"
Loop While Dir(databasefile2) <> ""
'初始fs的值
Set fs = CreateObject("Scripting.FileSystemObject")
'复制数据库1到数据库2
fs.CopyFile databasefile1, databasefile2, False
'打开数据库2
Set db = OpenDatabase(databasefile2)
'在数据库2各点温度变化表中查询所有记录
Set rst1 = db.OpenRecordset("select * from 各点温度变化表") ',dbOpenDynaset)
'如果有记录存在则全部删除
Do While rst1.RecordCount <> 0
rst1.MoveFirst
rst1.Delete
rst1.MoveFirst
Loop
'关闭查询
rst1.Close
'图片框可视
Pic1.Visible = True
'刷新显示
pic1_refresh
End Sub