Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 02.11.2018
Сообщений: 9
.NET 4.x

Экспорт таблицы в Excel из БД Access посредством VB.NET

30.11.2018, 08:52. Показов 1296. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет! Еще дна не решенная мной задача! Помогайте спецы! ДА я Нуб, но прошу не судите строго, только начинаю!
Итак создал модуль с кодом для Excel.App:
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Imports System.Data
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop
 
Module Export_DATA_Excel
    Public Sub ExportToExcel(ByVal excelDataTbl As DataTable, ByVal Title As String, ByVal ParamArray ColumnHeaderText() As String)
 
        Dim excel As Excel.Application
        Dim WBook As Excel.Workbook
        Dim WSheet As Excel.Worksheet
 
        excel = CreateObject("Excel.Application")
        WBook = excel.Workbooks.Add
        WSheet = WBook.ActiveSheet
        excel.Visible = True
 
 
        With WSheet.Range("A1", "J2")
 
            .Merge()
            .Value = Title
            .WrapText = True
            .Interior.Color = Color.Lavender
            .Font.Color = Color.Crimson
            .Font.Size = 12
            .Font.Bold = True
            .HorizontalAlignment = XlHAlign.xlHAlignCenter
            .VerticalAlignment = XlVAlign.xlVAlignCenter
        End With
 
 
        WSheet.Range("A3", "J3").Merge()
        WSheet.Range("A3", "J3").RowHeight = 0
 
        Dim tbl As DataTable = excelDataTbl
 
        For i = 0 To ColumnHeaderText.Length - 1
            WSheet.Cells(4, i + 1) = ColumnHeaderText(i)
 
        Next
 
 
 
        For x = 0 To tbl.Rows.Count - 1
 
            For y = 0 To tbl.Columns.Count - 1
 
                WSheet.Cells(x + 5, y + 1) = tbl.Rows(x)(y)
 
            Next
        Next
 
    End Sub
