如何用vb在局域网中访问access数据
展开全部
Public Function ADO_ACCESS() As Integer '使用ADO方式连接ACCESS数据库示例代码
'要先引用工程库：Microsoft ActiveX Data Objects 6.0 Library
'此方法可以直接在代码中提供查询SQL进行查询并返回结果
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\test.mdb;Mode=ReadWrite;Extended Properties='';Jet OLEDB:System"
strsql = "select * from ssl;"
rs.Open strsql, cnn, adOpenKeyset, adLockReadOnly '打开记录集
MsgBox (rs.RecordCount) '读取成功
rs.Close '关闭记录集
cnn.Close '关闭数据库
Set rs = Nothing '清空内存
Set cnn = Nothing '清空内存
End Function
cnn.Open 后面的连接字串如果不对，可在网上根据你的ACCESS版本搜索具体的字符串格式
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
