/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
Benjamin...
700
10
tom.kise
610
Tabeller til listbox
Fra :
Hans Rikartsen
Dato :
13-01-01 19:00
Hei!
Jeg har lagd et program som henter fram tabellnavn fra Acccess-databaser,
slik at disse vises i en list-box. Er det noen som har en løsning på hvordan
jeg unngår å få med alle de skjulte "mSys"-tabellene i list boxen? Koden
følger her:
Public Function list_Tabeller()
Dim DB As Database
Dim WS As Workspace
Dim TD As TableDef
Dim Max As Long
Dim i As Integer
List1.Clear
Set WS = DBEngine.Workspaces(0)
Set DB = WS.OpenDatabase(txtDatabase)
Max = DB.TableDefs.Count
For i = 0 To Max - 1
Set TD = DB.TableDefs(i)
List1.AddItem TD.Name
Next i
DB.Close
End Function
Bjørn Jeberg (
14-01-2001
)
Kommentar
Fra :
Bjørn Jeberg
Dato :
14-01-01 20:42
Hans Rikartsen <rikrikar@online.no> wrote in message
news:NG086.1772$wt2.6569@news1.oke.nextra.no...
> Hei!
> Jeg har lagd et program som henter fram tabellnavn fra Acccess-databaser,
> slik at disse vises i en list-box. Er det noen som har en løsning på
hvordan
> jeg unngår å få med alle de skjulte "mSys"-tabellene i list boxen? Koden
> følger her:
>
>
> Public Function list_Tabeller()
>
> Dim DB As Database
> Dim WS As Workspace
> Dim TD As TableDef
> Dim Max As Long
> Dim i As Integer
>
> List1.Clear
>
> Set WS = DBEngine.Workspaces(0)
>
> Set DB = WS.OpenDatabase(txtDatabase)
>
> Max = DB.TableDefs.Count
>
> For i = 0 To Max - 1
>
> Set TD = DB.TableDefs(i)
>
> List1.AddItem TD.Name
>
> Next i
>
> DB.Close
>
> End Function
Du kan checke det med TD.Attributes.
--
Bjørn Jeberg
LabSoft@vip.cybercity.dk
Henning Forgaard (
16-01-2001
)
Kommentar
Fra :
Henning Forgaard
Dato :
16-01-01 01:29
Måten jeg har gjort det på er ganske enkel.
if not ucase(left$(td.name,4)) = ucase("msys") then
list1.additem td.name
endif
"Hans Rikartsen" <rikrikar@online.no> wrote in message
news:NG086.1772$wt2.6569@news1.oke.nextra.no...
> Hei!
> Jeg har lagd et program som henter fram tabellnavn fra Acccess-databaser,
> slik at disse vises i en list-box. Er det noen som har en løsning på
hvordan
> jeg unngår å få med alle de skjulte "mSys"-tabellene i list boxen? Koden
> følger her:
>
>
> Public Function list_Tabeller()
>
> Dim DB As Database
> Dim WS As Workspace
> Dim TD As TableDef
> Dim Max As Long
> Dim i As Integer
>
> List1.Clear
>
> Set WS = DBEngine.Workspaces(0)
>
> Set DB = WS.OpenDatabase(txtDatabase)
>
> Max = DB.TableDefs.Count
>
> For i = 0 To Max - 1
>
> Set TD = DB.TableDefs(i)
>
> List1.AddItem TD.Name
>
> Next i
>
> DB.Close
>
> End Function
>
>
Hans Rikartsen (
16-01-2001
)
Kommentar
Fra :
Hans Rikartsen
Dato :
16-01-01 22:52
Jeg takker så MEGET !! Jeg prøvde mye, men det var altså løsningen!!!
Henning Forgaard <henning@hfdata.no> wrote in message
news:vBM86.6285$wt2.58791@news1.oke.nextra.no...
> Måten jeg har gjort det på er ganske enkel.
>
> if not ucase(left$(td.name,4)) = ucase("msys") then
> list1.additem td.name
> endif
>
>
> "Hans Rikartsen" <rikrikar@online.no> wrote in message
> news:NG086.1772$wt2.6569@news1.oke.nextra.no...
> > Hei!
> > Jeg har lagd et program som henter fram tabellnavn fra
Acccess-databaser,
> > slik at disse vises i en list-box. Er det noen som har en løsning på
> hvordan
> > jeg unngår å få med alle de skjulte "mSys"-tabellene i list boxen? Koden
> > følger her:
> >
> >
> > Public Function list_Tabeller()
> >
> > Dim DB As Database
> > Dim WS As Workspace
> > Dim TD As TableDef
> > Dim Max As Long
> > Dim i As Integer
> >
> > List1.Clear
> >
> > Set WS = DBEngine.Workspaces(0)
> >
> > Set DB = WS.OpenDatabase(txtDatabase)
> >
> > Max = DB.TableDefs.Count
> >
> > For i = 0 To Max - 1
> >
> > Set TD = DB.TableDefs(i)
> >
> > List1.AddItem TD.Name
> >
> > Next i
> >
> > DB.Close
> >
> > End Function
> >
> >
>
>
Søg
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408847
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.