UC知道VB程序连接ACCESS数据库
来源：百度知道 编辑：UC知道 时间：2024/09/23 23:25:44
在VB新建一个窗体,代码如下
Private Sub Form_GotFocus()
On Error GoTo DealError
Me.Enabled = False
Dim objCn As New Connection
With objCn
.Provider = "SQLOLEDB"
.ConnectionString = "User ID=sa1;PWD=123;Data Source=(local);" & _
"Initial Catalog=数据"
.Open
.Close
End With
Set objCn = Nothing
Label1(4) = "已联接到数据库服务器"
Timer1.Interval = 3000
Me.Enabled = True
Exit Sub
DealError:
MsgBox "不能正确联接数据库服务器，请与系统管理员联系", vbInformation
Unload Me
End Sub
上面是用VB连接SQL,怎样改才能实现连接Access中的数据库呀,我在Access中建的数据库名为"数据.mdb"
Private Sub Form_GotFocus()
On Error GoTo DealError
Me.Enabled = False
Dim objCn As New Connection
With objCn
.Provider = "SQLOLEDB"
.ConnectionString = "User ID=sa1;PWD=123;Data Source=(local);" & _
"Initial Catalog=数据"
.Open
.Close
End With
Set objCn = Nothing
Label1(4) = "已联接到数据库服务器"
Timer1.Interval = 3000
Me.Enabled = True
Exit Sub
DealError:
MsgBox "不能正确联接数据库服务器，请与系统管理员联系", vbInformation
Unload Me
End Sub
上面是用VB连接SQL,怎样改才能实现连接Access中的数据库呀,我在Access中建的数据库名为"数据.mdb"
With objCn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据.mdb;Persist Security Info=False"
.Open
'.Close '为什么打开后就马上关闭啊?
End With
数据库是在程序相同的目录下
Google搜索
“VB 连接 ACCESS”
自己看去 懒得写了
以下是http://topic.csdn.net/t/20051215/08/4459748.html的内容，如果懒得去看直接用下面的内容
Option Explicit
Private Rs As New ADODB.Recordset
Private Conn As New ADODB.Connection
Private Sub Form_Load()
Dim strConn As String
' 连接数据库的字符串
' 连接带密码的数据库,直接在连接符后面加上Jet OLEDB:DataBase Password='您的密码'
' 连接Access97数据库需要使用Jet.OLEDB.3.5,Access2K和以上数据库使用Jet.OLEDB.4.0
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source