Hjælp til Hentning af data via ADODB

Dim db_connection as ADODB.Connection
set db_connection = new ADODB.Connection

dim SQL_STRING as string: SQL_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=database.mdb;"

db_connection.Open SQL_STRING

dim rs as ADODB.Recordset
set rs = db_connection.Execute("din sql streng her")

while not rs.eof
    ' gør noget her
    rs.moveNext()
wend
rs.Close
db_connection.Close
set rs = nothing
set db_connection = nothing

Dette kode burde virke.. men skriv hvis der er problemer

Har lavet den sådan her:

Dim DB_connection As ADODB.Connection
Set DB_connection = New ADODB.Connection

Dim SQL_STRING As String: SQL_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=database.mdb;"

DB_connection.Open SQL_STRING
Set rsListeKompensatorer = DB_connection.Execute("Select distinct OrderNumber from order")

List1.Clear

Do Until rsListeKompensatorer.EOF
    List1.AddItem rsListeKompensatorer("NemTallyNo")
    rsListeKompensatorer.MoveNext
Loop

rsListeKompensatorer.Close
DB_connection.Close
Set rsListeKompensatorer = Nothing
Set DB_connection = Nothing

Men det virker ikke endnu...

Kan det være noget med stien til selve databasen at gøre???

Den skriver:
Run-time error'-2147217900(80040e14)':
Der er en syntaksfejl i FROM-delsætningen.

Hvor kører projektet fra? og hvor ligger databasen???

Ellers prøv lige at lave en direkte query i selve Access-databasen!

databasen ligger i samme sti....

en hvorfor en?? Query?

ok... på dansk er det en forespørgelse(eller hvordan det lige staves) :-)

Ok... hvorfor kan jeg ikke bare bruge "Select distinct OrderNumber from order"?

forespørgelse skal indeholde den sql-streng, det er for at checke om det er noget i selve den forespørgelse det er galt med

Det underlige er at denne her virker:

Set rsPipeDN = New ADODB.Recordset
SQL = "SELECT distinct PipeDN from data"
rsPipeDN.Open SQL, SQL_String

comboDiameter.Clear

Do Until rsPipeDN.EOF
    comboDiameter.AddItem rsPipeDN("PipeDN")
    rsPipeDN.MoveNext
Loop

rsPipeDN.Close
Set rsPipeDN = Nothing

prøv lige om følgende virker "SELECT DISTINCT [OrderNumber] from [Order]

Doooh...... nu ved jeg godt hvad fejlen er... :-) Det opstår fordi at JET-enginen misforstår sql-sætningen.

Sidste del af sqlen er "from order" og order element kan jo bruges under sorteringen af et select.

derfor bør korrekt syntax være "SELECT DISTINCT [OrderNumber] from [ORDER]"

Yes yes... den med [] virker...

Kan du give en begrundelse???

Det skulle gerne allerede stå ligeneden under... :-)

Ok... på den måde...

Jeg bruger denne her nu, den kan jeg lidt bedre lide:

Set rsListeKompensatorer = New ADODB.Recordset
SQL = "SELECT DISTINCT [OrderNumber] from [Order]"
rsListeKompensatorer.Open SQL, SQL_String

List1.Clear

Do Until rsListeKompensatorer.EOF
    List1.AddItem rsListeKompensatorer("OrderNumber")
    rsListeKompensatorer.MoveNext
Loop

rsListeKompensatorer.Close
Set rsListeKompensatorer = Nothing
Set DB_connection = Nothing

Ja det er jo værd sin smag. Jeg kan godt lide den anden version, fordi at jeg ofte kun skabe en forbindelse til DB'en og derefter bruges jeg de recordset's jeg har behov for. :-)