Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 03.05.2019
Сообщений: 7
1

Проблема с выводом данных из MS Excel

03.05.2019, 22:16. Просмотров 966. Ответов 3

Всех приветствую. У меня возникла проблема с работой программы по учету картриджей.
Проблема с выводом данных из MS Excel


По кнопке просмотреть открывается форма и выводятся данные из Excel через ADO в DataGrid1
Проблема с выводом данных из MS Excel
Проблема с выводом данных из MS Excel


Далее после того как данные вывелись если нажать назад и зайти в форму "изменить статус картриджей", то после того как я меняю статус
Проблема с выводом данных из MS Excel
и нажимаю "ОК" выдает ошибку.
Проблема с выводом данных из MS Excel


Код изменения статуса вот:
Visual Basic
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
Private Sub Command1_Click()
   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
   
   If Text1.Text = "" Then
        MsgBox "Введите наименование картриджа", vbInformation
   Else
       'Start a new workbook in Excel
       Set oExcel = CreateObject("Excel.Application")
       Set oBook = oExcel.Workbooks.Open("C:\Users\ReDaX\Desktop\DN\Programm\DB.xls")
    
       'Add data to cells of the first worksheet in the new workbook
       Set oSheet = oBook.Worksheets(1)
       FndObj = oSheet.UsedRange.Find(Text1.Text).Address
       FndObjAddr = IsNumeric(Mid(FndObj, 1, Len(FndObj)))
       I = 1
       Do While I < Len(FndObj) + 1
            If IsNumeric(Mid(FndObj, I, 1)) = True Then
                FndObjAddr = Int(Mid(FndObj, I, 1))
            Else:
                FndObjAddr = ""
            End If
            I = I + 1
       Loop
       If Option1.Value = True Then
           oSheet.Cells(FndObjAddr, 5).Value = "Заправить"
       End If
       If Option2.Value = True Then
           oSheet.Cells(FndObjAddr, 5).Value = "В работе"
       End If
       If Option3.Value = True Then
           oSheet.Cells(FndObjAddr, 5).Value = "Сломался"
       End If
       'Save the Workbook and Quit Excel
       oBook.Save
       oExcel.Quit
    End If
End Sub
А если зайти в программу и сразу изменять статус, то все работает.

И еще при просмотре не обновляются данные, как будто он делает одноразовый запрос.
Запрос делается через свойство Connection String
Проблема с выводом данных из MS Excel


Как я понял это вроде из за соединения при просмотре с excel, соединение открывается, но не закрывается, и при изменении конфликтуют процессы. Я не знаю как решить данную проблему, помогите пожалуйста.
0
Миниатюры
Проблема с выводом данных из MS Excel  
Изображения
 
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.05.2019, 22:16
Ответы с готовыми решениями:

Проблема с загрузкой данных из Excel посредством ADO
В Excele есть столбец следующего вида: SKV (это название ) 10 12 13R 15B 18 Так...

Проблема с выводом данных
Есть у меня страница catalog.php &lt;?php $products = get_products(); foreach($products as...

Проблема с выводом данных
При открытии веб-страницы выдает такую ошибку: Вот код: &lt;?php...

Проблема с выводом данных
Хочу вывести все покупки за месяц.Для этого создал класс Shopping. Хочу чтобы данные добавлялись...

3
11014 / 3464 / 598
Регистрация: 13.02.2009
Сообщений: 10,305
04.05.2019, 06:31 2
Лучший ответ Сообщение было отмечено ReDaX7355 как решение

Решение

DB.xls
Обязательно делать запросами? Просто как с книгой нельзя?
Понятней и проще
1
0 / 0 / 0
Регистрация: 03.05.2019
Сообщений: 7
04.05.2019, 12:14  [ТС] 3
Alex77755, можете примерно рассказать как это реализовать?
0
688 / 228 / 18
Регистрация: 17.01.2011
Сообщений: 576
Записей в блоге: 1
04.05.2019, 19:20 4
Поищите здесь

Обработка активной книги Excel
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.05.2019, 19:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Проблема с выводом данных из бд - RedBeansPHP
Здравствуйте, проблема такая.. я использую для написания сайта RedBean PHP, хочу вывести все...

Проблема с выводом данных из массива StringGrid
День добрый! У меня есть программа, в ней рандомно заполняетс массив. Из этого масива по нажтию...

QueryString, ASP + MS SQL - проблема с выводом данных.
Граждане, помогите пожалуйста закипающему чайнику :). Сил моих больше нет, но очень хочется...

Проблема с выводом данных в стринггрид(программу прилагаю)
Добрый день всем, дана вот такая задача: Дана таблица, состоящая из N строк. Структура таблицы...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.