[BC3] [VB6] Een DBList vullen mbv een SQL opdracht

[Verwijderd]

Hallo,

Ik heb een VB6 programma met daarin een form met een DBList.

Nu wil ik deze vullen met de data (het resultaat) van een bepaalde SQL-opdracht.

Bijvoorbeeld deze simpele query:

SELECT * FROM Projectquery ORDER BY Projectid ASC

Het resultaat hiervan (alle orders gesorteerd) moet hij weergeven in die DBList.

Zal wel erg simpel zijn maar ik krijg het nog niet voorelkaar.

Iemand een idee (voorbeeldje?) hoe ik dit voorelkaar krijg?

Thanks.

[Verwijderd]

Please?

[raptorix]

WTF is een DB list

[BC3 Victim]

Probeer het hier eens:

http://search.support.microsoft.com/kb/c.asp?fr=0&SD=GN&LN=EN-US

Hier zijn meestal wel handige tips te vinden.

[Verwijderd]

Op donderdag 10 mei 2001 13:48 schreef raptorix het volgende:
WTF is een DB list

Een Listbox maar dan eentje waarmee je de items uit een database haalt.

[Verwijderd]

Laat maar, het werkt eindelijk.

Deze mag op slot.

[Verwijderd]

Op donderdag 10 mei 2001 13:54 schreef Paling1 het volgende:
Probeer het hier eens:

http://search.support.microsoft.com/kb/c.asp?fr=0&SD=GN&LN=EN-US

Hier zijn meestal wel handige tips te vinden.

Daar had ik al ff gekeken maar kon er niks vinden...
Toch bedankt voor de moeite.

[Verwijderd]

/me set mode +Niet getest maar zoiets moet het zijn...

code:

dim rs as new adodb.recordset
dim conn as new adodb.connection

conn.open "blat blaat blaat connection string komt hier"
rs.open "select id,naam from tblBlaat",db
datacombo1.listfield = "naam"
datacombo1.boundfield = "id"
set datacombo1.rowsource = rs

--Ray

[Verwijderd]

Op donderdag 10 mei 2001 16:54 schreef Yarvieh het volgende:
/me set mode +Niet getest maar zoiets moet het zijn...

code:

dim rs as new adodb.recordset
dim conn as new adodb.connection

conn.open "blat blaat blaat connection string komt hier"
rs.open "select id,naam from tblBlaat",db
datacombo1.listfield = "naam"
datacombo1.boundfield = "id"
set datacombo1.rowsource = rs

--Ray

Heb het nog niet getest maar ziet er goed uit, zal het morgen testen. iig bedankt!

[Verwijderd]

Het werkt helaas niet

Iemand een idee hoe het wel werkt, ik heb getest en de SQL opdracht werkt opzich wel, mbv een msgbox kan ik testen of het werkt, en dat gaat goed alleen om dan vervolgens het resultaat in die DB Listbox te krijgen (of desnoods in een gewone lijst) krijg ik niet voor elkaar.

Wie kan me helpen? ALvast dank.

[Martin Sturm]

Op maandag 14 mei 2001 15:59 schreef TriCAT het volgende:
Het werkt helaas niet

Iemand een idee hoe het wel werkt, ik heb getest en de SQL opdracht werkt opzich wel, mbv een msgbox kan ik testen of het werkt, en dat gaat goed alleen om dan vervolgens het resultaat in die DB Listbox te krijgen (of desnoods in een gewone lijst) krijg ik niet voor elkaar.

Wie kan me helpen? ALvast dank.

In een gewone lijst is helemaal simpel!! gewoon met .add de recordset doorlopen.

[EmilneM]

Even een kick'je' .

Ik heb precies hetzelfde probleem als de topicstarter. Nu selecteer ik via een SQL-statement een aantal records in een DataGrid, waaruit vervolgens een keuze kan worden gemaakt. Dit vind ik echter geen nette oplossing dus wil ik dat de records worden weergegeven in een DataList (DBList/Listbox). Ik krijg dit niet voor elkaar.

Deze code gebruik ik om de datagrid te updaten:

Visual Basic:

Private Sub txtSearch_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim sNaam As String
    Dim sSQL As String
    
    sNaam = txtSearch.Text
    
    If txtSearch = "" Then
        sSQL = "SELECT * FROM Debiteuren ORDER BY Naam"
    Else:
        sSQL = "SELECT * FROM Debiteuren WHERE Naam LIKE '" & sNaam & "%' ORDER BY Naam"
    End If

    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = sSQL
    Adodc1.Refresh
    DataList1.Refresh
 
End Sub

Hoe krijg ik dit voor elkaar in een Listbox of DataList?

[curry684]

EmilneM schreef op 08 October 2003 @ 12:31:
Even een kick'je' .

[/quote]
2 maanden is een 'kickje', maar na ruim 2 jaar is de computer- en programmeerwereld wel dermate veranderd dat ik echt liever een nieuw topic hierover zie, desnoods met link naar deze als de informatie relevant is.

Hiermee voorkom je reacties op mensen die al lang niet meer langskomen e.d.

Deze dicht dus