请教几个问题,关于vb连接access的
用strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\data\data.mdb;Persist Security Info=False "
dbcon.ConnectionString = strConnect
dbcon.Open
句子连接出现Provider=Microsoft.Jet.OLEDB.4.0;Data Source无效外部过程的错误,需要引用什么么?
还有,如何让一个textbox 取得当前的系统日期,要求年月日小时分??
还有accsee 数据库如何备份?
[解决办法]
Dim Con As ADODB.Connection
Dim rs As ADODB.Recordset
Set Con = New ADODB.Connection
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\计划管理系统.mdb;Persist Security Info=False "
Con.Open strCon
Set rs = New ADODB.Recordset
'添加记录
strsql= "select * from table "
rs.Open strsql, Con, adOpenKeyset, adLockOptimistic
rs.addnew
rs!字段1=text1.text
rs!字段2=text2.text
........
rs.update
rs.close
set rs=nothing
[解决办法]
备份数据库，可以用文件拷贝命令
FileCopy 语句示例
本示例使用 FileCopy 语句来复制文件。示例中假设 SRCFILE 为含有数据的文件。
Dim SourceFile, DestinationFile
SourceFile = "SRCFILE " ' 指定源文件名。
DestinationFile = "DESTFILE " ' 指定目的文件名。
FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中。
FileCopy 语句
复制一个文件。
语法
FileCopy source, destination
FileCopy 语句的语法含有以下这些命名参数：
部分 描述
source 必要参数。字符串表达式，用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式，用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。
说明
如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。
[解决办法]
备份代码
添加CommonDialog控件到窗体上(工程/部件/Microsoft/CommonDialog Control 6.0)
备份当前文件夹下的 db1.mdb 到别的地方去:
Private Sub Command1_Click()
Dim mfile As String, mfile2 As String
On Error Resume Next
CommonDialog1.Filter = "Access文件(*.mdb)|*.mdb "
CommonDialog1.ShowSave
mfile = App.Path & "\db1.mdb " '要备份的文件为当前文件夹下的 db1.mdb
mfile2 = CommonDialog1.FileName '得到目标文件的路径
If Trim(mfile2) = " " Then Exit Sub
If Dir(mfile2) <> " " Then
If MsgBox(Dir(mfile2) & " 文件已经存在，是否替换？ ", vbYesNo, "警告 ") = vbNo Then Exit Sub
End If
Dim buff() As Byte, i As Long
i = FileLen(mfile)
ReDim buff(i - 1)
Open mfile For Binary As #1
Get #1, , buff
Close #1
Open mfile2 For Binary As #1
Put #1, , buff
Close #1
MsgBox "备份完毕！ "
End Sub
[解决办法]
还原代码
恢复文件是一样的原理,就是用别的地方的Access文件覆盖掉当前目录下的Access文件:
Private Sub Command2_Click()
Dim mfile As String, mfile2 As String
On Error Resume Next
CommonDialog1.Filter = "Access文件(*.mdb)|*.mdb "
CommonDialog1.ShowOpen
mfile = CommonDialog1.FileName '得到别处的Access文件的路径
mfile2 = App.Path & "\db1.mdb " '要覆盖掉当前文件夹下的 db1.mdb
If Trim(mfile) = " " Then Exit Sub
If MsgBox( "是否恢复数据库？ ", vbYesNo, "警告 ") = vbNo Then Exit Sub
Dim buff() As Byte, i As Long
i = FileLen(mfile)
ReDim buff(i - 1)
Open mfile For Binary As #1
Get #1, , buff
Close #1
Open mfile2 For Binary As #1
Put #1, , buff
Close #1
MsgBox "恢复完毕！ "
End Sub
