Bonjour liste,
J'ai deux propleme le premier concerne la recherche
j'ai essayé le code siuivant et ca marche pas:
================================
Sub ChercherDonneesParResultSet()
monDocument = thisComponent
unFormulaire = monDocument.DrawPage_
.Forms.getByName("F1")
monCtrl1 = unFormulaire.getByName("Libelle")
monCtrl2 = unFormulaire.getByName("Prix")
monCtrl2.text =LeLibelle
monCtrl2.text =LePrix
LeCode= InputBox("Donnez le code du produit que vous
recherchez ")
ConnecterSource()
instrSQL = "select * from produits where _
ID_PRODUIT='LeCode'"
maRequete = maConnexion.createStatement()
resuQuery = maRequete.executeQuery(instrSQL)
LeLibelle=resuQuery.Columns(1).String
LePrix=resuQuery.Columns(2).Double
End Sub
================
Le 2eme probleme conserne la modification des données
de ma base j'ai essayé ca encore ca marche pas:
====================
Sub ModifierDonneesParResultSet()
monDocument = thisComponent
unFormulaire= _
monDocument.DrawPage.Forms.getByName("F1")
monCtrl1 = unFormulaire.getByName("Libelle")
monCtrl2 = unFormulaire.getByName("Prix")
LeLibelle=monCtrl1.text
LePrix=monCtrl2.text
LeCode= InputBox("Donnez le code du produit que vous
voulez modifier")
ConnecterSource()
instrSQL = "select * from produits where ID_PRODUIT=
'LeCode'"
maRequete = maConnexion.createStatement()
resuQuery = maRequete.executeQuery(instrSQL)
resuQuery.updateString(2, LeLibelle)
resuQuery.updateDouble(3, LePrix)
resuQuery.updateRow
end if
End Sub
Quelqu'un peut m'envoyer la solution c tres urgent
et merci
bonne journée
___________________________________________________________________________
Appel audio GRATUIT partout dans le monde avec le nouveau Yahoo! Messenger
Téléchargez cette version sur http://fr.messenger.yahoo.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
