Forum » Programiranje » Access: Kako razbiti na tabele
Access: Kako razbiti na tabele
![](https://static.slo-tech.com/stili/bel_rudis.png)
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 ()
![](https://static.slo-tech.com/stili/avatar_gray.gif)
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 | 3382 (3070) | St753 |
» | [java] Kreiranje word/PDF dokumentov.Oddelek: Programiranje | 933 (804) | driver_x |
» | Uvoz txt datoteke v excelOddelek: Programska oprema | 4901 (4538) | sebavet |
» | C# text v .pdfOddelek: Programiranje | 1395 (1184) | japol |
» | delo z niziOddelek: Programiranje | 2942 (2486) | tx-z |