tabel inlezen met SQL in VBscript

[pieterrrrr]

Hallo allemaal,

Bestaat er een commando om binnen vb script met behulp van sql, binnen access een tabel in te lezen.

Zoiets als:

dim data as variabele

sql = "SELECT * FROM tabel"
data = loadsqldata(sql)

Hartelijk bedankt!

Groetjes Pieter

 

[Guus2005]

VBscript en VBA zijn twee verschillende talen. VBScript of VBS wordt gebruikt in de Windows scripting host. Als je dat bedoeld dan heb je je vraag in het verkeerde forum gepost. Als je stiekum toch VBA bedoeld dan kan je een recordset aanmaken waarin je het resultaat van je query opslaat.

Enjoy!

 

[pieterrrrr]

ik denk dat ik dan VBA bedoel

Ik heb even een scriptje geschreven:

    Dim A As Long
    Dim dbs As Database
    Dim rst As Recordset
        
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("SELECT Woorden.* FROM Woorden;")
    
    

    For i = 0 To 3 Step 1
    Debug.Print rst.Fields(i).Value
    Next i

Ik weet alleen niet hoe ik alle rijen terug moet krijgen, ik krijg namelijk alleen de bovenste rij van mijn tabel terug.

Bedankt!

Groetjes Pieter

 

[Guus2005]

ik denk dat ik dan VBA bedoel

Ik heb even een scriptje geschreven:

    Dim A As Long
    Dim dbs As Database
    Dim rst As Recordset
        
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("SELECT Woorden.* FROM Woorden;")
    
    
    do while not rst.eof
        For i = 0 To 3 Step 1
            Debug.Print rst.Fields(i).Value
        Next i
    loop

Ik weet alleen niet hoe ik alle rijen terug moet krijgen, ik krijg namelijk alleen de bovenste rij van mijn tabel terug.

Bedankt!

Groetjes Pieter

je code een beetje aangepast.

 

[pieterrrrr]

Hartelijk bedankt!!

ik moest alleen nog even Rst.MoveNext in de loop zetten en nu werkt hij!

Groetjes

 

[Guus2005]

Oops