vb6.0中怎样远程访问access数据库？
展开全部
在工程里引用microsoft activex data objects 2.7 library
Dim cn As New ADODB.Connection, rs1 As New ADODB.Recordset, sql As String '在通用声明里定义，其中cn是连接对象，rs1是记录集，sql是查询语句
Private Sub Form_Load()
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\数据库名.mdb" + ""
sql = "select * from 表名"
rs1.Open sql, cn
rs1.MoveFirst
Do While Not rs1.EOF
Combo1.AddItem rs1("字段名")
rs1.MoveNext
Loop
rs1.Close
End Sub
上面的是打开数据库进行查询，并将查询结果写入列表框
不清楚的留言给我，发一个可以运行的程序给你参考
Dim cn As New ADODB.Connection, rs1 As New ADODB.Recordset, sql As String '在通用声明里定义，其中cn是连接对象，rs1是记录集，sql是查询语句
Private Sub Form_Load()
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\数据库名.mdb" + ""
sql = "select * from 表名"
rs1.Open sql, cn
rs1.MoveFirst
Do While Not rs1.EOF
Combo1.AddItem rs1("字段名")
rs1.MoveNext
Loop
rs1.Close
End Sub
上面的是打开数据库进行查询，并将查询结果写入列表框
不清楚的留言给我，发一个可以运行的程序给你参考
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
一样的
只是要把连接字符串多加个计算机名或是IP地址
不过最好不要用Access数据库
据说它只能支持十个以下的用户同时访问
只是要把连接字符串多加个计算机名或是IP地址
不过最好不要用Access数据库
据说它只能支持十个以下的用户同时访问
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
如果你会用本地连接数据库，那很容易呀，主要设置 连接字符串就可以了 connstr 例如 connstr = "driver={SQL Server};server=www;UID=111;PWD=111;database=data1"更多例子(不同的连接方式)在以下网址 http://www.connectionstrings.com/
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
