Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 | 2 |

 

  Вопрос: Экспорт данных Excel-Access (с кодом, VB.net) Добавлено: 19.05.10 17:34  

Автор вопроса:  Alba

Ответить

  Ответы Всего ответов: 26  

Номер ответа: 16
Автор ответа:
 Alba



Вопросов: 8
Ответов: 37
  Профиль | | #16 Добавлено: 20.05.10 18:54
Я уже и так пробовала - ничего не происходит. А компилирует как в первом так и во втором случае.

Ответить

Номер ответа: 17
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #17 Добавлено: 20.05.10 18:55
ВОт где твой косяк... ты книгу открываешь в никуда.. надо писать так
Dim ex_Workbook As Excel.Workbook = oExcel.Workbooks.Open(m_filePath)
Dim ex_Worksheet As Excel.Worksheet = ex_Workbook.Worksheets(1)

и дальше как я уже писал..

Ответить

Номер ответа: 18
Автор ответа:
 Alba



Вопросов: 8
Ответов: 37
  Профиль | | #18 Добавлено: 20.05.10 18:56
  1.  
  2.   Dim ex_Workbook As Excel.Workbook = oExcel.Workbooks(1) ' или 0
  3.             ' Получаем ссылку на лист в нужной книге
  4.   Dim ex_Worksheet As Excel.Worksheet = oExcel.Worksheets(1) ' или 0

Ответить

Номер ответа: 19
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #19 Добавлено: 20.05.10 18:58
  1.  
  2. Dim ex_Workbook As Excel.Workbook = oExcel.Workbooks.Open(m_filePath)
  3. Dim ex_Worksheet As Excel.Worksheet = ex_Workbook.Worksheets(1)

Ответить

Номер ответа: 20
Автор ответа:
 Alba



Вопросов: 8
Ответов: 37
  Профиль | | #20 Добавлено: 20.05.10 19:07
  1.  
  2.    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
  3.  
  4.         Dim oExcel As Excel.Application
  5.         Dim oCon As OleDbConnection
  6.         Dim oCommand As OleDbCommand
  7.         Dim oRS As ADODB.Recordset
  8.  
  9.         oExcel = New Excel.Application
  10.         oCon = New OleDbConnection
  11.         oCommand = New OleDbCommand
  12.  
  13.         Dim izv_id
  14.         Dim fil_name        
  15.  
  16.         Dim FileName As Boolean = True
  17.         If IsPostBack = True And FileUpload1.HasFile = True Then
  18.             Dim m_filePath As String = "C:\" & FileUpload1.FileName
  19.             FileUpload1.PostedFile.SaveAs(m_filePath)
  20.             oExcel.Workbooks.Open(m_filePath)
  21.  
  22.             ' Получаем ссылку на книгу
  23.             Dim ex_Workbook As Excel.Workbook = oExcel.Workbooks.Open(m_filePath)          
  24.             Dim ex_Worksheet As Excel.Worksheet = ex_Workbook.Worksheets(1)
  25.  
  26.             izv_id = ex_Worksheet.Cells(2, 3).Value
  27.             fil_name = ex_Worksheet.Cells(6, 2).Value
  28.  
  29.             oExcel.Visible = True
  30.  
  31.             '----------------------------------
  32.             'Запись из Excel в базу данных
  33.             Dim queryString As String = "insert into temp values ('" & izv_id & "',  '" & fil_name & "')"
  34.             Dim connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DB.mdb;Persist Security Info=False"
  35.             Using connection As New OleDbConnection(connectionString)
  36.                 connection.Open()
  37.                 Dim command As New OleDbCommand(queryString, connection)
  38.                 command.ExecuteNonQuery()
  39.             End Using
  40.  
  41.         End If
  42.         oCon = Nothing
  43.         oCommand = Nothing
  44.         oRS = Nothing
  45.         oExcel = Nothing
  46.  
  47.     End Sub



И снова ничего...

Ответить

Номер ответа: 21
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #21 Добавлено: 20.05.10 19:16
если ошибок нет, то теперь самое интересное... ты где результат работы смотришь??? БД в папке с программой или C:\DB.mdb ?

Ответить

Номер ответа: 22
Автор ответа:
 Alba



Вопросов: 8
Ответов: 37
  Профиль | | #22 Добавлено: 20.05.10 19:26
результат смотрю на C:\DB.mdb.

Ответить

Номер ответа: 23
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #23 Добавлено: 20.05.10 19:41
так не бывает.. :(
я больше ошибок не вижу. я сотни раз писал нечто подобное и всегда работало..

Ответить

Номер ответа: 24
Автор ответа:
 Alba



Вопросов: 8
Ответов: 37
  Профиль | | #24 Добавлено: 20.05.10 19:48
Ух...а я уж боялась что мне результат в другом месте искать надо...Попробую еще что-нибудь сделать...Но все равно спасибо за помощь вам.

Ответить

Номер ответа: 25
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #25 Добавлено: 20.05.10 19:51
Попробую еще что-нибудь сделать...

код с виду правильный.. дальше надо отладчиком смотреть.
больше я уже ничем не смогу помочь..

Ответить

Номер ответа: 26
Автор ответа:
 Alba



Вопросов: 8
Ответов: 37
  Профиль | | #26 Добавлено: 20.05.10 20:25
Жаль что я в программировании не разбираюсь...

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам