网站首页 > 文章中心 > 其它

vb.net数据浏览

作者:小编 更新时间:2023-10-16 07:26:26 浏览量:338人看过

在vb.net中怎样浏览首记录 、上一条、下一条、尾记录、和数据库access 绑定的

一般,我都不喜欢做这样报上一条下一条,太专业的数据库操作不适合终端用户.

如果必须要做,你可以这样:按排序规则,取到健列表.保存到list中,上下条,只是改变一索引而已.

Imports System.Data.OleDb

Class BindNavigate

Dim cnn As OleDb.OleDbConnection '打开连接略

Dim lst As New List(Of Integer)

Sub New()

lst = New List(Of Integer)

index = -1

Using da As New OleDbDataAdapter("select id from mytable order by abc,def", cnn), tb As New DataTable

da.Fill(tb)

For Each row As DataRow In tb.Rows

Dim n As Integer = row(0)

lst.Add(n)

Next

If tb.Rows.Count 0 Then CurrentIndex = 0

End Using

End Sub

Dim index As Integer Event CurrentIndexChanged()

Property CurrentIndex As Integer

Get

Return index

End Get

Set(ByVal value As Integer)

Dim b As Boolean = value index

index = value

If b Then RaiseEvent CurrentIndexChanged()

End Set

End Property

'当前的键值

ReadOnly Property CurrentValue As Integer

Return lst(index)

Sub MoveFirst()

CurrentIndex = 0

Sub MovePrevious()

CurrentIndex -= 1

Sub MoveNext()

CurrentIndex += 1

Sub MoveLast()

CurrentIndex = lst.Count - 1

ReadOnly Property BOF

Return CurrentIndex = 0

ReadOnly Property EOF

Return CurrentIndex = lst.Count - 1

Private Sub Text_CurrentIndexChanged() Handles Me.CurrentIndexChanged

'绑定过程

End Class

vb.net2005连接数据库时没有显示浏览access数据库文件对话框

创建数据库

右键单击【数据库】节点,从弹出来的快捷菜单中选择【新建数据库】命令.

在【数据库名称】文本框中输入要新建数据库的名称.例如,这里以"新建的数据库".

在【所有者】文本框中输入新建数据库的所有者,如sa.根据数据库的使用情况,选择启用或者禁用【使用全文索引】复选框.

在【数据库文件】列表中包括两行,一行是数据库文件,而另一行是日记文件.通过单击下面的【添加】、【删除】按钮添加或删除数据库文件.

切换到【选项页】、今天这一节可以设置数据库的排序规则、恢复模式、兼容级别和其他属性.

切换到【文件组】页,今天这一节可以添加或删除文件组.

完成以上操作后,单击【确定】按钮关闭【新建数据库】对话框.至此"新建的数据"数据库创建成功.新建的数据库可以再【对象资源管理器】窗口看到.

VB.NET 如何获取网页中的数据

Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String

'启动一次具体的数据采集工作,返回采集到的HTML内容:要求必须输入带://的全地址数据

On Error Resume Next

Dim Str_WebContent As String = "请输入查找网站地址."

Dim wb As WebClient = New WebClient() '//创建一个WebClient实例

If mWebsiteUrl.IndexOf("://") 0 Then

'//获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据.(可有可无)

wb.Credentials = CredentialCache.DefaultCredentials

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//转换字符

If mWebsiteType Then

Str_WebContent = Encoding.Default.GetString(pagedata)

Else

End If

Return Str_WebContent '提取出来新闻内容,删除Body前后的多余内容,同时补充上该 Body标记,形成完整的内容 Str_WebContent '

End Function

版权声明:倡导尊重与保护知识产权。未经许可,任何人不得复制、转载、或以其他方式使用本站《原创》内容,违者将追究其法律责任。本站文章内容,部分图片来源于网络,如有侵权,请联系我们修改或者删除处理。

编辑推荐

热门文章