VB6 ADODB.Recordset RecordCount-Eigenschaft gibt immer -1

Ich versuche, einige alte VB6-code für die Arbeit mit SQL Server Compact.

Kann ich eine Verbindung herstellen, öffnen Sie die Datenbank und alles scheint gut. Ich kann laufen, insert-select-Befehle die Arbeit.

Jedoch der ADODB.Recordset RecordCount-Eigenschaft gibt immer -1, auch wenn ich auf die Felder und die Daten sehen. Ändern Sie die CursorLocation = adUseClient führt zu einem problem, wenn executung SQL (multiple-step operation generated errors).

Option Explicit
    Private Const mSqlProvider          As String = "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;"
    Private Const mSqlHost              As String = "Data Source=C:\Database.sdf;"
    Private mCmd                        As ADODB.Command   ' For executing SQL
    Private mDbConnection               As ADODB.Connection


Private Sub Command1_Click()


   Dim rs As ADODB.Recordset

    Set rs = New ADODB.Recordset


    Dim DbConnectionString As String

    DbConnectionString = mSqlProvider & _
                            mSqlHost


    Set mDbConnection = New ADODB.Connection
    mDbConnection.CursorLocation = adUseServer

    Call mDbConnection.Open(DbConnectionString)

    If mDbConnection.State = adStateOpen Then
        Debug.Print (" Database is open")
        ' Initialise the command object
        Set mCmd = New ADODB.Command
        mCmd.ActiveConnection = mDbConnection

        mCmd.CommandText = "select * from myTestTable"
        mCmd.CommandType = adCmdText

        Set rs = mCmd.Execute

        Debug.Print rs.RecordCount  ' Always returns -1  !!
        Debug.Print rs.Fields(0)   ' returns correct data for first row, first col
        Debug.Print rs.Fields(1)   ' returns correct data for first row, 2nd col
        Debug.Print rs.Fields(2)   ' returns correct data for first row, 3rd col

    End If

End Sub

Jede Beratung wäre dankbar angenommen.

InformationsquelleAutor Belliez | 2010-02-17

Eigentlich die CursorLocation spielt eine wichtige Rolle in diesem Fall. Verwenden rs.CursorLocation = adUseClient festlegen der cursor-Position und versuchen.

    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    Dim DbConnectionString As String

    DbConnectionString = mSqlProvider & _
                            mSqlHost


    Set mDbConnection = New ADODB.Connection
    mDbConnection.CursorLocation = adUseServer

    Call mDbConnection.Open(DbConnectionString)

    If mDbConnection.State = adStateOpen Then
        Debug.Print (" Database is open")
        ' Initialise the command object
        Set mCmd = New ADODB.Command
        mCmd.ActiveConnection = mDbConnection

        mCmd.CommandText = "select * from myTestTable"
        mCmd.CommandType = adCmdText

        Set rs = mCmd.Execute

        Debug.Print rs.RecordCount  ' This should now return the right value.
        Debug.Print rs.Fields(0)   ' returns correct data for first row, first col
        Debug.Print rs.Fields(1)   ' returns correct data for first row, 2nd col
        Debug.Print rs.Fields(2)   ' returns correct data for first row, 3rd col

    End If

End Sub

Ich versuchte dies und es immer noch gibt -1 zurück
Obwohl CursorLocation-Laufwerke, die das Verhalten, es ist gleichermaßen abhängig von dem Treiber, den Sie verwenden. Tatsächlich rs.CursorLocation = adUseClient können den Cursor des Treibers verwendet werden. Finden Sie in der Dokumentation des Treibers, den Sie verwenden (Microsoft.SQLSERVER.CE.OLEDB.3.5) für die cursor-Funktionen. Die CE-Treiber möglicherweise nicht zur Verfügung stellen. In diesem Fall könnte man für einen aktualisierten Treiber.
Können Sie die CursorLocation-Eigenschaft des connection-Objekts als gut?
Was ist das aktuelle update zu diesem Thema?

InformationsquelleAutor Kangkan

3

Das ist ein Ergebnis der Art von cursor verwendet, um den Zugriff auf die Daten, dieser Beitrag behandelt die Problematik und mögliche Updates.

http://www.devx.com/tips/Tip/14143

BEARBEITEN

Ich entschuldige mich dafür, dass Sie nicht mehr aufmerksam auf die Tatsache, dass Sie wurden der Umgang mit Compact. Mit Kompakt-die situation ist ähnlich der, die ich verwiesen, als dass es nutzt forward nur Cursor standardmäßig (nicht unterstützen Zeilenanzahl) aber es gibt zwei andere cursor-Typen verfügbar, wie beschrieben in den link unten.

http://support.microsoft.com/kb/272067
- versuchte beide Methoden und beide failed to execute "select * from myTestTable". Übrigens, wenn ich öffnen Sie die sdf über Sql Server Management Studio 2008, sql funktioniert und gibt 11 Zeilen.
InformationsquelleAutor cmsjr

Überprüfen Recordset-Eigenschaft

Die Folgen Ergebnis, dass die RecordCount-Wert zurückgegeben, der von com.status.live-code

+------------------+-------------------+-------------+---------------+--------------+
|    CursorTypeEnum|adOpenForwardOnly=0|dOpenKeyset=1|adOpenDynamic=2|adOpenStatic=3|
|CursorLocationEnum|                                                                |
+------------------+-------------------+-------------+---------------+--------------+
|adUseServer = 2   |         X         |      O      |       X       |       O      |
|adUseClient = 3   |         O         |      O      |       O       |       O      |
+------------------+-------------------+-------------+---------------+--------------+

InformationsquelleAutor YHkim

