打开一个ADO连接

时　间:2012-08-09 09:04:57
作　者:mnu   ID：27115  城市：宁波
摘　要:打开一个ADO连接
正　文:

要打开一个ADO连接,使用:
Set gConnection=New connection
gConnection.Open"PROVIDER=MSDASQL;DSN=ny_isconn;UID=;PWD=;"

 
Public Function GetConnStr() As String
'得到数据库连接字符串，用户可以在此处设置连接字符串
'User ID 是数据库用户ID，Password是登陆密码
'Initial Catalog是数据库名，Data Source是服务器名称
    GetConnStr = ConnectionString
End Function

 
'得到数据库连接字符串，用户可以在此处设置连接字符串
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ";Mode=ReadWrite;Persist Security Info=False" + ";Jet OLEDB:Database Password="

 
标题: vb备份ACCESS数据库文件的问题

--------------------------------------------------------------------------------
作者: mnu    时间: 2010-4-24 13:55     标题: vb备份ACCESS数据库文件的问题

 
Public conn As New ADODB.Connection

Public Function GetConnStr() As String

  ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\CXPCdb.mdb;Persist Security Info=False;Jet OLEDB:Database """

    GetConnStr = ConnectionString

End Function

Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean

'打开数据库连接，连接成功返回true，出错时返回false

    Set Conn = New ADODB.Connection

    '出错处理

    On Error GoTo ErrorHandle

    Conn.Open GetConnStr

    OpenConn = True

    Exit Function

ErrorHandle:

    MsgBox "连接数据库失败！请重新连接！"

    OpenConn = False

    Exit Function

End Function
 

--------------------------------------------------------------------------------
作者: mnu    时间: 2010-4-24 13:56

Private   Sub   mnuDBbackup_Click()                   '备份数据库  

  Dim   fs  

  Set   fs   =   CreateObject("Scripting.FileSystemObject")  

  If   fs.FileExists(App.Path   &   "\backup\dbbackup.mdb")   Then   fs.DeleteFile   App.Path   &   "\backup\dbbackup.mdb"  

  fs.copyfile   App.Path   &   "\mlc.mdb",   App.Path   &   "\backup\dbbackup.mdb"  

  MsgBox   "备份完成!",   64,   "数据库备份情况"  

  End   Sub  

  Private   Sub   mnuDBrestore_Click()                 '恢复数据库  

  Dim   fs  

  Set   fs   =   CreateObject("Scripting.FileSystemObject")  

  dbs.Close  

  If   fs.FileExists(App.Path   &   "\mlc.mdb")   Then   fs.DeleteFile   App.Path   &   "\mlc.mdb"  

  fs.copyfile   App.Path   &   "\backup\dbbackup.mdb",   App.Path   &   "\mlc.mdb"  

  Set   dbs   =   OpenDatabase(App.Path   &   "\mlc.mdb")  

  MsgBox   "已恢复上次备份!",   64,   "数据库恢复情况"  

  End   Sub