[Je reponds ici à un message sur user ...]

ReBonjour sébastien

sQuery = "INSERT INTO table VALUES('','');" oResultSet = oStatement.executeQuery(sQuery)

essaye ceci

RequeteEcrire=oStatement.executeUpdate(sQuery ) Requete ecrire contient le nombre de lignes concernees$

sinon pour la gestion d'erreur, c'est on error goto label on error resume next (ne tient pas compe des erreurs - à utiliser avec parcimonie) on error goto 0 reactive les erreurs

Tiens nous au courant

Laurent

------------------------------- le post de user

Bonjour

En effet tout les liens que l'on m'a donné je l'ai avait déjà regardé et pas trouvé mon bonheur, mais en cherchant encore de mon cote g trouvé qq qui avait deja fait qqch de similaire, en voici le code.

Dim oDatabaseContext, oDataSource, oConnection As Object Dim oStatement, oResultSet As Object Dim sQuery As String

oDatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext") oDataSource = oDatabaseContext.getByName(db_name) oConnection = oDataSource.GetConnection("","") oStatement = oConnection.CreateStatement()

sQuery = "INSERT INTO table VALUES('','');" oResultSet = oStatement.executeQuery(sQuery)

Par contre il me reste un probleme, lorsque je fait un requete SELECT pas de problème, mais avec une requete INSERT ou UPDATE, l'erreur suivante est retourne "No ResultSet was produced"

Si qq a une idée, ou sinon est ce qu'il existe comme en PHP (@ devant la fonction) une solution qui permet de ne pas afficher le message d'erreur de la fonction.

merci pour toute les reponses.

Selon Christophe Thibierge <thib...@escp-eap.net>: