Из рекордсет в таблицу

[gluk_fm]

Добрый вечер.
Уважаемые програмисты, может кто-то встречался с проблемой загрузки данных из рекордсета в таблицу.
Краткое описание:
1. Создал процедурку создания таблицы с полями из рекордсет (запросы рекордсета будут разные, сразным количеством столбцов и т.д, поэтому пытаюсь создать универсальный инструмент)
2. Попытался присвоить добавленным полям формат значений из рекордсет (явно не очень успешно но не критично)

Dim nFildForm1 As Variant
Set tdf = db.CreateTableDef("temp")
For i = 1 To rstRecordset.Fields.Count - 1
nFild = rstRecordset.Fields(i).Name
nFild1 = VarType(rstRecordset.Fields(i).Value)
nFild2 = rstRecordset.Fields(i).NumericScale
nFild3 = rstRecordset.Fields(i).Value
   Set rstConst = db.OpenRecordset("SELECT sp_KonstantPerem.kod, sp_KonstantPerem.Constant, sp_KonstantPerem.Description " & _
                                    "FROM sp_KonstantPerem;")
rstConst.MoveFirst
Do Until rstConst.EOF
If nFild1 = rstConst![kod] Then
If nFild1 = 3 And InStr(1, nFild3, ",", 0) < 0 Or InStr(1, nFild3, ".", 0) < 0 Then nFild1 = 7
GoTo n1:
End If

rstConst.MoveNext
Loop
nFild1 = 10
n1:

Set fld1 = tdf.CreateField(nFild, nFild1, nFild2)
tdf.Fields.Append fld1

Next i

Столкнулся со следующей проблемой: Как мне данные из рекордсета загнать в созданную таблицу или может есть возможность сразу на основания рекордсет создать таблицу?

Заранее спасибо за помощь

[Step_UA]

Доброго.
Формируйте для каждой записи рекордсета запрос на добавление. Если откроете "секрет" формирования рекордсета то можно будет подумать ...

[Myhaylo]

Может быть, Вам стоит сразу воспользоваться запросом на создание таблицы? Тогда проблемы разных количества столбцов и форматов данных сразу отпадают...

[gluk_fm]

Доброе утро.
Уважаемые програмисты, проблема и состоит в

1. Создал процедурку создания таблицы с полями из рекордсет (запросы рекордсета будут разные, сразным количеством столбцов и т.д, поэтому пытаюсь создать универсальный инструмент)

Тоесть набор полей для запроса на добавление является динамическим (количество, наименование, тип данных) будут всегда разными. В связи с чем и возникает вопрос каким образом можно VB создать/сгенерировать запрос на добавление из рекордсета?

Может кто-то делал что-то подобное?
Пока появилась идея загнать всё в массив и сделать что-то типа импорта, но не уверен что такое выйдет.....

Myhaylo, я думал над этим, НО получилась такая ситуация, что все запросы на 100% будут генерироваться не мной, а соответственно на 100% они будут как запросы на выборку.....

Лень - двигатель прогресса.

[Teslenko_EA]

Здравствуйте gluk_fm.
Вы не думали применить Excel для решения задачи?
С его применением задача может быть решена за семь шагов:
1. создать сессию Excel - .
2. открыть файл шаблон/заготовку.
3. выложить на лист рекордсет.
4. сохранить и закрыть файл и Excel.
5. изменить SQL конструкцию существующего запроса обращением к внешней таблице Excel.
6. удалить существующую таблицу.
7. создать таблицу.

В коде это может выполняться так:

Dim XL, XT, rst As ADODB.Recordset, i%, s$
'
Set XL = CreateObject("Excel.Application")
Set XT = XL.WorkBooks.Open(CurrentProject.Path + "\Temlate.xls")
XT.Sheets(1).Cells.Clear
XT.Sheets(1).Range("A2").CopyFromRecordset rst 
For i = 0 To rst.Fields.Count - 1
    XT.Sheets(1).Cells(1, i + 1) = rst.Fields(i).Name
Next
    XT.Save
    XL.Quit
Set XT = Nothing
Set XL = Nothing
s = "SELECT * FROM [Excel 8.0;DATABASE=" + CurrentProject.Path + "\Temlate.xls].[Лист1$]"
CurrentDb.QueryDefs("qExcel").SQL = s '
CurrentDb.Execute("Drop Table TmpExcel") ' 
CurrentDb.Execute("SELECT * INTO TmpExcel FROM qExcel") '

(конечно обработчик ошибок стоит добавить)

Евгений.

[Myhaylo]

Сообщение от gluk_fm

