Undersøge recordset

tæt på.

if (rs.EOF or rs.BOF) then

så virker det!

Prøv dette

Do while not rs.EoF
  If Not re.EoF Then
    response.write rs.fields("kunde")
  End If
  rs.MoveNext
Loop

Hvis der så er noget i din select skulle det gerne vises!

SQLQuery = "SELECT kundeid FROM kunder WHERE kunde= '"  & request("kunde") & "';"
Set RS=Connect.Execute(SQLQuery)
        If (RS.BOF Or RS.EOF) Then
        Response.Write("der er ingen kunder der matcher")
Else

osv....ovs....

Hm!
Prøvede Stoffers forslag - jeg får bare en irriterende fejlmeddelelse om, at objektet ikke understøtter denne metode! :-(

<%
    dim Path, Connect, RS   

    Set Connect = Server.CreateObject("ADODB.Connection")
    Path = "DBQ=" & server.mappath("/stien_til_din_database_og_database.mdb")
    Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & Path

SQLQuery = "SELECT kundeid FROM kunder WHERE kunde= '"  & request("kunde") & "';"
Set RS=Connect.Execute(SQLQuery)
        If (RS.BOF Or RS.EOF) Then
        Response.Write("der er ingen kunder der matcher")
Else


   
%>


det virker!

Du kunne også lave følgende lille trick:

SQL = "select count(*) as antal from kunder where kunde='"  & request("kunde") & "';"

Set RS=Connect.Execute(SQLQuery)

så kan du lave en

antal = rs("antal")
response.write "Der er " & antal & "der matcher"

100% og jeg har det bruger det selv med min PWS - så det er et andet sted fejlen ligger

-----> lrj

ja, eller hvis du bruger Recordset

kan du bruge RS.RecordCount

Hvis det ikke virker så må jeg jo bare se din kode......

stoffer> Men det er vist lidt skummelt - når man laver en connect.execute(sql) får man et recordset tilbage - men det er ikke magen til hvis man laver et recordset og så udfører sql sætningen derfra. Det giver i hvert fald nogle sjove fejl...

if rs.eof then ' ingen poster
..vil altid afgøre om et recordset er tomt eller ej (hvis det er det første der bliver udført efter selve eksekveringen af SQL'en). Hvis det ikke giver noget brugbart resultat, er der noget galt med din SELECT.

Og det er et faktum :o).

lrj ---->

Ja det har du ret i - men det kan lade sig gøre :-)

Virker stadig ikke. Nu får I koden - så kan I måske bedre gennemskue, hvad der er galt:

Dim connect, rs, id
Set connect = Server.CreateObject("ADODB.Connection")
id = Session("CustomerID")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("EDBoeger.mdb")
rs = Connect.execute("Select * from Kunder where kundenr= " & id)
//Id er et tal

'if ---her skal det stå --- then%>

Skriver jeg:

rs.eof - så får jeg en fejlmeddelelse om, at den metode ikke kan bruges på dét objekt.
:-(

Prøv:

Virker stadig ikke. Nu får I koden - så kan I måske bedre gennemskue, hvad der er galt:

Dim connect, rs, id
Set connect = Server.CreateObject("ADODB.Connection")
id = Session("CustomerID")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("EDBoeger.mdb")

SQL = "Select * from Kunder where kundenr= " & id
Set rs = Server.Createobject("ADODB.Recordset")
rs.open SQL, connect, 3, 3

herefter skulle

if rs.eof gerne kunne bruges.

Hvis det IKKE virker, så prøv at lægge en rs.MoveFirst ind før if rs.eof

Grunden til at du får den fejlmeddelse er nok, at du aldrig specifikt opretter et ægte recordset

Prøv at lade være med at dimme rs og brug i stedet "set rs = blabla".

Dim connect, rs, id
Set connect = Server.CreateObject("ADODB.Connection")
id = Session("CustomerID")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("EDBoeger.mdb")
set rs = Connect.execute("Select * from Kunder where kundenr= " & id)
//Id er et tal

'if ---her skal det stå --- then%>

*** Gør lige opmærksom på at stoffers ide er at sætte et "set" ind før rs = Connect........

(for de der ikke lige ummidelbart kan se hvor han vil hen)

Tja..jeg var lige ved at afvise stoffers svar for at tildele point´ene til fey.dk - for det eneste der skulle til var at sætte "set" foran rs = connect osv. - så virkede det glimrende. Men så gik jeg tilbage i kommentarerne - og stoffer havde rent faktisk sat det "set" ind først - det så jeg bare ikke i min desperation og irritation. Så nu vil jeg med retfærdigheden for øje give dig pointene, Stoffer. Og tak for hjælpen til alle!

takker ;-)

------>til GORBA
<%
'hvis du skal kalde et felt med den sætning jeg havde længere oppe kunne du 'f.eks. sige Felt = RS("Dit_felt_i_Access_tabelle")




'hvis du så skal have alle felter skrevet ud siger du:

do until RS.EOF

Felt = RS("Dit_felt_i_Access_tabelle")
%>
<%=felt%>
<%
  RS.MoveNext
  %>
<%
Loop

  RS.Close
  %>