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 | 3439 (3127) | St753 |
| » | [java] Kreiranje word/PDF dokumentov.Oddelek: Programiranje | 956 (827) | driver_x |
| » | Uvoz txt datoteke v excelOddelek: Programska oprema | 5012 (4649) | sebavet |
| » | C# text v .pdfOddelek: Programiranje | 1419 (1208) | japol |
| » | delo z niziOddelek: Programiranje | 2974 (2518) | tx-z |