🚀 go-pugleaf

Użytkownik "Piotrek N" <pniewinski@czat.onet.pl> napisał w wiadomości 
news:g80or9$uac$1@news.onet.pl...
> Witam i prosze o pomoc
>
> Proboje przeniesc rekordy z kwerendy do tabeli i cos mi nie dziala:
>
> Dim t1 As Recordset
> Dim k1 As QueryDef
> Set db = DBEngine.Workspaces(0).Databases(0)
> Set t1 = db.OpenRecordset("tabela1", dbOpenTable)
> Set k1 = db.OpenQuery("kwerenda1", dbOpenQuery)
>
> Do Until k1.EOF
>                       t1.AddNew
>                       t1("pole1") = k1("dana2")
>                       t1("pole2") = k1("dana2")
>                       t1.Update
>        k1.MoveNext
> Loop
> t1.Close
> k1.Close
>
> gdzie jest blad
>
> pozdrawiam
> Piotrek

bardziej wydajne jest rozwiązanie oparte na SQL-u bo co tu dużo gadać za 
takie coś to powinni dawać linijką po łapach w szkole ;)

insert into tabela1
(pole1, pole2)
select dana1, dana2
FROM kwerenda1

zaszyć coś takiego w kwerendzie albo w stringu i wykonać w dowolny sposób