|
''''【功能】：【显示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 [1] [2] 下一页 | 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 