请教几个问题,关于vb连接access的

Question

用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 数据库如何备份?

Answer 1

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

Answer 2

备份数据库，可以用文件拷贝命令   
    
  FileCopy   语句示例   
  本示例使用   FileCopy   语句来复制文件。示例中假设   SRCFILE   为含有数据的文件。   
    
  Dim   SourceFile,   DestinationFile   
  SourceFile   =   "SRCFILE"       '   指定源文件名。   
  DestinationFile   =   "DESTFILE"       '   指定目的文件名。   
  FileCopy   SourceFile,   DestinationFile       '   将源文件的内容复制到目的文件中。   
    
    
    
  FileCopy   语句   
                
    
  复制一个文件。   
    
  语法   
    
  FileCopy   source,   destination   
    
  FileCopy   语句的语法含有以下这些命名参数：   
    
  部分   描述     
  source   必要参数。字符串表达式，用来表示要被复制的文件名。source   可以包含目录或文件夹、以及驱动器。     
  destination   必要参数。字符串表达式，用来指定要复制的目地文件名。destination   可以包含目录或文件夹、以及驱动器。     
    
    
  说明   
    
  如果想要对一个已打开的文件使用   FileCopy   语句，则会产生错误。

Answer 3

备份代码
添加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 Longi = FileLen(mfile)
ReDim buff(i - 1)Open mfile For Binary As #1
Get #1, , buff
Close #1Open mfile2 For Binary As #1
Put #1, , buff
Close #1MsgBox "备份完毕！"
End Sub

Answer 4

还原代码
恢复文件是一样的原理,就是用别的地方的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.mdbIf Trim(mfile) = "" Then Exit SubIf MsgBox("是否恢复数据库？", vbYesNo, "警告") = vbNo Then Exit SubDim buff() As Byte, i As Longi = FileLen(mfile)
ReDim buff(i - 1)Open mfile For Binary As #1
Get #1, , buff
Close #1Open mfile2 For Binary As #1
Put #1, , buff
Close #1MsgBox "恢复完毕！"
End Sub

Answer 5

如何让一个textbox 取得当前的系统日期,要求年月日小时分??
  text1.text=now

Answer 6

你的第一个问题记得要引用ado  
你只需要在工程/引用 miscrosoft Activex data objects 2.x library 就可以了