RE: Datenbank Design ändern

[mysql_(at)_lists.phpcenter.de]

> 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

Hallo, Thomas,

"rs!menge1" beschreibt das Feld mit namen, du kannst aber auch rs(2)
ansprechen.

die Schleife sähe dann etwa so aus:

while not rs.eof
  for I = 0 to 19 do
    s = "insert into new (id,menge,zutat,stueck) values ("
    s = s + str(rs(1)) + "," + str(rs(1+I*3)) + ", '" + _
    rs(2+I*3)+ "', '" + rs(3+I*3)) + "')"
    currentdb.execute s
  next
  rs.movenext
wend

ciao!
Kai

-- 
GMXler aufgepasst - jetzt viele 1&1 New WebHosting Pakete ohne
Einrichtungsgebuehr + 1 Monat Grundgebuehrbefreiung!
http://puretec.de/index.html?ac=OM.PU.PU003K00717T0492a

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