Bonjour Jean-Luc,

J'ai adpaté ton code au mien (en gros la même chose ) mais rien n'y fait.
Voilà le msg d'erreur que j'obtiens (à précir que je suis sous Ooo1.9.118  et 
que j'attaque des tables sur Database, "images" des tables sur MySQL via ODBC)  
:

        RunTime Error Basic
        Exception
        Type : com.sun.star.sdbc.SQLException
        Message : Wrong fetchtype with FORWARD ONLY cursor

Merci d'avance pour ton aide.

Arnaud

>Sous OOo 1.1.2, en adaptant ton code  sur une de mes macros cela marche
>ci dessous le code
>
>'Connection à la source de données
>maSource=oDBContext.getbyname(NomSource)
>MaConnexion=maSource.getConnection("","")
>
>SQL = "SELECT * FROM "& NomTableAdr                                  
>LaRequete=MaConnexion.createStatement()
>LaRequete.QueryTimeout=30
>LeResultSet=laRequete.executeQuery(SQL)
>        'Lecture du premier enregistrement
>
>With LeResultSet
>     LeResultat = .Last '.Next
>     if LeResultat then
>          print LeResultSet.getstring(2)
>     end  if
>End with       
>        'print  LeResultSet.getColumns.getbyindex(0).string       
>   
>    MaConnexion.close
>    MaConnexion.dispose
>End Sub
>
>Sur quelle ligne tu plantete, quel message?
>Bonne suite
>
>jean-luc
>
>Arnaud LAURENSON - Costes Gestion a écrit :
>
>> Enfin, je viens d'avoir la bible "Macros OooBasic et API".
>> Enfin, je me rue sur la page 539 pour pouvoir atteindre le dernier 
>> enregistrement d'une requête.
>>  
>> je dois être très fatigué mais j'ai systématiquement un msg d'erreur 
>> après l'application du code suivant :
>>  
>>  SQL = "SELECT * FROM toto"
>>  oRech = oStatement.executeQuery(SQL) 'j'ai défini oStatement avant
>>  With oRech
>>   execOK = .last
>>  if execOK then
>>       msgbox oRech.getstring(1)
>>  end  if
>>  end With
>> Ca ne passe pas avec la méthode Last qu'il ne reconnaît pas (j'ai 
>> essayé avec .Next et là ça fonctionne).
>> Quelqu'un peut-il m'éclairer sur ce point SVP ?
>> Merci d'avance.
>>  
>> Arnaud
>>  
>>  
>
>
>
>---------------------------------------------------------------------
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>
>

= = = = = = = = = ========= = = = = = = = = = =
                        
Arnaud LAURENSON - Costes Gestion
[EMAIL PROTECTED]
25/08/2005

Répondre à