vb如何连接到网络中的access数据库??初学者请说详细一点!!!!(高分!)
最好举个实例!

解决方案 »

  1.   

    '首先引用Microsoft Activex Data Objects 2.x Library 
    'access
    Dim objcon As New ADODB.Connection
    Dim objrs As New ADODB.Recordset
    objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ip地址+数据库路径+数据库名" '如:192.168.0.1\c:\data.mdb
    objrs.Open "select * from infoTable ", objcon, 3, 1
    while not objrs.eof
    list1.additem objrs.fields(0)
    wend
      

  2.   

    用ado很方便的,用adodb控件就更方便了,先在通过工程-部件添加控件,在窗体上建立控件
    对控件点击右键,选择属性,------详细的情况看一下帮助
      

  3.   

    这里要加上objrs.movenext
    while not objrs.eof
    list1.additem objrs.fields(0)
    objrs.movenext
    wend
      

  4.   

    利用一些数据绑定控件和adodc,用不着写多少代码就可以,显示数据,但只能是初级应用,
      

  5.   

    找不到可安装的ISAM是什么意思?????
      

  6.   

    Option Explicit'功能简介:建立本地数据库公共链接
    '参数一:MDB数据库地址路径
    '返回值:"ok"--成功
    Function PulbicMdbConn(ByVal StrPath As String) As String
        On Error GoTo MdbConnErr
        Dim StrSQl As String
        StrSQl = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrPath & ";Persist Security Info=False"
        If MdbConn.State <> 0 Then MdbConn.Close
        MdbConn.Open StrSQl
        PulbicMdbConn = "ok"
        Exit Function
    MdbConnErr:
        PulbicMdbConn = Err.Description
        If MdbConn.State <> 0 Then MdbConn.Close: Set MdbConn = Nothing
    End Function'功能简介:关闭本地数据库公共链接
    Function PublicMdbClose()
        If MdbConn.State <> 0 Then MdbConn.Close: Set MdbConn = Nothing
    End Function
      

  7.   

    找不到可安装的ISAM是什么意思?????重新起动VB安装程序,不要选典型安装,选"自定义"》》数据访问
    或者选"选择全部",反正硬盘大