CopyFromRecordset copies & colle première ligne, même si plusieurs enregistrements sont présents dans Excel

J'ai une feuille Excel contenant le tableau de données de type

strSQL = "SELECT S.FIELD_NAME1,S.FIELD_NAME2,S.FIELD_NAME3 from [SourceData$A1:IV6] S"

Dim cn as ADODB.Connection
Dim rs as ADODB.Recordset
cn.Open strCon
Set rs = CmdSqlData.Execute()
Worksheets("SourceData").Cells.ClearContent
Worksheets("AnswerData").Cells(2, 1).CopyFromRecordset rs

Résultats :
Seule la première ligne et les autres dossiers sont ignorés.

J'ai essayé ci-dessous requête .,

strSQL = "SELECT COUNT(*) from [SourceData$A1:IV6] S"

Qui donne 5 comme résultat.

S'il vous plaît laissez-moi savoir pourquoi les autres documents ne sont pas copiés dans le jeu d'enregistrements?

Que SQL ne retourne qu'un seul nombre. Vous signifiait probablement SELECT * FROM .

OriginalL'auteur logan | 2012-07-11

Voici une sous-routine avec succès pâtes à un jeu d'enregistrements.

Noter que la gamme de pâtes à l'est de la même taille que le jeu d'enregistrements via le intMaxRow et intMaxCol variables:

Sub sCopyFromRS()
'Send records to the first
'sheet in a new workbook
'
Dim rs As Recordset
Dim intMaxCol As Integer
Dim intMaxRow As Integer
Dim objXL As Excel.Application
Dim objWkb As Workbook
Dim objSht As Worksheet
  Set rs = CurrentDb.OpenRecordset("Customers", _
                    dbOpenSnapshot)
  intMaxCol = rs.Fields.Count
  If rs.RecordCount > 0 Then
    rs.MoveLast:    rs.MoveFirst
    intMaxRow = rs.RecordCount
    Set objXL = New Excel.Application
    With objXL
      .Visible = True
      Set objWkb = .Workbooks.Add
      Set objSht = objWkb.Worksheets(1)
      With objSht
        .Range(.Cells(1, 1), .Cells(intMaxRow, _
            intMaxCol)).CopyFromRecordset rs
      End With
    End With
  End If
End Sub

À l'aide de cet exemple comme un modèle, je voudrais essayer somehting de ce genre pour votre code:

strSQL = "SELECT S.FIELD_NAME1,S.FIELD_NAME2,S.FIELD_NAME3 from [SourceData$A1:IV6] S"

Dim cn as ADODB.Connection
Dim rs as ADODB.Recordset
Dim intMaxCol as Integer
Dim intMaxRow as Integer

cn.Open strCon
Set rs = CmdSqlData.Execute()
intMaxCol = rs.Fields.Count
'- MoveLast/First to get an accurate RecordCount
rs.MoveLast 
rs.MoveFirst

If rs.RecordCount > 0 then
    '-thought you could put the MoveLast/First here but maybe not.
    intMaxRow = rs.RecordCount
    With Worksheets("AnswerData")
        .Range(.Cells(2,1),.Cells(intMaxRow+1,intMaxColumn)).CopyFromRecordset rs
    End With
End If

sera de rs.RecordCount donner le nombre total d'enregistrements présents dans un jeu d'enregistrements ? dans mon cas, je suis d'avoir le résultat de -1, même si j'ai 5 enregistrements dans un jeu d'enregistrements
rs.Recordcount renvoie le nombre exact de documents une fois que vous movelast et movefirst Cela est nécessaire pour cela d'analyser et de les compter. J'ai modifié le code pour mettre le rs.MoveLast rs.MoveFirst avant l'instruction si, parce que je ne me souviens pas du haut de ma tête si vous pouvez vous contenter de le mettre à l'intérieur de la SI ou pas (j'ai pensé que vous pourriez) )
Merci Logan - malheureusement, je n'ai pas lu les commentaires avant j'ai essayé de comprendre ce qui n'allait - il TOUJOURS saute au-dessus de l'instruction SI comme il retourne -1 - apparemment, cela signifie qu'il y a des enregistrements, alors peut-être que Si l'instruction doit être si rs.RecordCount = -1 (encore un problème dans le premier exemple). Merci pour le reste tho Gimp - sinon, très utile. 😉

OriginalL'auteur danielpiestrak

2

Cette réponse dépend de votre base de données ODBC driver disponible dans Excel.

À cause de mon corp env, je suis obligé d'utiliser un très ancien pilote ODBC pour Oracle. Dans mon cas, Recordset.RecordCount est toujours -1. Par défaut, Recordset.MoveLast et Recordset.MoveFirst n'est pas pris en charge. Comme la question d'origine, les appels à Excel.Range.CopyFromRecordset(Recordset) aussi seulement d'écrire une seule ligne.

Vous devrez peut-être configurer votre ADODB.Recordset différemment. Essayez ce code:
```
Dim dbConn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rng As Excel.Range
Dim rowCount As Long

' TODO: Init your dbConn here.
' TODO: Init your rng here.

Set rs = New ADODB.Recordset
' http://www.w3schools.com/ado/prop_rs_cursortype.asp
rs.CursorType = ADODB.CursorTypeEnum.adOpenKeyset
rs.Open sql, dbConn
rowCount = rng.CopyFromRecordset(rs)
```
Pour mon pilote, cela résout le problème. Cependant, votre kilométrage peut varier.

Vous pouvez lire plus au sujet de l'agitation types de curseur ici.

Cette réponse a fonctionné pour moi, merci!

OriginalL'auteur kevinarpe
0

Je rencontre le même problème.

Seulement De Remplacer
```
set rst = conn.execute("SELECT * FROM SOMETABLE;") 
```
avec
```
call rst.open("SELECT * FROM SOMETABLE;", conn)
```
Alors le problème est sovled

Mais， je ne sais pas pourquoi.

OriginalL'auteur Zhang Hansen

Vous devez vous connecter pour publier un commentaire.