[prog] OOo2 - Insertion par SQL

Mon, 13 Feb 2006 00:38:20 -0800 

Bonjour,
Je travaille actuellement sur un programme OOo2 avec le bouquin de programmation de la version 1. En essayant d'insérer un enregistrement dans une table, il m'est arrivé qque chose d'étrange qu'il me semblait important à rapporter. Voici le code: 



    Option Explicit

   
    Sub Main
    InsertionSQL("insert into Individus (Prenom, Nom) 
values('Jules','CESAR')")

    End Sub

   
   
    Sub InsertionSQL(instrSQL2 as String)

    dim maRequete As Object
    ' maConnexion est déclarée public
    dim temp As String, instrSQL As String, message As String
    dim reponse As Long, nbLignesInscrites As Long

   
    ConnecterSourcePourTransaction
   
    ' contourner une bogue du pilote ODBC MsAccess

    temp = maConnexion.dbg_properties
    maConnexion.autoCommit = false ' on ouvre la transaction

   
    'Requête d'insertion (ici tous les champs ne sont pas remplis)

    maRequete = maConnexion.createStatement()
    instrSQL = instrSQL2
    nbLignesInscrites = maRequete.executeUpdate(instrSQL)

   
    maConnexion.autoCommit=true ' fermer la transaction

    DeconnecterSource
    End Sub





Ce programme fonctionne, mais vous aurez sans doute remarqué ma 
bidouille avec instrSQL2.

En fait, le programme suivant ne fonctionne pas . Étrange, non?


Sub Main

InsertionSQL("insert into Individus (Prenom, Nom) 
values('Jules','CESAR')")

End Sub


Sub InsertionSQL(instrSQL as String)
dim maRequete As Object
' maConnexion est déclarée public
dim temp As String, instrSQL As String, message As String
dim reponse As Long, nbLignesInscrites As Long

ConnecterSourcePourTransaction

' contourner une bogue du pilote ODBC MsAccess
temp = maConnexion.dbg_properties
maConnexion.autoCommit = false ' on ouvre la transaction

'Requête d'insertion (ici tous les champs ne sont pas remplis)
maRequete = maConnexion.createStatement()
nbLignesInscrites = maRequete.executeUpdate(instrSQL)

maConnexion.autoCommit=true ' fermer la transaction
DeconnecterSource
End Sub





---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]























					Répondre à