189 8069 5689
1，使用ADO connection对象
我们提供的服务有：网站建设、成都网站设计、微信公众号开发、网站优化、网站认证、安塞ssl等。为成百上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的安塞网站制作公司
首先，要建立ADO引用，定义connection这个类，然后实例化对象。
代码完成如下：
span style="font-size:18px;"Dim objCn As New Connection, objRs As New Recordset
objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" "Data Source=" App.Path "\实例01.mdb"
objCn.Open
/span
2，使用ODBC数据源
首先，打开电脑上的ODBC数据源，建立关系。
步骤如下：
1），打开电脑上的ODBC数据源
如下图所示：
2）点击添加
3）命名
4）和数据库源建立关系
5）用代码实现连接
span style="font-size:18px;"
dim objCn As Connection
Set objCn = New Connection
objCn.Open "DSN=实例2DSN"
/span
3、ADO Data 控件创建连接
1）右击data控件，选择ADODC属性
2）从三种连接资源中选择一种。
使用data Link 文件：直接点击浏览，找到包含连接字符串的.udl文件即可
使用ODBC数据源连接，单击新建
选择用户数据库，之后的操作跟2中步骤一样。
使用连接字符串：单击生成
测试连接
4、使用数据环境设计器创建数据库连接
添加引用
右击创建连接，在右击想要连接的属性，之后的操作跟data控件中使用字符串中的操作一致
一、二进制文件读写
1、写二进制数据到指定目录
==将barray字节数组中的数据创建在strFilename目录文件下，存储格式为二进制，False表示不添加，直接覆盖创建。
2、从指定路径下读取二进制数据到数组
==将目录中的文件读取到barry字节数组中，即读取二进制文件。
二、字符文件的读写
1、 将txtFile控件中的字符写到srtFileName指定目录,以创建方式。
2、从srtFileName目录中的文件读取到txtFile控件
请楼主注意！U盘的盘符是变化的！你的系统上可能是D，客户的系统上可就不一定了！到时候会找不到数据库的！
强烈建议不要采取这样的方法！
另外，你的数据集指针不移动能查到第二条数据？
while not 数据集.eof do
......
数据集.Next
按上面的意思遍历数据集就可以了
Declare Function GetNetworkParams Lib "iphlpapi.dll" (FixedInfo As Any, pOutBufLen As Long) As Long
Declare Function GetIfTable Lib "iphlpapi.dll" (ByRef pIfTable As MIB_IFTABLE, ByRef pdwSize As Long, _
ByVal bOrder As Long) As Long
Declare Function GetIfEntry Lib "iphlpapi.dll" (pIfRow As MIB_IFROW) As Long
Type MIB_IFROW '保存结果信息
wszName(0 To 511) As Byte '接口名称的Unicode字符串，必须为512字节
dwIndex As Long '接口编号
dwType As Long '接口类型，参看IP_ADAPTER_INFO类型的Type成员
dwMtu As Long '最大传输单元
dwSpeed As Long '接口速度(字节)
dwPhysAddrLen As Long '由bPhysAddr获得的物理地址有效长度
bPhysAddr(0 To 7) As Byte '物理地址
dwAdminStatus As Long '接口管理状态
dwOperStatus As Long '操作状态，以下值之一:
dwLastChange As Long '操作状态最后改变的时间
dwInOctets As Long '总共收到(字节)
dwInUcastPkts As Long '总共收到(unicast包)
dwInNUcastPkts As Long '总共收到(non-unicast包)，包括广播包和多点传送包
dwInDiscards As Long '收到后丢弃包总数(即使没有错误)
dwInErrors As Long '收到出错包总数
dwInUnknownProtos As Long '收到后因协议不明而丢弃的包总数
dwOutOctets As Long '总共发送(字节)
dwOutUcastPkts As Long '总共发送(unicast包)
dwOutNUcastPkts As Long '总共发送(non-unicast包)，包括广播包和多点传送包
dwOutDiscards As Long '发送丢弃包总数(即使没有错误)
dwOutErrors As Long '发送出错包总数
dwOutQLen As Long '发送队列长度
dwDescrLen As Long 'bDescr部分有效长度
bDescr(0 To 255) As Byte '接口描述
End Type
Type MIB_IFTABLE '包含结果表
dwNumEntries As Long '当前网络接口的总数
MIB_Table(9) As MIB_IFROW '指向一个包含MIB_IFROW类型的指针
End Type
Sub Test()
Dim Net As MIB_IFTABLE
LenIfT = Len(Net)
RValue = GetIfTable(Net, LenIfT, True)
'由Net.dwNumEntries获得接口数量，然后用for…next循环获取每个接口信息:
For I = 1 To Net.dwNumEntries - 1
With Net.MIB_Table(I)
Debug.Print
Debug.Print "----" Time "----"
Debug.Print "接口编号:" .dwIndex
Debug.Print "接口速度:" .dwSpeed
Debug.Print "接口状态:" .dwAdminStatus
Debug.Print "操作状态:" .dwOperStatus
Debug.Print "收到字节:" .dwInOctets
For XI = 1 To .dwPhysAddrLen - 1
TXX = TXX Format(Hex(.bPhysAddr(XI)), "00")
Next
If TXX "" Then Debug.Print "网卡地址:"; TXX
End With
Next
End Sub
'dwOperStatus As Long操作状态，以下值之一:
'常量名称 说明
'-----------------------------------------------------------------------------
MIB_IF_OPER_STATUS_NON_OPERATIONAL = 0 '网络适配器被禁止，例如:地址冲突
MIB_IF_OPER_STATUS_UNREACHABLE = 1 '没有连接
MIB_IF_OPER_STATUS_DISCONNECTED = 2 '局域网:电缆未连接；广域网:无载波信号
MIB_IF_OPER_STATUS_CONNECTING = 3 '广域网适配器连接中
MIB_IF_OPER_STATUS_CONNECTED = 4 '广域网适配器连接上远程对等点
MIB_IF_OPER_STATUS_OPERATIONAL = 5 '局域网适配器默认状态
这个没有问题的，在系统初始化时，写注册表或者ini文件，如果未建立DSN连接，
Public Function SetupDSN()
Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String
' Build keywords string.
strAttribs = "Description=" _
"TestDb" _
Chr$(13) "DBQ=D:\stdio\tools\vcm\vcm.mdb" ' 请将数据库换成你自己的数据库
' Create new registered DSN.
rdoEngine.rdoRegisterDataSource "Example", _
"Microsoft Access Driver (*.mdb)", True, strAttribs 'Exsample 是DSN名称
End Function
Sub main()
'首先读注册表信息 或者INI文件中相应内容 及DSN是否建立的标志，如果未
'建立，则调用SetupDSN，然后写注册表或INI文件
if( not AlreadyReg() ) then '其中AlreadyReg 是通过注册表判断是否注册的函数
'DSNReg 是已经建立DSN后，写注册表的函数。
'至于写注册表可以引用Registry Acess Function
SetupDSN
DSNReg
end if
end sub
odbc是需要事先在数据库管理中进行手工配置的，如果没有配置则出现你说的问题。现在一般不再使用odbc，而改成ado，这样只要在程序中写好即可用。用odbc的程序，应该是老程序了。用的是DSN。
DSN为ODBC定义了一个确定的数据库和必须用到的ODBC驱动程序。每个ODBC驱动程序定义为该驱动程序支持的一个数据库创建DSN需要的信息。就是说安装ODBC驱动程序以及创建一个数据库之后，必须创建一个DSN。 一个DSN中至少应该包含如下一些内容： ◆关于数据库驱动程序的信息。 ◆数据库存放位置。文件型数据库（如Access）的存放位置为数据库文件的路径；非文件型数据库（如SQL Server）的存放位置是指服务器的名称。 ◆数据库名称。在ODBC数据源管理器中，所有的DSN名称是不能重复的。 一个DSN可以定义为以下3种类型中的任意一种： ★用户数据源：这个数据源对于创建它的计算机来说是局部的，并且只能被创建它的用户使用。 ★系统数据源：这个数据源属于创建它的计算机并且是属于这台计算机而不是创建它的用户。任何用户只要拥有适当的权限都可以访问这个数据源。 ★文件数据源：这个数据源对底层的数据库文件来说是确定的。换句话说，这个数据源可以被任何安装了合适的驱动程序的用户使用。 DSN 文件（数据源名） Windows DSN 文件（数据源名）主要是用来存储数据库连接信息。如果你有很多网页需要传送数据，就可以很简单的通过DSN文件路径来完成而不需要传送数据到每个页面了。 出于安全考虑，DSN文件一般放置在主机目录的子目录中，这样不明访问者就访问不了这个目录。DSN文件需要在ASP和ADO一起访问数据库。名称为：”_dsn” 在主机帐户的根目录中（注： DSN文件仅支持windows 方案）