| Вопрос: Вопрос | Добавлено: 06.10.05 11:02 |
Автор вопроса:  Dima
|
|
Ребята, подскажите как открыть набор записей базы Access и скопировать туда данные, представленные на экселевском листе?
используя recordset через moveNext и fields! Небольшой ликбез: есть экселевская табличка, кот. нужно загрузить в базу через рекордсет! табл. имеет след. вид: 1 - тип контракта(уникальный) 2- date 3- Px Last LNX5 Comdty Date Px Last 04.01.2005 13650 05.01.2005 13850 06.01.2005 13990 07.01.2005 14325 10.01.2005 14175 11.01.2005 14250 LNX5 Comdty - ячейка(1.1) Date - ячейка(1.2) Px Last - (2.2) Нужно испольсуя .Fields и MoveNext исправить код. В данном коде считывается 1-ая запись! Dim rsText As New clsTextRecordset rsText.OpenRecordset strFileName If rsText.FieldsCount <> UBound(arrFieldToParams) + 1 Then strResult = "." End If rsAT_Fields.MoveFirst i = 0 Do While i < rsText.FieldsCount And i < UBound(arrFieldToParams) + 1 If rsText.GetNameByFieldNumber(i) <> rsAT_Fields("ExcelName") Then If strResult <> "" Then strResult = strResult & vbCrLf strResult = strResult & i + 1 & {" & rsAT_Fields("ExcelName") & "}, {" & rsText.GetNameByFieldNumber(i) & "}" 'Exit Function End If 'Debug.Print rsAT_Temp.Fields(i).Name & " " & rsAT_Fields("ExcelName") rsAT_Fields.MoveNext i = i + 1 loop] |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: Роман Вопросов: 1 Ответов: 31 |
Web-сайт: Профиль | | #1 | Добавлено: 14.10.05 18:19 |
|
Попробуй цикл организовать через
Do While rsText.EOF=False а в нем вложенный цикл по количеству полей. |
||
Страница: 1 |