Vis Count fra Tabel1, Tabel2, Tabel3

Kan du ikke bare lave 3 forskellige select og så smide dem i en variable ?

.
.
strSQL = "Select Count(*) As Antal From Tabel1!
    Set rs = Conn.Execute(strSQL)

      Response.Write rs("Antal.Tabel1")

.
.
strSQL = "Select Count(*) As Antal From Tabel2!
    Set rs = Conn.Execute(strSQL)

      Response.Write rs("Antal.Tabel2")
.
.

SELECT SUM(N) FROM (
  SELECT COUNT(*) AS N FROM A
  UNION
  SELECT COUNT(*) AS N FROM B
  UNION
  SELECT COUNT(*) AS N FROM C
)

_darkstar_<< hvad skal jeg så skrive i rs("hvad skal der så stå her")

Prøv med N

har prøvet

Kan du så ikke lave tre forskellige sql forespørgsler, og lægge dem sammen i en variabel bagefter?

Det er vel op til dit selv!
SELECT SUM(N) AS wootever FROM BLA BLA

SELECT SUM(N) AS wootever FROM (
  SELECT COUNT(*) AS N FROM A
  UNION
  SELECT COUNT(*) AS N FROM B
  UNION
  SELECT COUNT(*) AS N FROM C
)

Noget i den her retning, som x4all dk skriver:

  strSQL = "Select Count(*) As Antal From Tabel1"
  strSQL1 = "Select Count(*) As Antal1 From Tabel2"
  strSQL2 = "Select Count(*) As Antal2 From Tabel3"
  Set RS = Conn.Execute(SQLStr)
  Set RS1 = Conn.Execute(SQLStr1)
  Set RS2 = conn.Execute(SQLStr2)

  If Not RSDatabase.EOF Then
        tabel1 = RS("Antal")
    tabel2 = RS("Antal1")
    tabel3 = RS("Antal2")
        ialt = tabel1+tabel2+tabel3
...
<% =ialt %>

strSQL = "Select Count(*) As Antal From Tabel1"
  strSQL1 = "Select Count(*) As Antal1 From Tabel2"
  strSQL2 = "Select Count(*) As Antal2 From Tabel3"
  Set RS = Conn.Execute(strSQL)
  Set RS1 = Conn.Execute(strSQL1)
  Set RS2 = conn.Execute(strSQL2)

  If Not RSDatabase.EOF Then
    tabel1 = RS("Antal")
    tabel2 = RS("Antal1")
    tabel3 = RS("Antal2")
    ialt = tabel1+tabel2+tabel3
...
<% =ialt %>

de skal ikke lægges sammen, de skal vises ver for sig.

Jeg bruger den sådan lige nu, men hvis der var en beder måde at gørre det på.

<%
  DataPath = "F:\wwwroot\css\Kategorier.mdb"
%>

<%
  Public Sub View_Kategorier()

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath

      Response.Write Kat_Count("tabel1", Conn, rs)
      Response.Write Kat_Count("tabel2", Conn, rs)
      Response.Write Kat_Count("tabel3", Conn, rs)
      Response.Write Kat_Count("tabel4", Conn, rs)
      Response.Write Kat_Count("tabel5", Conn, rs)

    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing
  End Sub
%>

<%
  Private Function Kat_Count(strFrom, objConn, objrs)
    strSQL = "SELECT COUNT(*) AS Antal FROM " & strFrom
    Set objrs = objConn.Execute(strSQL)
    Kat_Count = objrs("Antal")
  End Function
%>

Når, i kan dele points