Probleme de recordset parcourant excel

Version imprimable

06/04/2006, 18h10
ironik

Probleme de recordset parcourant excel

Bonsoir à tous!
Ne me lynchez pas si c'est déjà expliqué quelque part... parceque j'ai cherché et je n'ai pas trouvé de probleme similaire...

J'ai un probleme en essayant de récupérer les infos contenues dans un fichier excel via un recordset.
Le recordset à systematiquement pour 1er enregistrement la deuxieme ligne du fichier excel...

Je ne comprends pas!

Peut etre y a t il une option par défaut qui fait sauter la première ligne?

Merci!!
06/04/2006, 21h48
SilkyRoad
bonsoir

tu ne precises pas le type de connection utilisé

par exemple :

Code:

"Extended Properties=""Excel 8.0;HDR=Yes"""

si HDR =No , la premiere ligne est considérée comme un enregistrement
si HDR=Yes , la premiere ligne est considérée comme un entête

sinon pour récupérer la 1ere ligne (l'entete) , tu peux aussi utiliser
Code:

1 2 3 For i = 0 To Rs.Fields.Count - 1 'boucle sur les entetes Debug.Print Rs.Fields(i).Name Next
bonne soiree
michel
07/04/2006, 08h52
ironik

Merci bcp je pense que ca va fonctionner maintenant!!!

Je vous tiens au courant et je fais un ptit topo si ca marche!

Bon ca ne fonctionne pas :( il me dit que la base ou l'objet est en read only

Voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Function Read_Excel _
         (ByVal sFile _
          As String, sheet As String) As ADODB.Recordset
 
      On Error GoTo fix_err
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim sconn As String
      Dim strsql As String
      Dim sheetName As String
 
 
 
      sheetName = CStr(sheet) + "$"
      strsql = "SELECT * FROM [" + sheetName + "]"
 
      rs.CursorLocation = adUseClient
      rs.CursorType = adOpenKeyset
      rs.LockType = adLockBatchOptimistic
 
     sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile & " " & _
            "Extended Properties=""Excel 8.0;HDR=No"""
      rs.Open strsql, sconn
      Set Read_Excel = rs
      Set rs = Nothing
      Exit Function

Il plante à l'ouverture ^^

déjà il ne vas pas être KeySet si tu le met coté client

essayes avec

Code:

1
2
3
4
5
6
7
8
rs.CursorLocation = adUseClient 
rs.CursorType = adOpenStatic 
rs.LockType = adLockBatchOptimistic 
 
sconn = "Microsoft.Jet.OLEDB.4.0;Data Source= & sFile & ";Extended Properties=Excel 8.0"
rs.Open strsql, sconn 
Set Read_Excel = rs 
Set rs = Nothing

07/04/2006, 10h03
ironik

Ca ne fonctionne pas avec ce code...
J'ai l'impression que c'est

Code:

;Extended Properties=Excel 8.0"

qui pose probleme...

Code:

sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile

Avec ce code ca fonctionne mais je récupère la deuxieme ligne comme premier enregistrement:
07/04/2006, 10h05
bidou

Quand tu dis "ca ne fonctionne pas" c'est que tu as une erreur ou que tu ne récupères rien ?
07/04/2006, 10h22
ironik
ah oui désolé. j'ai pas précisé!

Donc avec ce code
Code:

1 2 3 4 sconn = "Microsoft.Jet.OLEDB.4.0;Data Source= & sFile & ";Extended Properties=Excel 8.0" rs.Open strsql, sconn Set Read_Excel = rs Set rs = Nothing
Il me renvoie une erreur "Data source name Not Found and no defaut driver specified" a l'ouverture du recordset

Avec ce code
Code:

1 2 sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile & " " & _ "Extended Properties=""Excel 8.0;HDR=No"""
Il me renvoie l'erreur :" Cannot update, database or object is Read-only" a l'ouverture du recordset

Avec celui là :

Code:

sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile

Je n'ai pas d'erreur mais le premier enregistrement est la deuxième ligne de mon fichier Excel!

Ps: question bête: dans l'extended properties (Extended Properties=""Excel 8.0") à quoi correspond le 8.0, la version d'Excel??
07/04/2006, 11h35
ironik

Bon forcément ... je n'avais pas mis de référence OLEDB

En ce qui concerne ODBC, la première ligne est toujours considérée comme une ligne de titre, non pas comme une ligne de donnée (source IBM)

J'essaie donc avec OLEDB^^

Bon voila ca fonctionne avec OLEDB!
SilkyRoad avait raison mais comme je n'ai pas indiqué que j'etais en ODBC...

Voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Function Read_Excel _
         (ByVal sFile _
          As String, sheet As String) As ADOdb.Recordset
 
      On Error GoTo fix_err
      Dim rs As ADOdb.Recordset
      Set rs = New ADOdb.Recordset
      Dim sconn As String
      Dim strsql As String
      Dim sheetName As String
 
 
      sheetName = CStr(sheet) + "$"
      strsql = "SELECT * FROM [" + sheetName + "]"
 
      rs.CursorLocation = adUseClient
      rs.CursorType = adOpenStatic
      rs.LockType = adLockBatchOptimistic
 
      sconn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & sFile & ";" & _
      "Extended Properties=""Excel 8.0;HDR=NO;"";"
 
'sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
      rs.Open strsql, sconn
      Set Read_Excel = rs
      Exit Function

Maintenant le recordset retourne bien la première ligne!

Merci à tous