以下为VBA连接ACCESS2007 ; Sub AC() Dim cnn As New Connection Dim rs As New Recordset Dim sql As String Dim qx As String qx = "金牛" cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;data Source=" & ThisWorkbook.Path & "\数据库.accdb" sql = "select * from [宏站] where 区域='" & qx & "'"'('" & qx & "'")括号里这段有点BT,一定要这样写才行。 rs.Open sql, cnn[a1].CopyFromRecordset rsEnd Sub
本帖最后由 bcrun 于 2013-06-15 21:22:47 编辑
远程连接: 把局域网里面的Access数据库服务器中的Access数据库文件所在的文件夹设置共享 然后写成这样:\\服务器名或IP\你共享的文件夹的名字(其它路径不写的)\数据库名 这里说明了方法的。http://topic.csdn.net/u/20081216/17/ee68c83c-2b4d-44e7-8a77-b8120bbf7718.html Sub 远程() Dim cnn As New Connection Dim rs As New Recordset Dim sql As String Dim qx As String qx = "金牛" cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=\\192.168.0.101\\ac\\数据库.mdb " sql = "select * from [宏站] where 区域='" & qx & "'" '('" & qx & "'")括号里这段有点BT,一定要这样写才行。 rs.Open sql, cnn[a1].CopyFromRecordset rsEnd Sub
远程连接: 把局域网里面的Access数据库服务器中的Access数据库文件所在的文件夹设置共享 然后写成这样:\\服务器名或IP\你共享的文件夹的名字(其它路径不写的)\数据库名 这里说明了方法的。http://topic.csdn.net/u/20081216/17/ee68c83c-2b4d-44e7-8a77-b8120bbf7718.html Sub 远程() Dim cnn As New Connection Dim rs As New Recordset Dim sql As String Dim qx As String qx = "金牛" cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=\\192.168.0.101\\ac\\数据库.mdb " sql = "select * from [宏站] where 区域='" & qx & "'" '('" & qx & "'")括号里这段有点BT,一定要这样写才行。 rs.Open sql, cnn[a1].CopyFromRecordset rsEnd Sub好同志,回答的真详细。
以下为VBA连接ACCESS2007 ;
Sub AC()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim qx As String
qx = "金牛"
cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;data Source=" & ThisWorkbook.Path & "\数据库.accdb"
sql = "select * from [宏站] where 区域='" & qx & "'"'('" & qx & "'")括号里这段有点BT,一定要这样写才行。
rs.Open sql, cnn[a1].CopyFromRecordset rsEnd Sub
远程连接:
把局域网里面的Access数据库服务器中的Access数据库文件所在的文件夹设置共享
然后写成这样:\\服务器名或IP\你共享的文件夹的名字(其它路径不写的)\数据库名
这里说明了方法的。http://topic.csdn.net/u/20081216/17/ee68c83c-2b4d-44e7-8a77-b8120bbf7718.html
Sub 远程()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim qx As String
qx = "金牛"
cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=\\192.168.0.101\\ac\\数据库.mdb "
sql = "select * from [宏站] where 区域='" & qx & "'"
'('" & qx & "'")括号里这段有点BT,一定要这样写才行。
rs.Open sql, cnn[a1].CopyFromRecordset rsEnd Sub
远程连接:
把局域网里面的Access数据库服务器中的Access数据库文件所在的文件夹设置共享
然后写成这样:\\服务器名或IP\你共享的文件夹的名字(其它路径不写的)\数据库名
这里说明了方法的。http://topic.csdn.net/u/20081216/17/ee68c83c-2b4d-44e7-8a77-b8120bbf7718.html
Sub 远程()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim qx As String
qx = "金牛"
cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=\\192.168.0.101\\ac\\数据库.mdb "
sql = "select * from [宏站] where 区域='" & qx & "'"
'('" & qx & "'")括号里这段有点BT,一定要这样写才行。
rs.Open sql, cnn[a1].CopyFromRecordset rsEnd Sub好同志,回答的真详细。