引用 FSO对象 Dim CopyMdb As FileSystemObject Set CopyMdb = New FileSystemObject '复制文件为tmp CopyMdb.CopyFile "" & App.Path & "\datakey.bin", "" & App.Path & "\tmp.bin"
此段代码可用做数据库备份Dim ss As New ADODB.Connection Dim db As DAO.DatabaseSet db = CreateDatabase(App.Path + "\savedb.mdb", dbLangGeneral, dbEncrypt) db.Close Set db = Nothingss.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mydbname.mdb;" ss.Open ss.Execute "select * into " + App.Path + "\savedb.tablename from mytbl" ss.Close Set ss = Nothing
filecopy 源文件 目标文件源文件和目标文件应含有路径和文件名,你没有加目标文件的文件名
Dim fso As FileSystemObject Set fso = New FileSystemObjectIf Option1.Value = 1 Then fso.CopyFile "" & App.Path & "\db1.mdb", "" & App.Path & "\db2.mdb"
如果刚开始学习VB的数据库编程,而且是对ACCESS进行操作,最好用一些时间把这个例子看懂了,这样VB操作ACCESS数据库也就没有什么可以难住你的了。
Dim CopyMdb As FileSystemObject
Set CopyMdb = New FileSystemObject
'复制文件为tmp
CopyMdb.CopyFile "" & App.Path & "\datakey.bin", "" & App.Path & "\tmp.bin"
Dim db As DAO.DatabaseSet db = CreateDatabase(App.Path + "\savedb.mdb", dbLangGeneral, dbEncrypt)
db.Close
Set db = Nothingss.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mydbname.mdb;"
ss.Open
ss.Execute "select * into " + App.Path + "\savedb.tablename from mytbl"
ss.Close
Set ss = Nothing
Set fso = New FileSystemObjectIf Option1.Value = 1 Then
fso.CopyFile "" & App.Path & "\db1.mdb", "" & App.Path & "\db2.mdb"
Else
If Option2.Value = 1 Then
fso.CopyFile "" & App.Path & "\db1.mdb", "" & mulu & "\ db1.mdb"
End If
End If
我用上面的代码也没有反应
不知道错在哪,
mulu是通过dirlistbox选的路径, 然后传给mulu的
上面的兄弟
我的代码错在哪里