End Module
и в Form1 кнопка btnExport_Click. на которую пытаюсь прописать экспорт из таблицы в БД Access по отфильтрованным данным в Excel. сначала в проге отфильтровываешь что тебе нуджно, и по нажатию по button происходит открытие Excel с этими данными.
в btnExport_Click прописал:
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 Dim StrQuery As String = "Select * FROM График "
 
        Dim WhereClause As String = String.Empty
        Dim i As Integer
        If Int32.TryParse(txtSearch.Text.Trim().ToString(), i) Then
            WhereClause = "WHERE Код = " & Convert.ToInt32(txtSearch.Text.Trim().ToString()) & " "
        Else
            WhereClause = "WHERE Код LIKE = '" & Convert.ToString(txtSearch.Text.Trim()) & "' "
        End If
 
 
        WhereClause = "OR ФИО LIKE '*" & txtSearch.Text.Trim().ToString() & "*' " &
                      "OR Должность LIKE '%" & txtSearch.Text.Trim().ToString() & "%' " &
                      "OR Подразделение LIKE '%" & txtSearch.Text.Trim().ToString() & "%' " &
                      "OR Область_аттестации LIKE '%" & txtSearch.Text.Trim().ToString() & "%' " &
                      "OR Дата LIKE '%" & txtSearch.Text.Trim().ToString() & "%' " &
                      "OR Форма_подготовки LIKE '%" & txtSearch.Text.Trim().ToString() & "%' " &
                      "OR Вид_надзора LIKE '*" & txtSearch.Text.Trim().ToString() & "*' ORDER BY Код ASC;"
 
 
        StrQuery &= WhereClause
 
 
 
 
        Dim datast As New DataSet()
 
        Using con As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Application.StartupPath & "\PromBez.accdb;Persist Security Info=True")
            Using da As New System.Data.OleDb.OleDbDataAdapter(StrQuery, con)
 
                da.Fill(datast, "ExcelData")
 
            End Using
 
        End Using
 
        If datast.Tables(0).Rows.Count <= 0 Then
 
            MessageBox.Show("Нет данных для загрузки, попробуйте еще раз.", "Экспорт в MSExcel", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Form1_Load(sender, e)
            Return
 
        End If
 
 
        Dim dataTable As DataTable = datast.Tables(0)
 
        Dim excelTitle As String = "Экспорт в MSExcel"
 
        Dim DGVHeaderText() As String = {"Код", "ФИО", "Должность", "Подразделение", "Область_аттестации", "Дата", "Форма_подготовки", "Вид_надзора"}
 
        ExportToExcel(dataTable, excelTitle, DGVHeaderText)
 
 
 
    End Sub
Так вот после нажатия на кнопку происходит Ошибка:
System.Data.OleDb.OleDbException: "Ошибка синтаксиса (пропущен оператор) в выражении запроса 'Код LIKE = 'Сидоров' OR ФИО LIKE '*Сидоров*' OR Должность LIKE '%Сидоров%' OR Подразделение LIKE '%Сидоров%' OR Область_аттестации LIKE '%Сидоров%' OR Дата LIKE '%Сидоров%' OR Форма_подготовки LIKE '%Сидоров%' OR Вид_надзора LIKE '*Сидоров*''."
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.11.2018, 08:52
Ответы с готовыми решениями:

Программный экспорт таблицы из Access в Excel
Скажите пожалуйста, как программно осуществить экспорт таблицы access в excel. всем спасибо!

Программный экспорт сводной таблицы из бд Access в Excel
Доброго времени суток! Мучаюсь уже не один день, очень нужна помощь специалистов! Проблема следующая: при экспорте сводной таблицы из...

Экспорт таблицы из Access в определенную таблицу Excel
Добрый день. Интересует такой вопрос, можно ли определенную таблицу из Access экспортировать в определенную, заранее созданную таблицу...

1
265 / 216 / 54
Регистрация: 01.08.2016
Сообщений: 832
30.11.2018, 09:50
Вот пример из работающего приложения выгрузка Data grid в Excel:
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        'быстрая выгрузка данных из DataGridView в Excel
        Dim xlApp As New Microsoft.Office.Interop.Excel.Application
        Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Add
        Dim xlWorksheet As Microsoft.Office.Interop.Excel.Worksheet = xlWorkBook.Worksheets(1) 'CType(xlWorkBook.Worksheets(1), Excel.Worksheet)
        Dim DGVRowsTotal, DGVColsTotal, i, j As Integer
        DGVRowsTotal = DataGridView1.RowCount
        DGVColsTotal = DataGridView1.Columns.Count
        'задаём размерность нашему массиву
        Dim arrData(0 To DGVRowsTotal + 1, 0 To DGVColsTotal + 1) As Object
        'заполняем шапку
        For i = 0 To DGVColsTotal - 1
            arrData(1, i + 1) = DataGridView1.Columns(i).HeaderText
        Next
        'заполняем данные
        For i = 0 To DGVRowsTotal - 1
            For j = 0 To DGVColsTotal - 1
                arrData(i + 2, j + 1) = DataGridView1.Rows(i).Cells(j).Value
            Next j
        Next i
        'выгрузка на лист
        xlWorksheet.Range("A1").Resize(arrData.GetUpperBound(0), arrData.GetUpperBound(1)).Value = arrData
        xlWorksheet.Rows(1).delete() 'удаляем пустую 1-ю строку, т.к. наш массив начитался с 0 индекса
        xlWorksheet.Columns(1).delete() 'удаляем пустой 1-й столбец, т.к. наш массив начитался с 0 индекса
        xlApp.Visible = True
        'MsgBox("Выгрузка завершена!", vbInformation, "Конец")
    End Sub
 
   
    End Sub
Добавлено через 9 минут
Я так понимаю что база данных отображается в DGV для просмотра и работы с ней (редактирования внесения изменений). Я сначала отфильтрованные данные заношу в другую DGV для просмотра что получилось, а потом бывает надо по нескольким параметрам отфильтровать и только потом экспортирую. Если на форме места мало то для фильтрованных данных с DGV можно создать еще одну форму которая вызывается при необходимости
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.11.2018, 09:50
Помогаю со студенческими работами здесь

Как програмно из VB сделать экспорт из таблицы Access в Excel
Пример, имеется база данных Data1. связано с таблицей базы данных Access и ее (таблицу)с приложения VB я заполняю... ...

Запрос SQL из DBF файлов и экспорт результата в Excel - посредством VBA
Дорогие коллеги по цеху! Существует следующая относительно простая задача. Необходимо из разных DBF-файлов (2-4 файла) с помощью...

Экспорт таблицы Access в Oracle - тянутся только пустые таблицы
Проблема: нужно экспортировать таблицу Access в Oracle. Если она пустая, то экспорт происходит, но числовые типы преобразуются в VARCHAR....

Экспорт-импорт данных Excel-Access-Excel
Доброе время суток уважаемые форумчане. Приходит информация в экселевской таблице. Скидываю её в общую базу в Access. Для отчета...

Соединение Excel и MS SQL посредством Access
Подскажите, как поступить... Имеются файлы Excel. Из них посредством интерфейса на Access нужно перекачать данные в таблицу MS SQL и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru