
可以使用宏来实现,给你一个简单的例子。
Sub adoTest()
Dim adoRt As Object
Dim strSQL As String
'// 创建ADO记录集对象
Set adoRt = CreateObject("ADODBRecordSet")
'// 设置SQL 语句
strSQL = "SELECT FROM uTemp WHERE False"
With adoRt
'// 设置需要连接数据库
ActiveConnection = "Provider=MicrosoftJetOLEDB40;Data Source=D:\栽培者\程序\打印类\测试\printTestmdb"
CursorLocation = 3
CursorType = 1
LockType = 3
'// 设置SQL语句
Source = strSQL
'// 准备打开记录集
Open
'// 新增记录
AddNew
'// 赋值
Fields("Name")Value = Range("A1")Value
Fields("Sex")Value = Range("B1")Value
Fields("Age")Value = Range("C1")Value
'// 更新
Update
'// 判断并关闭记录
If State = 1 Then
Close
End If
End With
'// 从内存中释放
Set adoRt = Nothing
End Sub
以上就是关于怎么在excel vba中引用access中的数据全部的内容,包括:怎么在excel vba中引用access中的数据、如何在EXCEL中,用VBA实现数据自动更新到ACCESS中、excel中如何直接调用access数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)