Hier ist eine Lösung für Sie, die ich verwendet

Dim recordnumber As Long
Dim SalRSrec As New ADODB.Recordset
Set SalRSrec = Nothing
SalRSrec.Open ("SELECT count(*) from SALARY where EMPID= '" & cmb_empid & "' ;"), Dbase, adOpenKeyset, adLockOptimistic
recordnumber = SalRSrec.GetString
MsgBox recordnumber

InformationsquelleAutor Syagin Cdit

1

Aus dem Speicher arbeite mit VB6/ADO vor langer Zeit der .RecordCount-Feld nicht mehr zurück, aussagekräftige Daten, bis Sie verschoben haben, bis das Ende des Recordsets.
```
rs.MoveLast
rs.MoveFirst
Debug.Print rs.RecordCount
```
Obwohl mit diesem müssen Sie sicherstellen, dass Sie die entsprechende cursor-Typ (D. H., nicht nur vorwärts).

Die einzige andere Lösung, die ich denken kann, ist zu tun, einen separaten SELECT COUNT(*) FROM myTestTable, etc, aber dieses hat Probleme mit den Daten, wenn zwischen, call, und die eine, die tatsächlich gibt die Zeilen zurück.

InformationsquelleAutor Gareth Wilson
1

Mit Compact die Standard-cursor-Attribut ist adOpenForwardOnly für eine verbesserte Leistung. Als solche RecordCount zurück, wie "-1", was bedeutet, dass es nicht verfügbar ist, statt leer. Dies ist beabsichtigt, da die Anzahl der Datensätze in einem dynamischen cursor ändern könnte und das Ergebnis in einem Ping hin und her zwischen dem client-server zu pflegen Genauigkeit. Allerdings, wenn Sie die Anzahl der Datensatz ist entscheidend, versuchen Sie, es zu verwenden oder adOpenStatic adOpenKeyset mit einem serverseitigen cursor.

InformationsquelleAutor jasonk

Versuchen Sie es mit folgenden code, wenn noch gibt -1 zurück,

Set Conn = createobject("ADODB.connection")
Set Rs = createobject("ADODB.recordset")
Conn.Open "DSN=DSN_QTP" 
'Rs.Open "Select * From orders",Conn,adOpenDynamic,adLockBatchOptimistic
Rs.Open "Select * from [QTP-Table]",Conn,1 'Use either 1 or 3
'I tried using adopendynamic but it still returned -1. Using 1 it gave me correct count.       'Though I am using this code in QTP (Vbscript) same should work for VB6 also.
msgbox Rs.RecordCount

InformationsquelleAutor Shailendra Sah

Können Sie versuchen, so etwas wie dieses..

Set rs = mCmd.Execute

rs.MoveFirst

Do Until rs.EOF = true

    Debug.Print rs.RecordCount  ' Always returns -1  !!
    Debug.Print rs.Fields(0)   ' returns correct data for first row, first col
    Debug.Print rs.Fields(1)   ' returns correct data for first row, 2nd col
    Debug.Print rs.Fields(2)   ' returns correct data for first row, 3rd col

   counter = counter + 1
   rs.MoveNext

Loop

InformationsquelleAutor Kentot

0

Ersetzen Set rs = mCmd.Execute mit:
```
set rs = new ADODB.Recordset
rs.Open "select * from myTestTable", mDBConnection, adOpenDynamic, adLockOptimistic
```
Den adOpenDynamic ermöglicht eine vorwärts - /rückwärts-Lesen Sie sich durch, um Ihre recordcount.
- Ich habe versucht, bekomme aber eine Fehlermeldung, wenn ich ausführen, rs.öffnen: "Fehler Aufgetreten. [,,,,,,]"
- Können Sie das konkretisieren? Welcher Fehler aufgetreten ist?
- der Fehler, der aufgetreten ist, den ich bereits in meinem Kommentar. Wie ich trat über rs.öffnen Sie es sagte, "Fehler Aufgetreten. [,,,,,,]" die nicht sehr detailliert!!!!
- siehe meine bearbeitete Antwort.
InformationsquelleAutor C-Pound Guru

Code unten könnte Ihnen helfen,

set conn = CreateObject("ADODB.Connection") 
conn.open "<connection string>" 
set rs = CreateObject("ADODB.Recordset") 
sql = "SELECT columns FROM table WHERE [...]" 
rs.open sql,conn,1,1 
if not rs.eof then 
    nr = rs.recordcount 
    response.write "There were " & nr & " matches." 
    ' ... process real results here ... 
else 
    response.write "No matches." 
end if 
rs.close: set rs = nothing 
conn.close: set conn = nothing

InformationsquelleAutor Ashfak Balooch

-1

Dieser folgende code gibt die recortcount genau...

Public Sub test()
    Dim cn As New ADODB.Connection()
    Dim sPath As String = Application.ExecutablePath
    sPath = System.IO.Path.GetDirectoryName(sPath)

    If sPath.EndsWith("\bin") Then
        sPath = sPath.Substring(0, Len(sPath) - 4)
    End If

    Dim DbConnectionString As String
    DbConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & sPath & "\students.mdb"

    cn.ConnectionString = DbConnectionString
    cn.Open()

    Dim rs As New ADODB.Recordset()
    rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
    rs.CursorType = ADODB.CursorTypeEnum.adOpenStatic
    rs.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
    rs.Open("select * from students", cn)
    MsgBox(rs.RecordCount)

    rs.ActiveConnection = Nothing
    cn.Close()
End Sub

dieser verwendet eine Access-Datenbank, nicht in einer SDF-Datenbank.

InformationsquelleAutor ELANGOVAN

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.