Datenbank Design ändern

[Oliver Six]

"Michel Thomas" <thomas.michel_(at)_triacom.ch> wrote on 26.07.01 14:49:57:

>
>Hallo zusammen 
>
>Ich habe ein problem mit einer Access DB für meine webseite. Die DD 
>habe ich nicht selber erstellt (Rezepte). Die Daten sind so vorhanden 
>
>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 
>
>
>mfG 
>
>The King
>

Hi Thomas,

das sollte mit VBA in einem Modul etwa so funktionieren:

<----- 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
<----- cut here ----->

Ciao Oliver
--
Good programming is 40% experience, 30% skill, 20% RTFM, 10% caffeine, 
and 5% attention to detail. 

Oliver Six, CAHOS GmbH, Cimbernstr. 51, Germany 81377 Muenchen, Phone 
+49 89 71 01 93 40,  Fax +49 89 71 01 93 41 

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