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:
Meine versuchte Lösung:
Connections usw sind natürlich alle deklariert und eröffnet vor dem Ausführen.
Ist ein ziemlich großes Programm.
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
- Dim con As New Odbc.OdbcConnection
- Dim cmd As New Odbc.OdbcCommand
- 'Verbindung zu einer ODBC Verbindung herstellen
- con.ConnectionString = "Anmeldedaten"
- cmd.Connection = con
- Dim iAnzahl As Integer
- 'DB Abfrage, Wichtig hier Count (*) anzugeben um eine Zahl zurück zu bekommen
- cmd.CommandText =
- "SELECT count (*) FROM O.ACT ACT WHERE ACT.TIME_START > '24.03.2011' and act.first_car = '90' " &
- "and act.finished = '7'"
- con.Open()
- Dim reader As Odbc.OdbcDataReader
- reader = cmd.ExecuteReader()
- While reader.Read()
- iAnzahl = Convert.ToInt32(reader(0))
- End While
- reader.Close()
- con.Close()
- 'Ausgabe des Ergebnisses
- MessageBox.Show(iAnzahl)
Meine versuchte Lösung:
Connections usw sind natürlich alle deklariert und eröffnet vor dem Ausführen.
Ist ein ziemlich großes Programm.