RE: Datenbank Design ändern

[Michel Thomas]

Hallo zusammen
>ID menge1 zutat1 einheit1 menge2 zutat2 einheit2 
>1 10 gurken kg 100 Kartoffeln stück 
>wie kriege ich das nun AUTOMATISCH in diese from 

>ID menge zutat einheit 
>1 10 gurken kg 
>1 1000 kartoffeln stück 

><----- cut here ----->
>sub convert()
>
>  dim rs as recordset
>  dim s as string

>  set rs = currentdb.openrecordset ("select * from old")
>  while not rs.eof
>    s = "insert into new (id,menge,zutat,stueck) values ("
>    s = s + str(rs!id) + ","
>    s = s + str(rs!menge1) + ","
>    s = s + "'" + rs!zutat1 + "',"
>    s = s + "'" + rs!einheit1 + "')"
>    currentdb.execute s
>    s = "insert into new (id,menge,zutat,stueck) values ("
>    s = s + str(rs!id) + ","
>    s = s + str(rs!menge2) + ","
>    s = s + "'" + rs!zutat2 + "',"
>    s = s + "'" + rs!einheit2 + "')"
>    currentdb.execute s
>    rs.movenext
>  wend
>  rs.close
>end sub
erstmals Danke !!
Ich kann leider kein VBA bzw. zuwenig :) das ganze soll bis 20 gehen das
kann man sicher auch irgendwie mit einer Schlaufe lösen oder?

mfG

Thomas

---
!!NEU!!
Fragen und Antworten zu MySQL und dieser Liste unter
-->>  http://www.4t2.com/mysql