Forum » Programiranje » Access: Kako razbiti na tabele
Access: Kako razbiti na tabele
dronyx ::
Imam tabelo iz nekega programa, kjer so posamezna polja "multivalue", ločeno z vejicami. Skratka, namesto relacijsko povezanih tabel, je vse skupaj v eni tabeli. Primer:
Ime:Janez
Priimek:Novak
Skupina1: A1, A2, A3
Skupina2: B1, B5
V relacijski bazi sta polji Skupina1 in Skupina 2 jasno posebni tabeli, ki se povežeta prek vmesne tabele in ključev oziroma šifer. Zanima pa me, na kakšen način se bi dalo najlažje v kakšnem Accessu razbiti osnovno tabelo v relacijsko povezane tabele, primerne za SQL poizvedbe? Opcija ni ročno programiranje, ker je takšnih tabel zelo veliko in tako ne pridem nikamor.
Ime:Janez
Priimek:Novak
Skupina1: A1, A2, A3
Skupina2: B1, B5
V relacijski bazi sta polji Skupina1 in Skupina 2 jasno posebni tabeli, ki se povežeta prek vmesne tabele in ključev oziroma šifer. Zanima pa me, na kakšen način se bi dalo najlažje v kakšnem Accessu razbiti osnovno tabelo v relacijsko povezane tabele, primerne za SQL poizvedbe? Opcija ni ročno programiranje, ker je takšnih tabel zelo veliko in tako ne pridem nikamor.
- spremenil: dronyx ()
sajmon ::
dodaj spodnjo funkcijo, kjer so parametri polje, kjer imaš združen niz, ločilo v nizu ter kateri del niza naj ti vrne.
Glede na tvojo strukturo podatkov razbij najprej glede na ločilo dvopičje, v naslednjem koraku pa še razbij skupine glede na vejico.
Še funkcija:
Public Function SplitUpX(iText, pos, locilo)
Dim x() As String
If (Len(iText)) > 0 Then
x = Split(iText, locilo)
SplitUpX = Trim(x(pos - 1))
Else
SplitUpX = iText
End If
End Function
Glede na tvojo strukturo podatkov razbij najprej glede na ločilo dvopičje, v naslednjem koraku pa še razbij skupine glede na vejico.
Še funkcija:
Public Function SplitUpX(iText, pos, locilo)
Dim x() As String
If (Len(iText)) > 0 Then
x = Split(iText, locilo)
SplitUpX = Trim(x(pos - 1))
Else
SplitUpX = iText
End If
End Function
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | Elektronsko podpisovanje pdf dokumentovOddelek: Pomoč in nasveti | 3486 (3174) | St753 |
» | [java] Kreiranje word/PDF dokumentov.Oddelek: Programiranje | 967 (838) | driver_x |
» | Uvoz txt datoteke v excelOddelek: Programska oprema | 5033 (4670) | sebavet |
» | C# text v .pdfOddelek: Programiranje | 1436 (1225) | japol |
» | delo z niziOddelek: Programiranje | 2984 (2528) | tx-z |