一般,我都不喜欢做这样报上一条下一条,太专业的数据库操作不适合终端用户.
如果必须要做,你可以这样:按排序规则,取到健列表.保存到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
创建数据库
右键单击【数据库】节点,从弹出来的快捷菜单中选择【新建数据库】命令.
在【数据库名称】文本框中输入要新建数据库的名称.例如,这里以"新建的数据库".
在【所有者】文本框中输入新建数据库的所有者,如sa.根据数据库的使用情况,选择启用或者禁用【使用全文索引】复选框.
在【数据库文件】列表中包括两行,一行是数据库文件,而另一行是日记文件.通过单击下面的【添加】、【删除】按钮添加或删除数据库文件.
切换到【选项页】、今天这一节可以设置数据库的排序规则、恢复模式、兼容级别和其他属性.
切换到【文件组】页,今天这一节可以添加或删除文件组.
完成以上操作后,单击【确定】按钮关闭【新建数据库】对话框.至此"新建的数据"数据库创建成功.新建的数据库可以再【对象资源管理器】窗口看到.
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