Un grand merci � toi Jovial, Effectivement �a marche tr�s bien quand on remplace la virgule par le point . Pour ce qui est du livre, je l'ai d�j� achet�. D'ailleurs, suite � ta r�ponse, j'ai retrouv� cette fonction NombreAnglais � la page 544( je ne suis pas encore arriv� jusque l� !); de plus cela m'a permis de trouver aussi la fonction Quote, m'�vitant ainsi de poser la question sur le forum.
Amicalement, Martin ----- Original Message ----- From: "Jovial" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Wednesday, March 23, 2005 12:02 AM Subject: Re: [prog] editer table > Martin Blaizot a �crit : > > > C'est curieux, > > > > quand ma base �tait dans un r�pertoire D:/MesDocuments/Database , je > > ne pouvais pas l'�diter (F4, Editer la table). Maintenant que je l'ai > > plac�e dans C:/OpenOffice1.1.4/User/Database, je peux. Mais bon, passons. > > Il te faut cr�er la source avec Outil/Source de donn�e > s�lection le > type: dBase et le chemin du fichier, dans l'onglet tables tu peux voir > et �dit etr la composition de la table. > > Pour ton histoire de virgule je crois qu'il faut mettre le nombre au > format anglais: 12.5 le s�parateur doit �tre un point > > Si tu veux t'investir sur la programmation OOo je te conseille le livre > de bernard Marcelly au �ditions Eyrolles "Programmation OpenOffice" avec > de nombreux exemple sur CD, tu gagneras un temps pr�cieux. > > > Function NombreAnglais(ByVal txtNombre As String) As String > Dim x As Long > > x = Instr(txtNombre, ",") > if x > 0 then Mid(txtNombre, x, 1, ".") > NombreAnglais = txtNombre > End Function > > > [...] > > Dim Cout_peage as double > > Cout_peage = oProjectDialog2.getcontrol("NumericField3").value > > [...] > > > > oDatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext") > > oDataSource = oDatabaseContext.getByName("Devis") > > oConnection = oDataSource.GetConnection("","") > > oMatable = oConnection.Tables.getbyname("Liste") > > oMesChamps = oMatable.Columns > > oStatement = oConnection.createStatement() > > Dim sChamps as string > > Dim sValeurs as string > > sChamps = "(ID,cout_peage,[...])" rem : Liste de tous les champs > > de ma table > > sValeurs = "VALUES('"& ID_devis &"','"& Cout_peage&"',[...]&"')" > > rem Liste des variables correspondantes > > SQL = "INSERT INTO " & oMatable.name & sChamps & sValeurs > > oStatement.Executeupdate(SQL) > > > > si avant d'�x�cuter la commande SQL je fais : Print"La valeur saisie > > est :", Cout_peage > > je r�cup�re bien la bonne valeur (mettons 12,5) > > si je fais un print"Macommande SQL est :", SQL > > c'est bien 12,5 que je vois appara�tre dans ma commande SQL, > > > > Mais dans ma base, c'est 12,00 qui est inscrit ! > > > > Encore merci de te pencher sur mon probl�me, > > > > Martin > > > > > > ----- Original Message ----- From: "Jovial" <[EMAIL PROTECTED]> > > To: <[email protected]> > > Sent: Tuesday, March 22, 2005 6:07 PM > > Subject: Re: [prog] editer table > > > > > >> Ton fichier *.dbf n'a pas besoin d'�tre dans user, il faut juste > >> qu'il soit d�clar� � bonne adresse dans Outil/Source de donn�es > >> Regardes ton type de variable (as single ou as double,je crois pour > >> les virgules) > >> Fourni ton ton code dans ton message cela peut permettre de trouver > >> ce qui colle pas > >> > >> Martin blaizot a �crit : > >> > >>> Merci jovial, > >>> > >>> suite � tes indications, j'ai trouv� ce qui ne marchait pas ! > >>> en fait, ma base n'�tait pas dans le r�pertoire user de OOo 1.1.4. > >>> Je l'ai > >>> d�plac�e dans le bon r�pertoire, et j'ai pu l'�diter sans probl�me. > >>> > >>> > >> > >> > >> --------------------------------------------------------------------- > >> To unsubscribe, e-mail: [EMAIL PROTECTED] > >> For additional commands, e-mail: [EMAIL PROTECTED] > >> > >> > > > > > > > > --------------------------------------------------------------------- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > > > --------------------------------------------------------------------- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
