03. september 2003 - 09:42Der er
3 kommentarer og 1 løsning
Vise databaseresultater i en combobox
Jeg skal have vist databaseresultater i en combobox. Fx. en "select navn from brugertabel" - resultatet af dette skal vises i en dropdown-combobox. Har prøvet stort set alt hvad der står i lærerbøgerne men det virker ikke (må have overset en enkelt lille "bagatel"). Kan du skrive en guide fra start til slut kunne det være rigtig godt. Gerne ved brug af komponenten oledbdataadapter, men alle løsninger modtages med kyshånd. Det haster rimeligt meget da det skal bruges i en hovedopgave.
Kan du få det her til at virke (skrevet fra hukommelsen, så måske enkelte slå/syntaksfejl):
' Først alle erklæringerne Dim MitDataset as new OleDBDataset() Dim MinConnString as string = "Her skal din connection string til databasen stå) Dim MinSQL as string = "SELECT id, navn FROM brugertabel;" Dim Minconn As New OleDbConnection(MinConnString ) Dim MinAdapter As New OleDbDataAdapter() MinConn.Open
'Først angiver du, hvilke data adapteren skal forbinde til MinAdapter.SelectCommand = new OleDbCommand(MinSQL, MinConn) 'Dernæst hvor den skal gøre af disse data - 'her bliver de "skubbet" ind i MitDataset. 'Dvs: Data kommer fra database bestemt af MinConnString ' Data udvælges af MinSQL ' Forbindelsen mellem programmet og dataene etableres vha ' MinAdapter, der er af typen OleDB ' Dataene gøres tilgængelige i programmet vha. MitDataset MinAdapter.Fill(MitDataset)
'Tilsidst skal dataene tilknyttes til ComboBoxen. 'Først sættes MinComboBox.DataSource 'til den første (og eneste) tabel i MitDataSet MinComboBox.DataSource=MitDataset.Tables(0) 'Dernæst skal du bestemme hvilken tabelkolonne, 'der skal vises for brugeren i Comboen MinComboBox.DisplayMember="navn" 'Endelig skal du bestemme, hvilken tabelkolonnes værdi Comboen gemmer 'MinComboBox.SelectedValue, når brugeren vælger et element MinComboBox.ValueMember="id"
Du er bare en sweetheart!!!!!! Lortet virker!! Jeg ved ikke om jeg skal græde eller le!! Da jeg lagde koden over i en knap så virkede det! Takker! Du er dagen mand!
Vil dog lige ligge den rettelse ind som fik det til at køre:
Dim Minconn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & MinConnString)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.