Antal Access DB Entries

SQL = "select count(*) from tabel"
Set RS = Conn.Execute
Response.Write("Der er " & RS(0) & " antal linier i tabellen.")

strSQL = "SELECT COUNT(*) AS antal,MAX(id) AS maxid"
Set objRs = objConn.Execute(strSQL)

objRs("antal")
objRs("maxid")

//>Rune

En fejl i tilbagemeldingen 
Wrong number of arguments or invalid property assignment: 'Execute'

Ser sådan ud:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/vin.mdb")
Conn.Open DSN

SQL = "select count(*) from smagning"
Set RS = Conn.Execute
Response.Write("Der er " & RS(0) & " antal linier i tabellen.")

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%></body>

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/vin.mdb")
Conn.Open DSN

SQL = "select count(*) from smagning"
Set RS = Conn.Execute(SQL)
Response.Write("Der er " & RS(0) & " antal linier i tabellen.")

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%></body>

//>Rune

er der ikke lidt galt her?
SQL = "SELECT Count(*) As Antal FROM smagning"
Set Rs = Conn.Execute(Sql)
Response.Write("Der er " & RS("Antal") & " antal linier i tabellen.")

Når man anvender funktioner i en SQL-sætning er det normalt DB der bestemmer navnet på feltet i recordsættet.

Select Count(*) from tabel

Vil returnere netop en record med en kolonne og Databasen bestemmer hvad kolonnen kommer til at hedde. Derfor bør man bruge tal i stedet for feltnavne i de tilfælde man bruger funktioner.

RS(0) ' Første felt
RS(1) ' Næste felt