Страница: 1 |
Страница: 1 |
Вопрос: Из Excelя в Access
Добавлено: 04.12.05 11:29
Автор вопроса: Andrey999 | Web-сайт:
Помогите!!!
Из файла Экселя я передаю данные в базу Аксесс, в Экселе 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-сайт:
Профиль | | #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-сайт:
Профиль | | #5
Добавлено: 05.12.05 14:54
Если такой спец, то читай внимательно, 5 изначально пустой )
Номер ответа: 6
Автор ответа:
Andrey999
ICQ: 30852361
Вопросов: 73
Ответов: 168
Web-сайт:
Профиль | | #6
Добавлено: 05.12.05 14:56
Да и еще, не умничий. Я отправляю не из Аксес в Эксель, а на оборот.