Посмотрите на эти ссылки:
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[^]
:большой палец вверх:
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
это нормально, если он уязвим в данный момент.
Я просто пытаюсь сделать программу для личного пользования. кстати, я отредактировал кое-какой код и все еще не могу заставить его работать.
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
mysqlconn = New MySqlConnection
mysqlconn.ConnectionString = "server=localhost;user=root;password=root;database=database"
Dim Reader As MySqlDataReader
Dim strQ As String = String.Empty
Dim conn As MySqlConnection
Dim cmd As MySqlCommand
Dim da As MySqlDataAdapter
Dim ds As DataSet
Dim itemcoll(100) As String
strQ = "SELECT * FROM database.benta where customerID = '" & txtnos.Text "'"
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.lva.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.lva.Items.Add(lvi)
Next
End Sub
Система Импорта.Данных.Поставщики sqlclient
Общественного Класса Form1
Dim conn как SqlConnection
Dim cmd как SqlCommand
Dim da As SqlDataAdapter
Dim ds как набор данных
Dim itemcoll(100) в виде строки
Частная суб методе form1_load(как byval отправителя как системы.Объект, бывал е как система.EventArgs) Обрабатывает MyBase.Load
Меня.Мыши listview1.Вид = Вид.Детали
Меня.Мыши listview1.Сетки = Истина
соед = новый объект sqlconnection("источник данных=именем sqlexpress;начальный каталог=данных Northwind;безопасность сохраняться информация=истина;идентификатор пользователя=идентификатор;пароль=пройти")
Dim strQ As String = строка.Пустой
strQ = "SELECT * FROM Northwind.dbo.Products"
cmd = New SqlCommand(strQ, conn)
da = новый SqlDataAdapter(cmd)
ds = новый набор данных
da.Fill(ds, "таблица")
Dim i как целое число = 0
Dim j как целое число = 0
'добавление столбцов в ListView
Для i = 0 - ds.Таблицы(0).Столбцы.Количество - 1
Меня.Мыши listview1.Столбцы.Добавить(ds.Таблицы(0).Столбцы(i).Имя столбца.Метод toString())
Следующий
- Теперь добавим элементы в Listview
Для i = 0 - ds.Таблицы(0).Строки.Количество - 1
Для j = 0 - ds.Таблицы(0).Столбцы.Количество - 1
itemcoll(j) = ds.Tables(0).Rows(i)(j).ToString()
Следующий
Dim lvi как новый ListViewItem(itemcoll)
Меня.Мыши listview1.Предметы.Добавить(lvi)
Следующий
Конец Подводной Лодки
End Класса