Lösung für Datenbankabfrage[VB 2010] in VBScript übersetzen

  • VBScript

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Lösung für Datenbankabfrage[VB 2010] in VBScript übersetzen

    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[2010] Lösung:

    Visual Basic-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)


    Meine versuchte Lösung:

    Visual Basic-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


    Connections usw sind natürlich alle deklariert und eröffnet vor dem Ausführen.
    Ist ein ziemlich großes Programm.

    Visual Basic-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.

    Visual Basic-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:

    Visual Basic-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"