把sql字符串中选择的内容显示在ListView

原创 2004年09月05日 13:58:00

 '【功能】:【显示ListView中的内容】
    '【输入】:【连接字符串,要显示字符串,是否显示check框,是哪种访问数据库的方式】
    '【输出】:【数据库的查询内容在ListView中显示】
    '【参数】:【showStr,传值调用】
    Private Sub showListView(ByVal strConn As String, ByVal showStr As String, ByVal check As Boolean, ByVal dataAccess As String)

        If dataAccess = "sql" Then
            '[用于sql查询]
            Dim sqlConn As SqlClient.SqlConnection
            Dim sqlReader As SqlClient.SqlDataReader
            Dim sqlCmd As SqlClient.SqlCommand

            Try
                sqlConn = New SqlClient.SqlConnection(strConn)
                sqlConn.Open()
                sqlCmd = New SqlClient.SqlCommand(showStr, sqlConn)
                sqlReader = sqlCmd.ExecuteReader

                '【加入listview的头标题】
                Dim iHead As Integer
                ListView1.Columns.Clear()

                For iHead = 0 To sqlReader.FieldCount - 1
                    ListView1.Columns.Add(sqlReader.GetName(iHead), 100, HorizontalAlignment.Center)
                Next

                '[加入每一列数据]
                ListView1.Items.Clear()

                Dim iRow As Long = 0
                Dim iRowHead As Int16

                While sqlReader.Read
                    ListView1.Items.Add(sqlReader(0))
                    For iRowHead = 1 To sqlReader.FieldCount - 1
                        If (sqlReader(irowhead) Is System.DBNull.value = False) Then
                            ListView1.Items(iRow).SubItems.Add(CStr(sqlReader(iRowHead)))
                        Else
                            ListView1.Items(irow).SubItems.Add(" ")
                        End If
                    Next
                    iRow = iRow + 1
                End While
            Catch
                MessageBox.Show(Err.Description, clewInfo, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                sqlConn.Close()
                Exit Sub
            End Try

            sqlReader.Close()
            sqlCmd.Dispose()
            sqlConn.Close()

        Else
            '[用于ole查询]
            Dim oleConn As OleDb.OleDbConnection
            Dim oleReader As OleDb.OleDbDataReader
            Dim oleCmd As OleDb.OleDbCommand

            Try
                oleConn = New OleDb.OleDbConnection(strConn)
                oleConn.Open()
                oleCmd = New OleDb.OleDbCommand(showStr, oleConn)
                oleReader = oleCmd.ExecuteReader

                '【加入listview的头标题】
                Dim iHead As Integer
                ListView1.Columns.Clear()

                For iHead = 0 To oleReader.FieldCount - 1
                    ListView1.Columns.Add(oleReader.GetName(iHead), 100, HorizontalAlignment.Center)
                Next

                '[加入每一列数据]
                ListView1.Items.Clear()

                Dim iRow As Long = 0
                Dim iRowHead As Int16

                While oleReader.Read()
                    ListView1.Items.Add(oleReader(0))
                    For iRowHead = 1 To oleReader.FieldCount - 1
                        If oleReader(irowhead) Is System.DBNull.value = False Then
                            ListView1.Items(iRow).SubItems.Add(CStr(oleReader(iRowHead)))
                        Else
                            ListView1.Items(irow).SubItems.Add(" ")
                        End If
                    Next
                    iRow = iRow + 1
                End While
            Catch
                MessageBox.Show(Err.Description, clewInfo, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                oleConn.Close()
                Exit Sub
            End Try

            oleReader.Close()
            oleCmd.Dispose()
            oleConn.Close()

        End If

        '【加入底色】
        Dim i As Integer
        For i = 0 To ListView1.Items.Count - 1
            If i Mod 2 = 0 Then
                ListView1.Items(i).BackColor = Color.LightBlue
            Else
                ListView1.Items(i).BackColor = Color.OldLace
            End If
        Next i

        '[是否显示check按钮]
        If check = True Then
            ListView1.CheckBoxes = True
        Else
            ListView1.CheckBoxes = False
        End If
    End Sub

Android整理:SQlite数据库的使用以及通过listView显示数据

前言:上个月与同学一起做了一个简单的Android应用,这段时间正好没有很多事情所以趁热整理一下学习到的知识,刚开始学习Android还有很多不懂的地方,继续努力吧! 作业中需要用到数据库,...
  • lgh1992314
  • lgh1992314
  • 2015年05月02日 20:44
  • 3963

android中如何让listview的内容全部显示出来

From:http://geyubin.iteye.com/blog/1330128
  • MaximusKiang
  • MaximusKiang
  • 2014年04月26日 23:35
  • 1592

Android-使用ListView把SQLite中的数据显示至屏幕

结果图: 步骤: 1.向数据库中插入数据 2.从数据库中取出数据放在ArrayList中; 3.将ArrayList中的数据显示在ListView中; 布局文件: ...
  • u014657752
  • u014657752
  • 2015年08月15日 15:33
  • 4879

从数据库中拿数据,显示到listview上

[1]创建javabean对象person,用来封装取到的数据条。 [2]再把javabean对象进行封装,获得数据集合lists [3]创建适配器MyAdepter ,继承BaseAdapter...
  • luojie140
  • luojie140
  • 2016年02月01日 16:37
  • 3001

处理ListView为空的情况

在移动开发中经常会使用到列表显示,对于列表显示我们经常使用的就是ListView控件。在显示列表的时候通常有两种情况:一、列表是满的;二、列表是空的。 在没有数据的时候我们应该怎么处理呢?有一个简单的...
  • qiaomu8559968
  • qiaomu8559968
  • 2015年07月02日 11:09
  • 2226

安卓ListView中使用RadioGroup进行RadioButton的单项选择

在做项目时,有这样的需求:ListView列表的adapter布局中有两个RadioButton,但是要求这两个RadioButton必须是单选的,所有就加入了RadioGroup,也是是这样的,要保...
  • Sunjianhua360
  • Sunjianhua360
  • 2016年05月13日 13:14
  • 1127

Android--ListView实现所有Item的全选和未选

前些日子公司有这样的一个需求,在购物车的ListView中的列表实现全选状态和取消全选状态。后来在网上查了一些资料后个人总结如下。由于第一次写博客,希望对各位能够帮助,同时!希望大家多多包涵! ...
  • Amanduzhuojiang
  • Amanduzhuojiang
  • 2017年07月14日 10:03
  • 474

Android采用ListView实现数据列表显示

(1)、首先设计界面,使用上面一个数据库项目,将数据库中的所有数据用ListView显示在屏幕上:新建一个布局文件item.xml        android:layout_width="12...
  • u014788786
  • u014788786
  • 2015年08月17日 16:28
  • 1452

从数据库里查询数据展示到listview上的案例

编写一个从数据库里查询数据展示到listview上的案例 运行结果:点击find按钮,会将数据库中添加的数据显示在List View上 结果如下: 创建如图所示: ...
  • lulu_wang69
  • lulu_wang69
  • 2017年05月18日 08:40
  • 1134

android开发中Listview中显示不同的视图布局

一、问题的引出 如何在listview的不同位置显示不同类型的内容,如在某一行显示广告,其他行显示文本? 二、问题的简答 自定义Adapter,复写BaseAdapter中的getIte...
  • ly969434341
  • ly969434341
  • 2016年05月11日 21:29
  • 2524
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:把sql字符串中选择的内容显示在ListView
举报原因:
原因补充:

(最多只允许输入30个字)