DATAGRIDVIEW自己写的分页，不使用RECORDSET方法

最新推荐文章于 2017-11-02 13:41:46 发布
最新推荐文章于 2017-11-02 13:41:46 发布
阅读量1k 收藏
点赞数
分类专栏： VB.NET 文章标签： exception string dataset cmd oracle sql
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yck263/article/details/1450195
版权

按钮点击响应的代码：

    Private   Sub btnleft_Click(ByVal ARG1 As System.Object, ByVal ARG2 As System.EventArgs) Handles btnleft.Click
        Try

            'public_COMFNC.LogErr("MSG801", 0, "頁移動処理(左)")

            lockcontrol()

            componentreadinpublicvariable()

            public_dsListData.Clear()

            If public_CN_ORA_CONN.CN_Cmd_Data(public_dsListData, _
                                                           public_lNowPageNumber - 1, _
                                                           public_sRadioChoosed, _
                                                           public_sListBoxChoosed, _
                                                           public_lCount, _
                                                           public_lPageNumber, _
                                                           public_lNowPageNumber, _
                                                           public_lPageCount) = False Then

                public_COMFNC.LogErr("MSG801", 1, "頁移動処理(左)")

            End If

            'If public_lCount = 0 Then
            '    MsgBox("no data")
            'End If

            labelupdate()

            unlockcontrol()

            public_COMFNC.LogErr("MSG801", 0, "頁移動処理(左)")

        Catch ex As Exception
            public_COMFNC.LogErr("MSG801", 1, "頁移動処理(左)")
        End Try
    End Sub

     Private   Sub btnlefttop_Click(ByVal ARG1 As System.Object, ByVal ARG2 As System.EventArgs) Handles btnlefttop.Click
        Try

            public_COMFNC.LogErr("MSG801", 0, "頁移動処理(左)")

            lockcontrol()

            componentreadinpublicvariable()

            public_dsListData.Clear()

            If public_CN_ORA_CONN.CN_Cmd_Data(public_dsListData, _
                                                           1, _
                                                           public_sRadioChoosed, _
                                                           public_sListBoxChoosed, _
                                                           public_lCount, _
                                                           public_lPageNumber, _
                                                           public_lNowPageNumber, _
                                                           public_lPageCount) = False Then
                public_COMFNC.LogErr("MSG801", 1, "頁移動処理(左)")

            End If

            'If public_lCount = 0 Then
            '    MsgBox("no data")
            'End If

            labelupdate()

            unlockcontrol()

            public_COMFNC.LogErr("MSG801", 0, "頁移動処理(左)")

        Catch ex As Exception
            public_COMFNC.LogErr("MSG801", 1, "頁移動処理(左)")
        End Try
    End Sub
     '  次のページと最後のページボタンを表示する
     Private   Sub btnright_Click(ByVal ARG1 As System.Object, ByVal ARG2 As System.EventArgs) Handles btnright.Click
        Try
            lockcontrol()

            componentreadinpublicvariable()

            public_dsListData.Clear()

            If public_CN_ORA_CONN.CN_Cmd_Data(public_dsListData, _
                                                           public_lNowPageNumber + 1, _
                                                           public_sRadioChoosed, _
                                                           public_sListBoxChoosed, _
                                                           public_lCount, _
                                                           public_lPageNumber, _
                                                           public_lNowPageNumber, _
                                                           public_lPageCount) = False Then

                MsgBox("error")
            End If

            If public_lCount = 0 Then
                MsgBox("no data")
            End If

            labelupdate()

            unlockcontrol()

        Catch ex As Exception

        End Try
    End Sub

     Private   Sub btnrightbottom_Click(ByVal ARG1 As System.Object, ByVal ARG2 As System.EventArgs) Handles btnrightbottom.Click
        Try
            lockcontrol()

            componentreadinpublicvariable()

            public_dsListData.Clear()

            If public_CN_ORA_CONN.CN_Cmd_Data(public_dsListData, _
                                                           public_lPageNumber, _
                                                           public_sRadioChoosed, _
                                                           public_sListBoxChoosed, _
                                                           public_lCount, _
                                                           public_lPageNumber, _
                                                           public_lNowPageNumber, _
                                                           public_lPageCount) = False Then
                MsgBox("error")
            End If

            If public_lCount = 0 Then
                MsgBox("no data")
            End If

            labelupdate()

            unlockcontrol()
        Catch ex As Exception
        End Try
    End Sub

 共同内数据调用的方法和接口

 

     Public   Function CN_Cmd_Data(ByRef p_ds_Top20 As DataSet, _
                                ByVal p_iPageNo As Long, _
                                ByVal p_sRadioButton As String, _
                                ByVal p_sListbox As String, _
                                ByRef p_lCount As Long, _
                                ByRef p_lPageNumber As Long, _
                                ByRef p_lNowPageNumber As Long, _
                                ByRef p_lPageCount As Long) As Boolean
        Try

            public_COMFNC.LogErr("MSG110", LogType.OperatingLog, "現在値データグリッド取得処理開始")

            Dim sSQL_Txt_All As String = ""
            Dim sSQL_Txt_20 As String = ""
            Dim sSql_Conn As String = ""
            Dim sTagkd As String = ""
            Dim sFlag As String = ""
            Dim sKJOCD As String = ""
            Dim lListCount, lPageno As Long
            Dim ds_All As New DataSet
            Dim RI_NEW As New ReadIni

            '◆DB接続初期化処理 START◆
            If RI_NEW.CM_InitCon(sSql_Conn) = False Then
                Return False
            End If
            '◆Oracleコネクション◆
            SysOraCon = New System.Data.OracleClient.OracleConnection(sSql_Conn)
            SysOraCon.Open()
            SysOraTran = SysOraCon.BeginTransaction()
            SysOraCommand = SysOraCon.CreateCommand
            SysOraCommand.Transaction = SysOraTran
            '◆DB接続初期化処理 END◆

            '◆SELECT文作成 START◆
            '◆0:アナログ、1:デジタルTAGKD◆

            If p_sListbox = "0" Then
                sKJOCD = " "
            Else
                sKJOCD = "       WSIG.KJOCD = '" & p_sListbox & "' and "
            End If

            If p_sRadioButton = "デジタル" Then
                sSQL_Txt_All = "select " & _
                               "count( TAGID) " & _
                               "from (select " & _
                               "       WSIG.TAGID," & _
                               "       rownum num1 " & _
                               "       from WSIG, WGDI " & _
                               " WHERE " & _
                               sKJOCD & _
                               "       WGDI.TAGID(+) = WSIG.TAGID) t "
            ElseIf p_sRadioButton = "アナログ" Then
                sSQL_Txt_All = "select " & _
                               "count( TAGID) " & _
                               "from (select " & _
                               "       WSIG.TAGID," & _
                               "       rownum num1 " & _
                               "       from WSIG, WGAI " & _
                               " WHERE " & _
                               sKJOCD & _
                               "       WGAI.TAGID(+) = WSIG.TAGID) t "
            End If

            SysOraCommand.CommandText = sSQL_Txt_All
            '◆アダプター作成◆
            SysOraAdapter = New System.Data.OracleClient.OracleDataAdapter
            SysOraAdapter.SelectCommand = SysOraCommand

            '◆SQL実行◆
            ds_All.Reset()
            SysOraAdapter.Fill(ds_All)
            lListCount = CLng(ds_All.Tables(0).Rows(0).Item(0).ToString)
            p_lCount = lListCount
            '◆データ総数の取得　END◆

            '◆毎頁に表示するデータの数◆
            p_lPageCount = RI_NEW.GetPageCount
            Dim iMod As Int16
            iMod = lListCount Mod p_lPageCount
            '◆ページ総数 START◆
            If p_lCount > 0 Then
                If iMod = 0 Then
                    lPageno = lListCount / p_lPageCount
                Else
                    lPageno = Int(lListCount / p_lPageCount) + 1
                End If
            Else
                lPageno = 0
            End If
            p_lPageNumber = lPageno
            '◆ページ総数 END◆

            If p_iPageNo < 0 Then
                Return False
            End If

            '◆◆
            If p_iPageNo >= lPageno Then
                sFlag = "rightbottom"
                p_lNowPageNumber = lPageno
            ElseIf p_iPageNo <= 1 Then
                sFlag = "lefttop"
                p_lNowPageNumber = 1
            Else
                sFlag = "left"
                p_lNowPageNumber = p_iPageNo
            End If
            If p_sRadioButton = "デジタル" Then
                sSQL_Txt_20 = "SELECT                               " & _
                              "T.TAGID AS 信号コード,              " & _
                              "T.KEINM AS 系列名称,                  " & _
                              "T.KJONM AS 機場名称,                  " & _
                              "T.STBNM AS 設備名称,                  " & _
                              "T.DATNM AS 信号名称,                  " & _
                              "T.PANDUAN AS 現在値,                  " & _
                              "T.PANDUAN2 AS 動作単位              " & _
                              "FROM (SELECT                       " & _
                              "   WSIG.TAGID,                     " & _
                              "   WSIG.KEINM,                     " & _
                              "   WSIG.KJONM,                     " & _
                              "   WSIG.STBNM,                     " & _
                              "   WSIG.DATNM,                     " & _
                              "   WSIG.TANNM,                     " & _
                              "   ROWNUM NUM1,                    " & _
                              "   CASE                            " & _
                              "   WHEN WSIG.CHKBT = 0             " & _
                              "   THEN                            " & _
                              "         CASE                      " & _
                              "         WHEN WGDI.DIDAT = '0'     " & _
                              "         THEN 'OFF'                " & _
                              "         ELSE                      " & _
                              "         'ON'                      " & _
                              "         END                       " & _
                              "   WHEN WSIG.CHKBT = 1             " & _
                              "   THEN                            " & _
                              "         CASE                      " & _
                              "         WHEN WGDI.DIDAT = '1'     " & _
                              "         THEN 'OFF'                " & _
                              "         ELSE                      " & _
                              "         'ON'                      " & _
                              "         END                       " & _
                              "   ELSE                            " & _
                              "   ''                              " & _
                              "   END                             " & _
                              "   AS PANDUAN,                     " & _
                              "      CASE                               " & _
                              "      WHEN WSIG.CHKBT = 0             " & _
                              "      THEN                            " & _
                              "            CASE                      " & _
                              "            WHEN WGDI.DIDAT = '0'     " & _
                              "            THEN                      " & _
                              "                CASE                  " & _
                              "                WHEN WSIG.FKYNM ='1'  " & _
                              "                THEN                  " & _
                              "                    WSIG.HATNM        " & _
                              "                ELSE                  " & _
                              "                    ''                " & _
                              "                END                   " & _
                              "          ELSE                        " & _
                              "            ''                        " & _
                              "          END                         " & _
                              "      WHEN WSIG.CHKBT = 1             " & _
                              "      THEN                            " & _
                              "            CASE                      " & _
                              "            WHEN WGDI.DIDAT = '0'     " & _
                              "            THEN                      " & _
                              "                CASE                  " & _
                              "                WHEN WSIG.HATNM ='1'  " & _
                              "                THEN                  " & _
                              "                    WSIG.FKYNM        " & _
                              "                ELSE                  " & _
                              "                    ''                " & _
                              "                END                   " & _
                              "          ELSE                        " & _
                              "            ''                        " & _
                              "          END                         " & _
                              "      ELSE                            " & _
                              "          ''                          " & _
                              "      END                             " & _
                              "      AS PANDUAN2                     " & _
                              "   FROM WSIG,WGDI                  " & _
                              "   WHERE                           " & _
                              sKJOCD & _
                              "   WGDI.TAGID(+) = WSIG.TAGID) t   "
            ElseIf p_sRadioButton = "アナログ" Then
                sSQL_Txt_20 = "SELECT                               " & _
                              "T.TAGID AS 信号コード,              " & _
                              "T.KEINM AS 系列名称,                  " & _
                              "T.KJONM AS 機場名称,                  " & _
                              "T.STBNM AS 設備名称,                  " & _
                              "T.DATNM AS 信号名称,                  " & _
                              "T.PANDUAN AS 現在値,                  " & _
                              "T.TANNM AS 動作単位                  " & _
                              "FROM (SELECT                       " & _
                              "   WSIG.TAGID,                     " & _
                              "   WSIG.KEINM,                     " & _
                              "   WSIG.KJONM,                     " & _
                              "   WSIG.STBNM,                     " & _
                              "   WSIG.DATNM,                     " & _
                              "   WSIG.TANNM,                     " & _
                              "   (WGAI.AIDAT / power(10,WSIG.TENPS)) " & _
                              "   PANDUAN,                        " & _
                              "   ROWNUM NUM1                     " & _
                              "   FROM WSIG,WGAI                  " & _
                              "   WHERE                           " & _
                              sKJOCD & _
                              "   WGAI.TAGID(+) = WSIG.TAGID) t   "
            End If
            If sFlag = "first" Or sFlag = "lefttop" Then 'go to the top page 
                sSQL_Txt_20 = sSQL_Txt_20 & " where num1 <= " & RI_NEW.GetPageCount.ToString
            ElseIf sFlag = "left" Or sFlag = "right" Then 'go to the last page 
                Dim lLeftCount, lRightCount As Long
                lLeftCount = (p_iPageNo - 1) * RI_NEW.GetPageCount + 1
                lRightCount = p_iPageNo * RI_NEW.GetPageCount
                sSQL_Txt_20 = sSQL_Txt_20 & " where num1 >= " & lLeftCount.ToString & " and num1 <= " & lRightCount.ToString
            ElseIf sFlag = "rightbottom" Then 'go to the bottom page 
                Dim lLastCount As Long = 0
                lLastCount = lListCount Mod RI_NEW.GetPageCount
                If lLastCount = 0 Then
                    sSQL_Txt_20 = sSQL_Txt_20 & " where num1 > " & (lListCount - RI_NEW.GetPageCount).ToString
                Else
                    sSQL_Txt_20 = sSQL_Txt_20 & " where num1 > " & (lListCount - lLastCount).ToString
                End If

            End If

            '◆SELECT文作成 END◆

            SysOraCommand.CommandText = sSQL_Txt_20
            '◆アダプター作成◆
            SysOraAdapter = New System.Data.OracleClient.OracleDataAdapter
            SysOraAdapter.SelectCommand = SysOraCommand

            '◆SQL実行◆
            p_ds_Top20.Reset()
            SysOraAdapter.Fill(p_ds_Top20)

            public_COMFNC.LogErr("MSG111", LogType.OperatingLog, "現在値データグリッド取得処理終了")

            Return True

        Catch ex As Exception

            public_COMFNC.LogErr("MSG112", LogType.SystemError, "現在値データグリッド取得処理システムエラー")
            Return False
        Finally
            '◆Oracleデータベースクローズ処理◆
            '１２ 作成したオブジェクトを削除して、資源を解放する
            SysOraTran.Dispose()
            SysOraCon.Dispose()
            SysOraCon.Close()

        End Try
    End Function
