VBNet.Su - Visual Basic .NET. ASP .NET. Framework .NET.
Новости
26.12.2008 Лимитный инвайт для тех, кто хочет присоединиться к VBNet.Su, но не может :)
vbnet-super
С наступающим!
join

18.12.2008 Увеличен размер поля для подписи. Разрешено использовать некоторые теги HTML.
Изменены правила форума, в подписи разрешено использовать партнерские ссылки. Ссылки в подписи могут использовать только те пользователи, которые разместили обратную ссылку на VBNet.Su на одном из сайтов, указанных в профиле. Проверка обратных ссылок производится в автоматическом режиме. Если у Вас возникнут какие-либо вопросы, обращайтесь к администратору.

15.12.2008 Открылась рассылка VBNet.Su!
Рассылка будет выходить автоматически, несколько раз в неделю. В рассылке будут содержаться последние обновления сайта (аналог RSS). Чтобы подписаться на рассылку VBNet.Su, перейдите по этой ссылке.
Архив новостей
Будь в теме
Внешние HDD на VBNet.Su
VBNet.Su рекомендуетWD 320 Gb, внешний жесткий диск, Vibrant Pink USB (WDMEPN3200TE)
Стильный портативный накопитель WD My Passport Essential для всей вашей музыки, фильмов и фотографий. Большая емкость в миниатюрном элегантном корпусе. Одиннадцать аппетитных расцветок. Выберите ту, которая удовлетворит ваш эстетический вкус. ... подробнее..
Цена: 3690 руб. КУПИТЬ
Партнеры
Kbyte.Ru OZON.ru
Счетчики
Рассылка 'Visual Basic .NET - новости, коды, статьи, форум'
Полезная информация
Алексей Немиро
Алексей Немиро
  1. Public Class Form1
  2.   '*******************************************************************
  3.   'Реализация Drag'n'Drop из TreeView в DataGridView
  4.   'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
  5.   '*******************************************************************
  6.  
  7.   Dim TreeView1 As New TreeView()
  8.   Dim DataGridView1 As New DataGridView()
  9.  
  10.   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  11.     TreeView1.AllowDrop = True
  12.     TreeView1.Width = 200
  13.     TreeView1.Dock = DockStyle.Left
  14.     TreeView1.Nodes.Add("Ветка 1")
  15.     TreeView1.Nodes.Add("Ветка 2")
  16.     TreeView1.Nodes.Add("Ветка 3")
  17.     AddHandler TreeView1.ItemDrag, AddressOf TreeView1_ItemDrag
  18.     AddHandler TreeView1.DragEnter, AddressOf TreeView1_DragEnter
  19.  
  20.     DataGridView1.AllowDrop = True
  21.     DataGridView1.Dock = DockStyle.Fill
  22.     For i As Integer = 1 To 5
  23.       Dim c As New DataGridViewTextBoxColumn()
  24.       c.HeaderText = "Колонка " & i.ToString()
  25.       c.Width = 100
  26.       DataGridView1.Columns.Add(c)
  27.     Next
  28.     DataGridView1.Rows.Add("Ячейка", "Еще одна", "И еще")
  29.     DataGridView1.Rows.Add("Ячейка", "Еще одна", "И еще")
  30.     DataGridView1.Rows.Add("Ячейка", "Еще одна", "И еще")
  31.     AddHandler DataGridView1.DragDrop, AddressOf DataGridView1_DragDrop
  32.     AddHandler DataGridView1.DragEnter, AddressOf DataGridView1_DragEnter
  33.  
  34.     Me.Controls.Add(DataGridView1)
  35.     Me.Controls.Add(TreeView1)
  36.   End Sub
  37.  
  38.   Private Sub TreeView1_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs)
  39.     Dim sourceNode As TreeNode = CType(e.Item, TreeNode)
  40.     DoDragDrop(e.Item.ToString(), DragDropEffects.Move Or DragDropEffects.Copy)
  41.   End Sub
  42.  
  43.   Private Sub TreeView1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs)
  44.     If (e.Data.GetDataPresent(DataFormats.Text)) Then
  45.       e.Effect = DragDropEffects.Move
  46.     Else
  47.       e.Effect = DragDropEffects.None
  48.     End If
  49.   End Sub
  50.  
  51.   Private Sub DataGridView1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs)
  52.     If e.Data.GetDataPresent(GetType(System.String)) Then
  53.       Dim baluba As String = e.Data.GetData(GetType(System.String))
  54.       DataGridView1.CurrentCell.Value = baluba
  55.     End If
  56.   End Sub
  57.  
  58.   Private Sub DataGridView1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs)
  59.     e.Effect = DragDropEffects.Copy
  60.   End Sub
  61. End Class

http://vbnet.su/forum/single-55.html
Алексей Немиро
Алексей Немиро
MS Access - не лучшее хранилище для 1,5kk записей smile Лучше MS SQL Server использовать, будет быстрее работать.

