如何将数据从sql数据库显示到listview vb.net [英] How to show data from sql database to listview vb.net

问题描述

我是vb.net的新手。有人可以教我如何将数据从sql数据库显示到vb.net列表视图。



例如：

我的数据库有一个数据列，我希望只有前20天显示在列表视图上。



如果有人可以提供一些有用的源代码。



非常感谢。

I am new to vb.net. Can someone teach me how to show data from the sql database to the vb.net listview.

For example:
My db has a Data column, and i would like to have only the previous 20 days are showed on the listview.

If someone can provide me some source code that would be alot helpfull.

Thank you very much.

推荐答案

Imports System.Data.SqlClient

Public Class Form1

Dim conn As SqlConnection

Dim cmd As SqlCommand

Dim da As SqlDataAdapter

Dim ds As DataSet

Dim itemcoll（100）As String

Private Sub Form1_Load（ByVal sender As System.Object，ByVal e As System.EventArgs）Handles MyBase.Load

Me.ListView1.View = View.Details

Me.ListView1.GridLines = True

conn = New SqlConnection（Data Source = SQLEXPRESS; Initial Catalog = Northwind; Persist Security Info = True; User ID = id; Password = pass）

Dim strQ As String = String.Empty

strQ =SELECT * FROM Northwind.dbo.Products

cmd =新的SqlCommand（strQ ，conn）

da =新的SqlDataAdapter（cmd）

ds =新数据集

da.Fill（ds，表）

Dim i As Integer = 0

Dim j As Integer = 0

'在ListView中添加列

对于i = 0到ds.Tables（0）.Columns .Count - 1

Me.ListView1.Columns.Add（ds.Tables（0）.Columns（i）.ColumnName.ToString（））

下一页

'现在在列表视图中添加项目

对于i = 0到ds.Tables（0）.Rows.Count - 1

对于j = 0到ds.Tables（0）.Columns.Count - 1

itemcoll（j）= ds.Tables（0）.Rows（i）（j）.ToString（）

下一页

Dim lvi作为新ListViewItem（itemcoll）

Me.ListView1.Items.Add（lvi）

下一页

结束子

结束类

Imports System.Data.SqlClient
Public Class Form1
Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim itemcoll(100) As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ListView1.View = View.Details
Me.ListView1.GridLines = True
conn = New SqlConnection("Data Source=SQLEXPRESS;Initial Catalog=Northwind;Persist Security Info=True;User ID=id;Password=pass")
Dim strQ As String = String.Empty
strQ = "SELECT * FROM Northwind.dbo.Products"
cmd = New SqlCommand(strQ, conn)
da = New SqlDataAdapter(cmd)
ds = New DataSet
da.Fill(ds, "Table")
Dim i As Integer = 0
Dim j As Integer = 0
' adding the columns in ListView
For i = 0 To ds.Tables(0).Columns.Count - 1
Me.ListView1.Columns.Add(ds.Tables(0).Columns(i).ColumnName.ToString())
Next
'Now adding the Items in Listview
For i = 0 To ds.Tables(0).Rows.Count - 1
For j = 0 To ds.Tables(0).Columns.Count - 1
itemcoll(j) = ds.Tables(0).Rows(i)(j).ToString()
Next
Dim lvi As New ListViewItem(itemcoll)
Me.ListView1.Items.Add(lvi)
Next
End Sub
End Class

看看这些链接：

http://www.fryan0911.com/2009/06/vbnet-listview-tutorial-add-edit-and.html [ ^ ]

http://www.codeguru.com/vb/controls/vbnet_controls/ listview / article.php / c3979 [ ^ ]

：thumbsup：

Look at these links:
http://www.fryan0911.com/2009/06/vbnet-listview-tutorial-add-edit-and.html[^]
http://www.codeguru.com/vb/controls/vbnet_controls/listview/article.php/c3979[^]
:thumbsup:

Dim rs As OleDb.OleDbDataAdapter    'Line 50
rs = New OleDb.OleDbDataAdapter("SELECT * FROM TableName WHERE(dDate >= @startDate) AND (dDate <= @endDate)", con)

Dim param1, param2 As OleDbParameter
param1 = New OleDbParameter("@startDate", datePicker1.Value.ToShortDateString)
param2 = New OleDbParameter("@endDate", datePicker2.Value.ToShortDateString)
rs.SelectCommand.Parameters.AddRange(New OleDbParameter() {param1, param2})
Dim dt As New DataTable("TableName")
rs.Fill(dt)

If dt.Rows.Count > 0 Then

End If

这篇关于如何将数据从sql数据库显示到listview vb.net的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！