'首先引用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
这里要加上objrs.movenext while not objrs.eof list1.additem objrs.fields(0) objrs.movenext wend
利用一些数据绑定控件和adodc,用不着写多少代码就可以,显示数据,但只能是初级应用,
找不到可安装的ISAM是什么意思?????
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
'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
对控件点击右键,选择属性,------详细的情况看一下帮助
while not objrs.eof
list1.additem objrs.fields(0)
objrs.movenext
wend
'参数一: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
或者选"选择全部",反正硬盘大