Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VBA: Access tietokannan sisältä sarakkeen nimen haku

Rautakivi [04.02.2006 16:15:13]

#

Minulla on koodissa tämä:
CBoxWeapon1.Items.Add(dsmodel1Wargear.Tables("Model1Wargear").Rows(indexnro).Item("Spear"))

Tarkoitus on saada Spear sarakkeen nimi CBoxWeapon1 comboboxiin. Nythän tuo koodi hakee ko. sarakkeen arvon ko. riviltä, joka minun tapauksessani on True/False. Tiedän, että saisin sen CBoxWeapon1.Items.Add("Spear") tavalla, mutta pointtina on se, että se tulisi suoraan tietokannasta.

neau33 [06.02.2006 19:22:42]

#

Moikka Rautakivi!

VB:llä

Set dbs = OpenDatabase("polku\tiedosto.mdb")
Set rst = dbs.OpenRecordset("Taulu", dbOpenSnapshot) 'Taulu tai kysely
 If Not rst.RecordCount = 0 Then rst.MoveFirst
 dbs.TableDefs.Refresh
 For Each tdf In dbs.TableDefs
  If tdf.Name = "Taulu" Then
   For Each fld In tdf.Fields
    Combo1.AddItem fld.Name
'Jos haluut vaan sen "Spear" niin korvaa toi yläpuolinen rivi tolla alapuolisella
'If fld.Name = "Spear" Then Combo1.AddItem fld.Name: Exit For
   Next fld
    tdf.Fields.Refresh
  End If
rst.Close
Set dbs = Nothing

Toivottavasti tästä on apua...

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta