-
ADO-Zugriff + RecordCount in VB liefert Fehler
Hallo,
ich habe ein Probelm mit dem ADO-Zugrif auf die AS/400. Der Eigentliche Zugriff funktioniert wunderbar und ich kann aus auch mit dem SQL-Statement arbeiten (Lesen) allerdings liefermit .RecordCount immer den Wert -1.
Code:
Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
cn.Provider = "IBMDA400"
cn.ConnectionString = "Data Source=S44G1888"
cn.Open
With rs
.LockType = adLockReadOnly
.CursorType = adOpenKeyset
.Open "SELECT * FROM BDLERN.YBOD", cn
End With
rs.MoveLast
MsgBox rs.RecordCount
End Sub
Kann mir jemand sagen was ich falsch mache oder einen Tip geben was zu tun ist? Vielen Dank im Voraus.
mfg
Sascha
-
RecordCount wird von IBMDA400 nicht unterstützt:
-1 = Sätze vorhanden
0 = keine Sätze vorhanden
Wenn ich tatsächlich mal die Anzahl Sätze benötige muss ich den Select anders gestalten:
with
xMySelect as (select ........)
,
xMyCount as (select count(*) as xMyCount from xMySelect)
select *
from xMySelect, xMyCount
Dadurch erhalte ich in jedem Satz ein zusätzliche Feld "xMyCount" das die Anzahl der Sätze enthält.
-
Hey,
danke für die schnelle Hilfe. Dann muss es mit Count in SQL gehen. Ich braucht die Anzahl der Sätz für .Max bei der ProgressBar, aber wenn es mit Count geht dann hab ich ja kein Problem. Also noch mal vielen Dank.
mfg
Sascha
Similar Threads
-
By schatte in forum NEWSboard Windows
Antworten: 7
Letzter Beitrag: 21-11-06, 11:37
-
By Asti in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 29-08-06, 13:24
-
By GraueEminenz in forum NEWSboard Programmierung
Antworten: 1
Letzter Beitrag: 10-07-06, 11:58
-
By Asti in forum IBM i Hauptforum
Antworten: 9
Letzter Beitrag: 23-06-05, 14:09
-
By JonnyRico in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 13-01-05, 07:33
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks