Koma gescheiden tekenreeks

[Marcel57]

Beste Mensen,

In een kolom staan een aantal gegevens gescheiden door komma's

B.v.
501,0,4.047,0

Eigenlijk moeten dit de volgende gegevens opleveren in vier kolommen

BasisAantal Vervolgeenheden BasisPrijs Vervolgeenheidprijs
501 0 € 4,047 € -


Weet iemand de oplossing?

Alvast bedank voor de moeite

 

[Guus2005]

Mogelijke oplossing

public function SplitFieldAndInsert(strKommaSepValue as String) as Boolean

    dim arr() as double

    arr = split(strkommasepvalue,",",)

    currentdb.Execute "Insert into table1 (field1, field2,field3) VALUES (" & arr(0) & ","  & arr(1) & ","  & arr(2) & ")"
end function

Je moet deze functie aanroepen met

if SplitFieldAndInsert(rst.field(0)) then
  'Succesvol geinsert.
else
  'Er ging iets mis.
endif