Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Из Excelя в Access Добавлено: 04.12.05 11:29  

Автор вопроса:  Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 
Помогите!!!
Из файла Экселя я передаю данные в базу Аксесс, в Экселе 4 столбца все данные передаются без проблем но надо еще чтобы в базе Аксеса заполнялось еще одно поле (5-е) в каждой строчке значением нужной мне переменной.
Вот код:
For row = 2 To max_row
& "'"
        statement = "INSERT INTO Books VALUES ("
        For col = 1 To 5
           If col > 1 Then statement = statement & ","
            new_value = Trim$(excel_sheet.Cells(row, col).Value)

                statement = statement & _
                    "'" & _
                    new_value & _
                    "'"
            
        Next col
        statement = statement & ")"

        conn.Execute statement, , adCmdText
   
    Next row

То есть, в Экселе есть значения только в 4-х полях 5-е пустое, а в Аксесс в процессе переноса данных в каждую строку последнего (5-го столбца) добавлять еще значение какой-то переменной

Ответить

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

Номер ответа: 1
Автор ответа:
 GSerg



Вопросов: 0
Ответов: 1876


 Профиль | | #1 Добавлено: 04.12.05 16:31
А чем конкатенация значения некоторой переменной принципиально отличается от конкатенации свойств .Value?

Ответить

Номер ответа: 2
Автор ответа:
 Andrey999



ICQ: 30852361 

Вопросов: 73
Ответов: 168
 Web-сайт: www.radio-device.narod.ru
 Профиль | | #2
Добавлено: 04.12.05 17:04
Переменная String. Объединяется все прекрасно если я добавляю
new_value = Trim$(excel_sheet.Cells(row, col).Value) + "эта переменная" он к каждой заполненной строке добовляет мою переменную, а мне нужно только в 5-м поле.
Короче, 5-я сторока это имя файла из которого берем информацию (а файлов много).

Ответить

Номер ответа: 3
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #3 Добавлено: 04.12.05 18:32
if col = 5 then new_value = Trim$(excel_sheet.Cells(row, col).Value)

?

Ответить

Номер ответа: 4
Автор ответа:
 AndreyMp



ICQ: 237822510 

Вопросов: 28
Ответов: 1182
 Профиль | | #4 Добавлено: 05.12.05 12:52
Гы..:)) Студенты правда достали. Если я правильно перевел то "Если у тебя 5-й столбец то пошел твой валуе на твой ексел.файл.книга"

Ответить

Номер ответа: 5
Автор ответа:
 Andrey999



ICQ: 30852361 

Вопросов: 73
Ответов: 168
 Web-сайт: www.radio-device.narod.ru
 Профиль | | #5
Добавлено: 05.12.05 14:54
Если такой спец, то читай внимательно, 5 изначально пустой ;))

Ответить

Номер ответа: 6
Автор ответа:
 Andrey999



ICQ: 30852361 

Вопросов: 73
Ответов: 168
 Web-сайт: www.radio-device.narod.ru
 Профиль | | #6
Добавлено: 05.12.05 14:56
Да и еще, не умничий. Я отправляю не из Аксес в Эксель, а на оборот.

Ответить

Страница: 1 |

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



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