打开一个ADO连接-ihcn专栏

要打开一个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