Flytning af data fra Oracle til Access

lige en kommentar:

din struktur (i begge databaser) er ret grim, set med normaliserings briller på.

Over vej at benytte 2 tabeller istedet, med noget ala denne struktur:

film:
film_id
film_name

features:
feat_id
film_id
feat_name

så kan du have ubegrænsede features per film.
Du kunne evt. lave en linktabel imellem, så du istedet for en-til-mange, har mange-til-mange relationer.

rou:

Ved godt strukturene er grimme, men jeg har ikke selv valgt at lave dem sådan.

Der er fra overordnet sted valgt at der ikke skal mere end 4 extrafeatures på - derfor denne struktur.

det er stadigt smartere at normalisere. Du vinder eventuelt også den fordel at du kan genbruge features, fra film til film, således at hver feature kun optræder een gang i databasen, men kan tilknyttes flere film.
Såfremt det er praktisk anvendeligt i din applikation.

Kender godt normaliserings-metoderne - er ikke det jeg vil diskutere her hvis du forstår.

Er bare interesseret i at få de data fra Oracle over i Access.

Kan dette anvendes:

<%
Dim aF(4), LastFilm, Cnt
Dim ConnAccess, ConnOracle

' Setup ADO-connections for ConnAccess/ConnOracle

function GetSQLValue(F)
  if F <> "" then
    GetValue = "'" & F & "'" ' Husk plinger hvis det er tekstfelter
  else
    GetValue = NULL
end function

sub ClearFs
  aF(1) = "" ' En for-løkke kan også anvendes
  aF(2) = ""
  aF(3) = ""
  aF(4) = ""
end sub

sub InsNew(Filmnr)
Dim Values
  Values = CStr(Filmnr)
  Values = Values & "," & GetSQLValue(aF(1)) ' En for-løkke kan også anvendes
  Values = Values & "," & GetSQLValue(aF(2))
  Values = Values & "," & GetSQLValue(aF(3))
  Values = Values & "," & GetSQLValue(aF(4))

  ConnAccess.Execute("insert into access (filmnr,Feature1,Feature2,Feature3,Feature4) values (" & Values & ")")
end sub

' Hent alla data fra Oracle
Set RSO = ConnOracle.Execute("select * from Oracle")

if not RSO.EOF then
  ClearFs
  LastFilm = RSO("filmnr")
  Cnt = 1
  Do while not RSO.EOF
    if (LastFilm <> RSO("filmnr")) then
      InsNew(LastFilm)
      ClearFs ' Nulstil features igen
      Cnt = 1
    end if
    aF(Cnt) = RSO("Feature")
    Cnt = Cnt + 1
    RSO.MoveNext
  Loop
  InsNew(LastFilm) ' Få lige den sidste med
else
  Response.Write("Udtrækket gik ikke godt.")
end if
%>

Tjekker det lige mandag, men det ser da lovende ud.

coltau:

Lige et enkelt tillægsspørgsmål.

Jeg har fået alle filmnumrene over i tabellen, så der er kun tale om en opdatering af posterne.
Kan jeg bare bruge en UPDATE statement i stedet for den INSERT du har skrevet?

Har også lige tjekket det og det ser ikke ud til at virke.

Ved en INSERT statement får jeg kun ét filmnr ud, men jeg får ingen features med.

Hvad går der galt?

Fandt selv en løsning på det.

Vælger bare specifikke værdier og konverterer til Access.

Fx.

sql = "SELECT * FROM oracle_table WHERE felt=1"
Set rs = OraConn.Execute(sql)

do while not (rs.bof or rs.eof)

Filmnr = rs("Filmnr")

strSQL = "UPDATE access_table SET felt='on' WHERE Filmnr="&Filmnr
AcConn.Execute(strSQL)

rs.movenext
loop

Så nu er mine data konverteret