vb.netdsn文件 vbnet rnd

我想做一个软件数据库用ACCESS想放U盘里用，应该用什么啊。还有就是我的程序只能查到第1条，第2条就查不到

请楼主注意！U盘的盘符是变化的！你的系统上可能是D，客户的系统上可就不一定了！到时候会找不到数据库的！

强烈建议不要采取这样的方法！

另外，你的数据集指针不移动能查到第二条数据？

while not 数据集.eof do

......

数据集.Next

按上面的意思遍历数据集就可以了

相关问答

Q1: vb.net连接access数据库问题

1，使用ADO connection对象

首先，要建立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控件中使用字符串中的操作一致

Q2: 如何在VB程序中动态建立ODBC数据源DSN得连接

这个没有问题的，在系统初始化时，写注册表或者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

Q3: 如何用VB实现修改本机的IP、掩码、网关和DSN？

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 '局域网适配器默认状态

Q4: vb.net程序需要将一些参数保存到外部文件中，那么保存到什么文件比较方便

保存的方法有挺多的，比如保存到数据库中，保存到ini文件里，保存到注册表里，保存到自定义文件中等等。如果就是一些设置参数，直接保存到ini文件中即可（或者自己自定义的文件）。比较重要的可以保存到数据库里，除了设置自己开机启动，注册服务等一般不把东西存如注册表，以免被某些注册表清理软件当垃圾给清理掉。

Q5: DSN数据源怎样使用命令模式？

DSN数据源使用命令模式如下：

控制面板--管理工具--数据源 (ODBC)

创建的数据库文件是供本机上的用户使用的，所以这里选择“用户 dsn”；

然后按下“添加”按钮，在弹出的数据源管理器对话框里，为自己所要创建的数据源选择一个驱动程序，本文的数据库文件是用microsoft access创建的，所以要选择“microsoft access driver (＊.mdb)”；

按“完成”按钮后，进入一个标题为“odbc microsoft access 安装”的界面，在其中设置“数据源名”为“mydatasource”，选取数据库文件“c:\myfile\myexample.mdb”，然后确定即可。

这样就完成了一个简单的odbc数据源的注册。当然，在以上的步骤中，用户可以根据自己的不同需要，设置不同的选项。

关于vb.netdsn文件和vbnet rnd的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。