/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
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
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408903
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste