vba - How to generate an XML file, base on a table in Access, every 1500 records of that table? -


i have function working export xml. wanted generate file every 1500 records of table stock_exe. tried while (not .eof) counter lost. know best way this?

first version:

public function function_xml_test()      dim rs              adodb.recordset     dim cn              adodb.connection     dim myxml           msxml2.domdocument     dim myxslt          msxml2.domdocument     dim ssql            string     dim countstring     string     dim lcounter        integer     dim icount          integer      set myxml = new msxml2.domdocument     myxml.async = false     myxml.preservewhitespace = false      set myxslt = new msxml2.domdocument     myxslt.async = false     myxslt.preservewhitespace = false      set cn = currentproject.connection     set rs = new adodb.recordset      ssql = "select * stock_exe"      countstring = "select count(*) stock_exe"      icount = currentdb.openrecordset(countstring).fields(0).value      rs.open ssql, cn      icount = rs.recordcount 'determine number of returned records      rs                  lcounter = 0 icount step 1500                myxslt.load "c:\users\stock_exe.xslt"             rs.save myxml, adpersistxml              call myxml.transformnodetoobject(myxslt.documentelement, myxml)              if isnull(forms!menuinicial!productstatus.value) or _                 isnull(forms!menuinicial!lpnfacilitystatus.value) or _                 isnull(forms!menuinicial!initialaisle.value) or _                 isnull(forms!menuinicial!finalaisle.value)                 msgbox ("as lovs!")             else                 msgbox ("criado xml!")                 myxml.save "c:\users\" & lcounter & "_" & _                              forms!menuinicial!lpnfacilitystatus.value & "_" & _                              forms!menuinicial!initialaisle.value & "_" & _                              forms!menuinicial!finalaisle.value & "_dtim_" & _                             format(now(), "ddmmyyyy_hhmm") & ".xml"             end if          next lcounter      end      rs.close     cn.close  end function

i think i'm close, gives me following error @ point: 

rs.openssql, cn

"no value given 1 or more required parameters"

second version:

public function function_xml_test_v1()      dim rs              adodb.recordset     dim cn              adodb.connection     dim myxml           msxml2.domdocument     dim myxslt          msxml2.domdocument     dim ssql            string     dim countstring     string     dim lcounter        integer     dim icount          integer      set myxml = new msxml2.domdocument     myxml.async = false     myxml.preservewhitespace = false      set myxslt = new msxml2.domdocument     myxslt.async = false     myxslt.preservewhitespace = false      set cn = currentproject.connection     set rs = new adodb.recordset      countstring = "select count(*) stock_exe_id"      icount = currentdb.openrecordset(countstring).fields(0).value      msgbox ("icount = " & icount)      rs          lcounter = 1 icount step 1500              msgbox ("lcounter = " & lcounter)              ssql = "select * stock_exe_id" _                     & " stock_exe_id.id between lcounter , (lcounter + 1500)"              rs.open ssql, cn              myxslt.load "c:\path\to\xslt\stock_exe.xslt"             rs.save myxml, adpersistxml              call myxml.transformnodetoobject(myxslt.documentelement, myxml)              myxml.save "c:\path\to\output\" & lcounter & "_dtim_" & _                         format(now(), "ddmmyyyy_hhmm") & ".xml"              rs.close             cn.close          next lcounter      end      msgbox ("passou!")  end function

consider domain aggregate, dcount, in loop range , sql correlated count subquery using table's autonumber field assumed exist in table field, id:

myxslt.load "c:\path\to\xslt\stock_exe.xslt"   ' moved outside loop  lcounter = 1 dcount("*", "stock_exe") step 1500        msgbox ("lcounter = " & lcounter)        ' sql correlated count subquery in clause serving row number       ssql = "select t.* stock_exe t" _                & " (select count(*) stock_exe sub sub.id <= t.id)" _                & " between " & lcounter & " , " & lcounter + 1499           rs.open ssql, cn        ' output raw xml       rs.save myxml, adpersistxml        ' run xslt (no call or .documentelement needed)       myxml.transformnodetoobject myxslt, myxml        ' save output file       myxml.save "c:\path\to\output\" & lcounter & "_dtim_" & _                   format(now(), "ddmmyyyy_hhmm") & ".xml"           rs.close  next lcounter   cn.close  ' clear resources set rs = nothing: set cn = nothing set myxml = nothing: set myxslt = nothing

Comments

Post a Comment

Popular posts from this blog

angular - Ionic slides - dynamically add slides before and after -

hi i'm using ngfor create set of 3 slides while starting in middle i'm guaranteed able slide left or right on start. when slide right can simple listen reachedend , push slide array i'm looping. but have problem adding slide beginning. if same above , use e.g. array.unshift() or spread add item beginning, view think it's on position 0 , snaps view new slide. the code below work animates slide change index 1. slide = [0,1,2] //example loop slidechanged(event) { if(this.slides.isbeginning()){ this.slide = [this.slide[0]-1, ...this.slide]; this.slides.update(); this.slides.slideto(1) } } <ion-slides [initialslide]="1" (ionslidedidchange)="slidechanged($event)"> <ion-slide *ngfor="let item of slide"> <h1>slide {{item}}</h1> </ion-slide> </ion-slides> any appreciated! you can using ionslidenextend , ionslideprevend events slides . please
Read more

minify - Minimizing css files -

i want know how css files can minimized. currently, using external sites css minifier compress css files. however, after removing whitespaces, comments, etc, file sizes reduced 10-15%. how frameworks bootstrap manage make minimized versions kilobytes. as example, css is: body { background-color: #ff0; } the reduction goes 28 bytes 22 bytes other css files have lot more characters still smaller this. actually minifying code means it's remove thing code white space characters new line characters comments block delimiters it reduces amount of code has transferred on web , speed site load fastly.but unreadable format.
Read more

Add a dynamic header in angular 2 http provider -

i have http interceptor built via tutorial https://scotch.io/@kashyapmukkamala/using-http-interceptor-with-angular2 the problem need have dynamic header changes automatically once changes 'mode' in app. service able tell interceptor change header, or have interceptor pull header (which string)from service each request. able throwing away patch method, call http.patch('new header string') set header string. call in service controls 'mode' setting. wondering if there way interceptor pull recent value service each request or if can add method http provider via interceptor? i've tried call service in interceptor each request returns undefined. because creating new instance of service or copying value before service fired , loaded/changed data. i don't want pass header string every http provider call because defeats purpose of having interceptor, id able set once changes or have provider fetch service before makes request. tl;dr : need add autom
Read more