SQL Datensätze zählen

  • VB.NET

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von NoWz.

    SQL Datensätze zählen

    Hallo Wissende!

    Ich habe gesucht und probiert und (wohl die falschen) Fachbücher gewälzt, nun ist es an euch. :)

    Ich habe eine SQL Abfrage geschrieben und lasse das Ergebnis mit dem Reader in eine lstBox eintragen. Das funzt prima. Dann will ich von der gleichen Abfrage einfach nur die Anzahl der Datensätze wissen. Also habe ich folgendes geschrieben...

    con.Open()

    anzahl = cmd.executenonquery()

    Messagebox.show(anzahl)

    con.close()



    Ihr werdets nicht glauben aber das geht nicht. Ergebnis ist -1 obwohl dort meinetwegen 7 stehen sollte. Dann habe ich das in gleicher Form noch mit executescalar() versucht aber das liefert mir auch nicht die korrekte anzahl. Könntet Ihr bitte helfen. Danke



    :?: Alex :?:

    Hallo HerrFrie!

    Die lstBox wird es später nicht mehr geben. Ich könnte auch in dem Loop eine Variable mitzählen lassen aber eigentlich suche ich nicht nach den Einträgen. Was ich haben möchte ich eine Zahl und es erscheint mir unsinnig Texte auslesen zu lassen um diese dann zu zählen. Ich erwarte dass das besser geht.

    Alex

    Hallo Scientia!

    Leider nein. Fehlermeldung...ERROR [HY000] [Oracle][ODBC][Ora]ORA-00920: Ungültiger relationaler Operator...für diese zeile ...anzahl = CInt(cmd.ExecuteScalar())

    ich habe meinen Abfrage-String mal unter SQL direkt getestet und der funktioniert schon. Dort bekomme ich auch die korrekte oder gesuchte Zahl. Ich habe dim anzahl as integer. Nur falls ich dort etwas vergessen habe aber wie schon oben beschrieben, den Text bekomme ich prima aus der DB heraus.



    ;(

    Das mache ich nur zur Zeit um die Ergebnisse zu kontrollieren. Später möchte ich keine Textergebnisse mehr sondern nur Zahlen. Soll es wirklich der einzige Weg sein die Daten als Text auszulesen um Sie zu zählen? Es gibt doch diesen SQL Befehl Count(*), schlußendlich brauche ich nur das Ergebnis aus Count in einer Variablen. Thats it.



    Alex

    also du willst gar keine Datensätze, sondern nur die Anzahl der Datensätze?
    Da denkich, scientias vorschlag müsste hinhauen, nur kann sein, dass Oracle einen etwas anderen Sql-Dialekt hat, vlt.
    "SELECT COUNT(DeineTabelle.*) FROM DeineTabelle WHERE DeineBedingung"
    oder sowas



    Die Abfrage steht! Sie funzt auch prima aber ich weiß nicht wie das Ergebnis zu einem Wert in VB führt. Scientia hat soweit schon recht aber das war auch nicht das Problem.



    So sieht die Abfrage in SQL aus: select count (*) from TABELLE where GRUND1 and GRUND2 ....... wie gesagt, da ist das extremst einfach.

    Leider nicht, mit dem ExecuteReader habe ich es nicht probiert. Muss ich dann nicht wieder einen Loop einbauen? Das erscheint mir irgendwie unpraktisch. Soviele Schleifen um eine Zahl zu erhalten. Ich dachte NonQuery wäre die Lösung aber dort bekomme ich als Ergebnis -1, was irgendwie unbefriedigend ist. :) In meinem schlauen Buch steht extra das NonQuery als Abfrageergebnis immer eine Zahl der "betroffenen" Datensätze liefert. Aber was wissen Bücher schon. 8o

    beim Select brauchst du einen Reader!

    VB.NET-Quellcode

    1. Dim con as SqlConnection
    2. Dim cmd as SqlCommand
    3. Dim iAnzahl as int
    5. con = New SqlConnection(ConnectionString)
    6. cmd = New SqlCommand("select count(*) from Tabelle where bedingung", con)
    9. con.Open()
    10. Dim reader as new SqlDataReader()
    12. cmd.ExecuteReader()
    14. while(reader.Read())
    15. iAnzahl = ConvertToInt32(reader(0)ToString())
    16. end while
    18. reader.Close()
    19. con.Close()



    Kann sein das beim Convert ein Fehler ist aber die Anzahl solltest du bekommen :P

    Guten Morgen!

    Ich habe dann mal eine Kopie des Codes hier reingestellt. Ich bekomme mit der Lösung zwar keine Fehlermeldung aber dafür eine 7. Immer. Wenn mich jemand fragt würde ich sagen dass ist der Text aus der ersten Abfragespalte.



    Quellcode

    1. Dim con As New Odbc.OdbcConnection
    2. Dim cmd As New Odbc.OdbcCommand
    3. con.ConnectionString = "Anmeldinformation"
    4. cmd.Connection = con
    5. Dim iAnzahl As Integer
    6. cmd.CommandText =
    7. "SELECT ACT.FINISHED, ACT.FINISH_NAME, ACT.FIRST_CAR, ACT.TIME_START FROM O.ACT ACT WHERE ACT.TIME_START > '24.03.2011' and act.first_car = '93' " &
    8. "and act.finished = '7' ORDER BY ACT.TIME_START"
    10. con.Open()
    11. Dim reader As Odbc.OdbcDataReader
    12. reader = cmd.ExecuteReader()
    13. While reader.Read()
    14. iAnzahl = Convert.ToInt32(reader(0))
    15. End While
    16. reader.Close()
    17. con.Close()
    18. MessageBox.Show(iAnzahl)


    Verzweiflung macht sich breit.

    Klassischer Fall von Betriebsblindheit! Habe alles ausprobiert und irgendwann die Abfrage überkopiert! Ich sag Dir was ErfinderdesRades, es funktioniert. :) Hätte nicht gedacht dass das Zählen von Einträgen so exotisch ist. Ich habe mich auch fast totgegoogelt und nichts gefunden. Vielleicht hilfts ja auch mal jemand anderen, ich stelle auch meinen funktionierenden Code hier rein. Für alle Suchenden

    Quellcode

    1. Dim con As New Odbc.OdbcConnection
    2. Dim cmd As New Odbc.OdbcCommand
    3. 'Verbindung zu einer ODBC Verbindung herstellen
    4. con.ConnectionString = "Anmeldedaten"
    5. cmd.Connection = con
    7. Dim iAnzahl As Integer
    8. 'DB Abfrage, Wichtig hier Count (*) anzugeben um eine Zahl zurück zu bekommen
    9. cmd.CommandText =
    10. "SELECT count (*) FROM O.ACT ACT WHERE ACT.TIME_START > '24.03.2011' and act.first_car = '90' " &
    11. "and act.finished = '7'"
    13. con.Open()
    14. Dim reader As Odbc.OdbcDataReader
    15. reader = cmd.ExecuteReader()
    16. While reader.Read()
    17. iAnzahl = Convert.ToInt32(reader(0))
    18. End While
    19. reader.Close()
    20. con.Close()
    21. 'Ausgabe des Ergebnisses
    22. MessageBox.Show(iAnzahl)


    DANKE!

    Übersetzung in VBscript

    Hallo Leute,

    Sorry für das ausgraben dieses Themas.

    Der Quellcode ist genau das was ich benötige.

    Jedoch programmiere ich in Visual Basic Script mit einer Access Datenbank.

    Bin noch relativ neu in der Programmiersprache und Allgemein Programmierung.

    Könnte jemand für mich die Lösung in VBScript übersetzen?

    Er gibt mir immer zurück, dass ExecuteReader() nicht ausgeführt werden kann. :/

    VB.NET-Quellcode

    1. Sub TicketCounter
    3. cmd.CommandText = "SELECT COUNT(*) FROM Tabelle WHERE Bedingung"
    5. reader = cmd.ExecuteReader
    7. while reader.Read()
    8. nTicket_60 = CInt(reader(0))
    9. Wend
    11. msgbox nTicket_60
    13. reader.Close()
    14. End Sub


    Die Connection etc. wurde natürlich davor schon eröffnet.


    VB.NET-Quellcode

    1. '### Objekte für die Datenbank definieren
    2. Set conn = CreateObject("ADODB.Connection")
    3. Set cmd = CreateObject("ADODB.Command")
    4. '### Provider für die DB
    5. conn.Provider = "Microsoft.Jet.OLEDB.4.0"

    Für alle die es interessiert.
    Hab es jetzt anders gelöst :)
    Klappt auch wunderbar.. auch wenn es vllt unsauber ist.

    VB.NET-Quellcode

    1. Sub Counter
    3. sqlCounter = "SELECT Feld FROM Tabelle WHERE Bedingung
    4. '### Recordset öffnen und mit den Datensätzen aus der Datenbank füllen
    5. rs.Open sqlCounter, conn
    6. '### Counter zurücksetzen
    7. Zähler = 0
    8. '### Tabelleneinträge zählen
    9. do until rs.EOF
    10. Zähler=Zähler+1
    12. rs.MoveNext
    13. loop
    14. rs.close
    16. End Sub


    Variablen müsst ihr natürlich deklariert haben:

    VB.NET-Quellcode

    1. '### Objekte für die Datenbank definieren
    2. Set conn = CreateObject("ADODB.Connection")
    3. Set cmd = CreateObject("ADODB.Command")
    4. set rs = CreateObject("ADODB.recordset")
    5. '### Provider für die DB
    6. conn.Provider = "Microsoft.Jet.OLEDB.4.0"

Facebook
Telefonspende