Ich gestehe es gleich, ich hab keine Ahnung von SQL, und verwende nur den Code den mir Access ausgespuckt hat.
Bisher hatte ich das ganze ohne sql verwendet, allerdings war mir das zu langsam, und nachdem ich ja angeblich nur das Öffnen von DB und RS ändern muss, wollte ich das mal Probieren:
Zitat:
der Codeschnipsel
Dim Connection, Entry
Set Connection = Server.CreateObject("ADODB.Connection")
Set Entry = Server.CreateObject("ADODB.Recordset")
'Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("mitglieder.mdb")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; "&"DBQ="&Server.MapPath("mitglieder.mdb")
IF Kom Then
'Set Entry = Connection.Execute("SELECT * From mitglieder Where Funktion<=50 ORDER BY Funktion")
SET Entry = "SELECT mitglieder.Funktion, mitglieder.Funktionname, mitglieder.Name, mitglieder.Vorname, mitglieder.Dienstgrad, mitglieder.Geb, mitglieder.Beruf, mitglieder.Hobby, mitglieder.Foto, mitglieder.Email, mitglieder.hp FROM mitglieder WHERE (((mitglieder.Funktion)<=50)) ORDER BY mitglieder.Funktion;"
%>
<H2>Kommando:</H2>
<DIV ALIGN="CENTER">
<TABLE BORDER=1>
<TBODY>
<%
While Not Entry.EOF
|
Zitat:
der Fehler
Microsoft VBScript runtime error '800a01a8'
Object required: '[string: "SELECT mitglieder.Fu"]'
/MITGLIEDER.ASP, line 114
|
Zeile 114 ist dieses "While Not Entry.Eof"