yck263
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
VB分页打印源代码
04-23
在实现分页打印时，可能用到的控件有：`ListView`、`DataGridView`、`RichTextBox`等，它们可以用来显示和管理数据，为打印做准备。 2. **打印控件与PrintDocument对象** 在VB中，打印操作主要通过`Printer`对象或...
VB通讯录使用数据库
11-06
2. **创建或打开数据表**：如果表不存在，可以使用SQL的`CREATE TABLE`语句通过`Command`对象创建。已存在则使用`SELECT * FROM Contacts`等查询语句打开。 3. **插入数据**：利用`Command`对象的`Execute`方法执行`...
dataGridView将数据显示到textBox
weixin_33739646的博客
06-19 1824
在windows下面.microsoft改造了ado成ado.net.大力改的控件当然是recordset,在ado年代那个时候的数据库操作全是 连接式的操作,到了web年代microsoft把ado的recordset断开,成为ado.net下面的dataset 和..dataadapter,这样一下把生成的结果集经过适配器的改成数据集(形式于数据库),断开后填充dataset,再用控件 dat...
vb.net如何使用代码给DataGridView…
编程之路
02-24 3282
vb.net如何使用代码给DataGridView添加按钮,以下代码将在表格最后一列添加一个“掉站管理原因”按钮    Dim btnEdit As New DataGridViewButtonColumn()         btnEdit.Name = "btnEdit"         btnEdit.HeaderText = "掉站原因管理"         btnEdit.Text =
SQL 分页 排名 CTE
b155272的博客
04-21 173
举几个例子来简单说明 这些例子我引用了Northwind库。 1. TOP 表达式 SQL Server 2000的TOP是个固定值，是不是觉得不爽，现在改进了。 --前n名的订单declare @n int set @n = 10 select TOP(@n) * from Orders 2. 分页 不知各位过去用SQL Server 2000是怎么分页的，大多都用到了临...
ADONET-使用DataSet处理脱机数据
weixin_34195142的博客
10-15 171
  处理脱机数据——用DataSet对象 1          DataSet的特性 DataSet是数据的集合。可以把它看做Excel的工作簿，里面保存了多个工作表（查询结果）。 l        DataSet对象与DataReader对象的区别？ DataReader是为速度而创建的，所提供的功能有限。DataReader中的数据是只读的，并且DataReader一旦移动到下一行...
C# dataTable,dataView和Dataset 三者的区别
wuwuFQ的博客
11-02 6411
1、DataView是DataTable的表示，DataTable表里的记录是没有顺序的，但显示可以有不同顺序(DataVIew)， 但还是同一张表，所以一个DataTable可以有多个DataView，默认访问DataTable，其实是访问他的 DefaultView。DataSet则是DataTable的集合，也可以有不止一个DataTable 2、D
dataTable,dataView和Dataset 三者的区别
07-02 8350
1、DataView是DataTable的表示，DataTable表里的记录是没有顺序的，但显示可以有不同顺序(DataVIew)， 但还是同一张表，所以一个DataTable可以有多个DataView，默认访问DataTable，其实是访问他的 DefaultView。DataSet则是DataTable的集合，也可以有不止一个DataTable 2、DataView   是一
vb.net操作Oracle数据库1
08-08
在VB.NET中操作Oracle数据库，通常需要借助ADO.NET或ADODB组件来实现数据的存取。这个示例中，开发者创建了一个简单的员工管理...此外，对于大量数据的操作，应考虑使用DataView分页或异步处理，以提高应用程序的性能。
VB数据库应用
12-04
书中将详细讲解如何使用Connection、Command、Recordset、Parameter等ADO对象，以及如何执行SQL语句，实现数据的增删改查。 在数据库连接方面，书中的章节会涉及ODBC（Open Database Connectivity）和OLE DB...
vb_accesstool_visualbasic_access管理_VB数据库_
10-01
- 数据浏览：设计用户界面展示数据，可以使用DataGridView控件显示记录集，支持分页、排序、过滤等功能。 - 数据添加：通过输入窗体收集用户数据，然后调用Command对象的Execute方法插入新记录。 - 数据修改：...
DataGrid资料
weixin_34184561的博客
07-09 76
关于datagrid的打印 http://www.chinaaspx.com/article/csharp/295.htm C#中为DataGrid添加下拉列表框 http://www.cnblogs.com/icesnaker/archive/2004/09/21/45015.aspx DataGrid也玩分页 http://dev.csdn.net/article/3...
老程序员学C# ------操作DataGridView控件详解
热门推荐
lanhai96的专栏
05-25 13万+
    在项目中，老程序员都知道显示数据的控件的操作灵活性很重要。Visual Studio 2008里面提供了一个很强大的数据显示控件------------DataGridView。DataGridView与VB、VC中的DataGrid控件功能很相似，但比起更加强大，操作更灵活，废话不说了。操作DataGridView有两种方式，一种是使用控件绑定的方式，操作的时候只要更改DataSet
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值