Записи вообще лучше все не выводить за раз, а подгружать по мере необходимости.
Можно, например, сделать разбивку на страницы. Либо загружать данные кусками:
  1. Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=I:\test.mdb")
  2.   conn.Open()
  3.   Dim cmd As New OleDbCommand("SELECT * FROM tableName", conn)
  4.   Dim DR As OleDbDataReader = cmd.ExecuteReader()
  5.  
  6.   Do While DR.Read()
  7.     If DataGridView1.Columns.Count <= 0 Then
  8.       'добавляем колонки
  9.       For i As Integer = 1 To DR.FieldCount
  10.         Dim c As New DataGridViewTextBoxColumn()
  11.         c.HeaderText = "Колонка " & i.ToString()
  12.         DataGridView1.Columns.Add(c)
  13.       Next
  14.     End If
  15.     Dim r As New DataGridViewRow()
  16.     For i As Integer = 0 To DR.FieldCount - 1
  17.       Dim cel As New DataGridViewTextBoxCell()
  18.       cel.Value = DR(i)
  19.       r.Cells.Add(cel)
  20.     Next
  21.     DataGridView1.Rows.Add(r)
  22.     Application.DoEvents() 'чтоб не зависнуть
  23.   Loop
  24. End Using

http://vbnet.su/forum/single-91.html
Алексей Немиро
Алексей Немиро
В .NET есть фишка, называется типизированные DataSet, на мой взгляд, использовать данную технологию нихт гуд, но это уже из раздела религиозных вопросов smile
Собственно, рабата с этими DataSet визуальная. Создаем новый проект (WinForms), далее, жмем меню Project -> Add Item, выбираем DataSet, далее открываем его, берем с панели инструментов (Toolbox) TableAdapter, в окне Wizard-а выбираем источник данных, далее все дефолтно, на последнем шаге пишем запрос на выборку, например: SELECT * FROM table1, остальное дефолтно. Если в запросе ошибка, визард об этом сообщит. Далее, переходим к форме, кидаем DataGridView указываем в DataSource созданный DataSet, запускаем проект, и любуемся результатом. smile
В DataSet можно написать любые запросы.
http://vbnet.su/forum/single-68.html
Больше полезной информации
Новые коды (обновлено: 25 мая 2009 / 01:42)
Visual Basic .NET (Framework x.x) HTML-код цвета без ColorTranslator
Автор: Ігор | добавлено: 25 мая 2009 / 01:42 | просмотров: 4391 (+3759)
Visual Basic .NET (Framework x.x) Позднее связывание
Автор: Ігор | добавлено: 10 мая 2009 / 03:26 | просмотров: 5292 (+4771)
Visual Basic .NET (Framework x.x) Пример контрола
Автор: Kolyasik | добавлено: 04 мая 2009 / 12:38 | просмотров: 4792 (+4282)
Visual Basic .NET (Framework x.x) Преобразование цвета в целое 32-битовое число и наоборот
Автор: Ігор | добавлено: 24 января 2009 / 04:39 | просмотров: 5466 (+4852)
Visual Basic .NET 2008 (Framework 3.0/3.5) Реализация пользовательского CheckBox
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:50 | просмотров: 6662 (+5697)
Visual Basic .NET 2008 (Framework 3.0/3.5) Реализация интерфейса WPF
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:45 | просмотров: 5940 (+4764)
Visual Basic .NET 2008 (Framework 3.0/3.5) Сортировка данных в ComboBox
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:40 | просмотров: 6163 (+5305)
Visual Basic .NET 2008 (Framework 3.0/3.5) ErrorProvider с использованием WPF
Автор: Rahul Singla | добавлено: 26 декабря 2008 / 09:33 | просмотров: 4724 (+4057)
Visual Basic .NET 2008 (Framework 3.0/3.5) ProgressBar как в IE 7
Автор: jebarson | добавлено: 26 декабря 2008 / 09:26 | просмотров: 6520 (+5264)
Visual Basic .NET 2008 (Framework 3.0/3.5) Использование WPF-контролов в Office 2007
Автор: Alessandro Del Sole | добавлено: 26 декабря 2008 / 09:20 | просмотров: 4506 (+3814)
Все коды
У нас есть
Мозолистые пальцы
Всего:1180
С ногами:2360
Красные глаза
Всего:236
Левых:118
Правых:118
Горячие мозги
Всего:118
Левых:1
Правых:27
Еще какие-то:90
Сегодня сказали
Сегодня еще никто ничего не говорил :-(
Архив сказанного ранее
Букварь всему голова
Книги на VBNet.SuVisual Basic в задачах и примерах
В книге рассмотрены возможности языка Visual Basic на основе авторских задач и примеров. Описывается история языков семейства Basic, применение Visual Basic к реализации линейных, разветвляющихся и циклических алгоритмов, работа с подпрограммами и ... подробнее..
Автор: Игорь Сафронов
Цена: 225 руб. КУПИТЬ
Все книги на VBNet.Su
TOP 10 пользователей
Алексей Немиро65.2275660625+
Ігор47.181654625+
kibernetics16.0390645+
Kolyasik5.9658263125+
rublenko3.734375+
Arseny3.6845703125+
Skywalker2.904296875+
ostgals2.857421875+
5acredphoenix2.708994375+
andrey_z5z2.3857511875+
Все пользователи


Реклама: