At finde ud af hvor mange rows der er i en db

Dim strConnection As String = din connection string
Dim strSQL As String = "din sql "
Dim objConnection As New SqlConnection(strConnection)
Dim objCommand As New SqlCommand(strSQL, objConnection)
Dim Resultat as Integer = 0
Try
objConnection.Open()
Resultat = objCommand.ExecuteScalar()
Catch Ex as Exception
    System.Web.HttpContext.Current.Response.Write(Ex.Message)
Finally
objConnection.Close()
objConnection.Dispose()

Kan ikke se hvordan det skulle komme til at virke. Resultat erklære du og sætte til 0 og så skulle man kunne få værdien af rows ud af det ?

Okay
Kender du ExecuteScalar? Den returnere kun et resultat. Det kan du bruge hvis din sql ser ud som følgende:
SELECT Count(*) as Antal FROM Brugere WHERE Navn='Hans' AND Alder=31

Hvis du indsætter dette, vil Result komme til at indeholde antallet af personer der hedder Hans og er 31 år gammel.

Har ikke løst det endnu, er der en der kan sige hvad jeg gør galt. Ligger lige koden ved det går galt ved "Dim strSQL As String = SELECT Count(*) as Antal FROM Brugere WHERE Navn=Hans AND Alder=31" men ved ikke hvorfor.

  Dim connectionStr as string  ' Forbindelses-streng til databasen
  Dim strSQL As String = SELECT Count(*) as Antal FROM Brugere WHERE Navn=Hans AND Alder=31
  Dim con as OledbConnection    ' Forbindelse-objekt til databasen
  Dim objCommand As New SqlCommand(strSQL, con)
  Dim Resultat as Integer = 0

  ' Opbyg connectionStr
  connectionStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
  connectionStr += Request.PhysicalApplicationPath + "BellingeTennis.mdb"

  ' Skab forbindelses-objekt udfra connectionStr
  con = New OledbConnection(connectionStr)




  ' Opbyg SQL-kommando

Try
  con.Open()              ' Åben forbindelsen til databasen
Resultat = objCommand.ExecuteScalar()
Catch Ex as Exception
    System.Web.HttpContext.Current.Response.Write(Ex.Message)
Finally
  con.Close()            ' Luk forbindelsen
  con.Dispose()
End Sub

Dim strSQL As String = "SELECT Count(*) as Antal FROM Brugere WHERE Navn='Hans' AND Alder=31"

Tak så kommer den med (Type 'SqlCommand') is not defined.

Håber ikke det gør noget at jeg skal have det skåret ud i pap

Fandt ud af at der skulle stå: Dim objCommand As OleDbCommand = New OleDbCommand(strSQL, con)

Nu kommer den med denne fejl på siden når Sub GemIDatabase() bliver kørt.
"ExecuteScalar: Connection property has not been initialized."



Sub GemIDatabase()

  Dim connectionStr as string  ' Forbindelses-streng til databasen
  Dim strSQL As String = "SELECT Count(*) as Antal FROM Brugere WHERE Navn='Hans' AND Alder=31"
  Dim con as OledbConnection    ' Forbindelse-objekt til databasen
  Dim objCommand As OleDbCommand = New OleDbCommand(strSQL, con)
  Dim Resultat as Integer = 0

  ' Opbyg connectionStr
  connectionStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
  connectionStr += Request.PhysicalApplicationPath + "BellingeTennis.mdb"

  ' Skab forbindelses-objekt udfra connectionStr
  con = New OledbConnection(connectionStr)




  ' Opbyg SQL-kommando

Try
  con.Open()              ' Åben forbindelsen til databasen
Resultat = objCommand.ExecuteScalar()
Catch Ex as Exception
    System.Web.HttpContext.Current.Response.Write(Ex.Message)
Finally
  con.Close()            ' Luk forbindelsen
  con.Dispose()
  End Try


End Sub




Sub Button1_Click(sender As Object, e As EventArgs)
GemIDatabase()
End Sub

guidmaster:  Du kan skrive svar hvis du vil have points :)