Hallo Leute,
hab ein "kleines" Problem mit ner Highscore-Liste. Hab hier nen Code aus dem Netz und wollt mal fragen wie ich den Select-Befehl richtig eingebe, da immer ein Fehler auftritt. "Select --> verlangt Ausdruck).

Weis nichtmal ob ich ihn so nehmen kann, bin nämlich langsam am verzweifeln, da ich schon bestimmt ne Woche damit zubringe ne Datenbankanbindung zu erstellen und die Datenbank so abzufragen, dass nur ne Highscoreliste ausgegeben wird. Und hab kommenden Dienstag die Präsentation in der Schule.

Hab ne Datenbankanbindung mit dem ADODC-Element erstellt, die Tabelle wird in nem DataGrid ausgegeben. Soweit funktioniert auch alles, kann Datensätze erstellen, verändern, löschen . . . . . Das bekomme ich hin und verstehs auch, aber wie ich nun ne Abrage dieser Tabelle erstelle entzieht sich meines Geistes.

Ich hab mir das so gedacht:

Name in Textfeld eingetragen, Punkte aus dem Labelfeld übernommen und durch Command-Button in die Tabelle eingetragen -> im gleichen Control wird eine Auswahlabfrage gestartet um die Tabelle nach nach Punkten absteigend zu sortieren und nur den Rang 1.-10. wird anzeigen.


Private Sub cmd_OK_Click()
Dim cnn As ADODB.Connection
Set cnn = CreateObject("Adodb.connection")
cnn.Open "Provider=microsoft.jet.oledb.4.0, data source=& appl path &\score.mdb;"

Dim Rst As Recordset
====> set Rst = cnn.Execute (select * from score order by punkte) <====

Rst.MoveFirst

Do While Not Rst.EOF
Debug.Print Rst.Fields("rang,name,punkte").Value
Rst.MoveNext
Loop

Rst.Close
cnn.Close

Ich hoffe ihr könnt mir helfen, vielleicht hab ich auch nen total falschen Ansatz.
Achso, weis nicht ob es wichtig ist, aber der Primärschlüssel ist auf Rang gesetzt und dies ist ein Autowert.

Danke schonmal im vorraus.

Fehlen evtl. nur die Anführungszeichen ?
cnn.Execute (select * from score order by punkte) -> cnn.Execute ("select * from score order by punkte")

Danke dir Duke

das war richtig, aber jetzt muckt er rum wegen Laufzeitfehler 13 (Typen seien unvertäglich). Die Variable des Recordsets ist an der Stelle auf "Nothing". Stimmt da was mit der Tabelle nicht?

Ich mach das immer so (ist ein Auszug aus meiner Verbindungsklasse).
Das Recordset "rs" muss vorher eine Instanz mit "New" bekommen.
m_cnConnection ist natürlich die bestehende DB-Verbindung

EDIT:
Vielleicht ist das Problem bei dir durch ändern von
"Dim Rst As Recordset" in "Dim Rst As ADODB.Recordset"
behoben

Danke dir Duke.

Hast mir sehr geholfen. Habs als ADODB.Recordset deklariert. danach gings wenn ichs in ner ListBox ausgebe. Reicht mir für die Präsentation der Rest kann warten bis zu den Ferien

MFG SERAFIM