все запросы будут генерироваться не мной - они будут как запросы на выборку...

Так и хорошо. Пусть этот запрос на выборку сохранён на закладке "Запросы" окна "база данных" как "Запрос1". Тогда Ваш запрос на создание таблицы "НоваяТаблица" имеет вид:

SELECT Запрос1.* INTO НоваяТаблица FROM Запрос1;

[gluk_fm]

Доброе утро, уважаемые програмисты.
"Myhaylo" к сожалению такой вариант как Вы предложили не пройдёт (или может я не правильно его понял) по причине выемки запросов на выборку из внешних источников, что не позволит его сохранять как запрос.


Уважаемый "Teslenko_EA", Вы как всегда даёте толковые советы, но к сожалению/радости мне хотелось бы уйти от использования "Excel", так как данные процедуры хочу написать для выполнения в моё отстуствие, а на данном компьютере паралельно будут выполнятся макросы екселя что непременно приведёт к сбою.....

Пока возникла идея сгенерировать из запроса на выборку запрос на добавление, что-то вроде:

Set SQLt = "Select tabl_ish.* &" & _
"From tabl_ish " & _
" where tabl_ish.bb=1"

db.execute ("insert into temp " & SQLt) 

или

p1 = instr(1,SQLt,"From",0)

db.execute (mid(SQLt,1,p1) & "INTO temp " & mid(SQLt,p1,1000)

Но я что-то глубоко сомневаюсь что у меня такое выйдет, так как часто используется что-то вроде:

sum/100 as Ssum, iif(T.b=1,22,334) as PP
и т.д.

Может кто-то делал что-то подобное или может посказать где можно такое почитать?


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

[Teslenko_EA]

gluk_fm, Ваши опасения по поводу "..паралельно будут выполнятся макросы екселя что непременно приведёт к сбою.."
напрасны.

в коде выполняется команда: CreateObject("Excel.Application") (а не GetObject(, "Excel.Application"))
Следовательно создается новая, не зависящая от работающей сессия Excel, именно об этом я писал:

1. создать сессию Excel...

а после выполнения - заполнения и сохранения листа, она закрывается (.. XL.Quit ..)
не отображаясь и не доставляя проблем работающим приложениям.

Евгений.

P.S. все свои сообщения я подписываю в надежде, что обращаться ко мне будут по имени.

[Myhaylo]

Сообщение от gluk_fm

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

Но раз Вы собираетесь работать с объектом RecordSet, то там будет запрос. Вот и сохраняйте текст этого запроса как "Запрос1". Таким запросом может быть хоть запрос к DBF-файлу, хоть к таблице в другой базе данных, даже запрос к серверу... Вы же не данные сохраняете, а именно способ их получения.
Или у Вас будет "виртуальный" RecordSet?
Вот зря Вы не ответили Step_UA...

[gluk_fm]

Добрый день.
Спасибо что помогаете с моей проблемой.
Обьяснение:
Виртуальный не рекордсет - а источники получения в нём, тоесть конект.... Так что даже если я и сохраню его как запрос толку с этого не будет....
На данный момент есть рекордсет и пустая таблица с такими же именами полей, как можно написать запрос на добавление из запроса на выборку при динамическом количестве полей?
Присер запроса:

cSqlString = "SELECT b.arcdate,b.summanow/100 as summanow,b.summanoweq/100 as summanoweq,a.baccountid as BACCOUNT_ID,a.currencyid as CURRENCY_ID,c.id as CONTR_ID,c.name as CONTR_NAME,c.identifycode as CONTR_TAXCODE,cr.id as CONTR_RANKID,cr.sname as CONTR_RANK_SNAME,cu.symbolcode " & _
"FROM arc_balance b,aaccount a,contragent c,contragrank cr,currency  cu " & _
"WHERE " & _
      "a.baccountid in (2512,2513,2520,2523,2526,2530,2531,2541,2542,2544,2545,2552,2553,2554,2560,2561,2562,2565,2570,2571,2572,2600,2601,2602,2603,2604,2605,2606,2620,2622,2625,2640,2641,2642,2643,2650,2655) " & _
      "and sign(b.summanoweq)=1 " & _
      "and cr.id in (3,4) " & _
      "and b.corrmode IN (0, 2) " & _
      "and a.ID = b.accountid " & _
      "and c.id = a.contragentid " & _
      "and c.contragrankid=cr.id " & _
      "and a.currencyid=cu.id(+) " & _
"and (b.arcdate=to_date('13.11.2012','dd.mm.yyyy') or b.arcdate=to_date('12.11.2012','dd.mm.yyyy'))"

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