fso.DeleteFolder "d:\北京奥运"出错

来源:百度知道 编辑:UC知道 时间:2024/06/25 04:17:03
用这个命令出错,提示确定后就退出了。如何能够就是出错直接忽略过去?后面一个参数force是什么意思?

先引用ADO,具体步骤:工程->引用,在弹出的引用对话框中选择选择Microsoft ActiveX Data Objects 2.5 Library,确定

然后写程序

Private Sub Form_Load()
Dim uConn As ADODB.Connection
Set uConn = New ADODB.Connection

uConn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Port=3306;Database=mas;User=wzez; Password=wzez0314;Option=3;"
uConn.Open

uConn.Execute "insert into averagecost(cost,period,period1) select avg(cost),curdate(),monthname(curdate()) from inventory group by iprodno"

End Sub