ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Problème insertion dans une BD PostgreSQLl

Sujet
Précédent 1...20 21 22 23 24 25 26 27 28 29 ...129 Suivant
vfpwinsock OlivierH - 01/04/2016 16h22
Une requête sur une vue ne retourne pas toutes les données Bernard Avril - 31/03/2016 16h57
Programme FoxPro AlainB - 26/03/2016 13h45
Erreur 8002006 Cinedic - 24/03/2016 09h06
[HS] Contribution de Mr Gregory Adam alahem1 - 19/03/2016 11h54
Entete mail Cinedic - 18/03/2016 15h36
Création Setup application Client/Serveur. noureddine-Mila - 17/03/2016 14h06
Lianja et Linux Benoit à Bx - 17/03/2016 13h03
Comment savoir quel est l'objet actif dans 'un formulaire Roland38 - 16/03/2016 08h18
format du csv pour La Poste En Ligne Michel Lévy - 09/03/2016 11h45
PostGres 9.2 mot de passe eddymaue - 09/03/2016 07h15
Re: Expression .NULL. sur SQL eddymaue - 08/03/2016 23h11
Expression .NULL. sur SQL BENMAHAMED - 05/03/2016 18h21
PageFrame > CTRL+TAB versus CTRL+PgUp (ou PgDn) ABx - 04/03/2016 14h51
Problème insertion dans une BD PostgreSQLl noureddine-Mila - 03/03/2016 15h54
compte à rebour le mulet - 01/03/2016 23h45
VFP6 et WINDOWS 10 version 64 bits DoumDoum58 - 28/02/2016 19h18
Problème pour passer de Visual Proxpro 6 à 9 Dancha - 27/02/2016 19h42
Si un fichier est supprimé et recréé, Windows recycle la date et heure de création, comment le contourner ? FoxInCloud - 26/02/2016 11h15
manuel Visual Foxfro 9 mslider - 23/02/2016 12h39
Précédent 1...20 21 22 23 24 25 26 27 28 29 ...129 Suivant

Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

dim. 06 mars 2016, 09h56
eddymaue
atoutfox.public.association

Re: Problème insertion dans une BD PostgreSQLl

&& Et voilà

Local oThisform As Form


oThisform = Proc_formulaire()

vcbcmd ="vcd__Cmd__"

TEXT to cInsCmd textmerge noshow

    Insert into commande (ods, energie, num, date_ods, mont_ht, tva,
mont_ttc,  entreprise, objet, ca, ap, imputation, sce, delais)
    value (
    '<<vcbcmd>>',
    '<<othisform.cbenergie.value>>',
    <<othisform.strnum.value>>,
    <<oThisform.dateods.value>>,
    <<oThisform.strmtht.value>>,
    <<oThisform.strmttva.value>>,
    <<oThisform.strmtttc.value>>,
    '<<oThisform.cbentreprise.value>>',
    '<<oThisform.txtobjet.value>>',
    '<<oThisform.cbca.value>>',
    '<<oThisform.txtap.value>>',
    '<<oThisform.txtimputation.value>>',
    '<<oThisform.txtsce.value>>',
    <<oThisform.strdelais.value>>)

ENDTEXT

Local lcDoCurrSafety As Character
m.lcDoCurrSafety = "set safety "+set("safety")
set safety off

StrToFile(cInsCmd,"text_cInsCmd.txt")
StrToFile(Chr(13)+Chr(13),"text_cInsCmd.txt",1)

cInsCmd = Strtran(cInsCmd,Chr(13)+Chr(10))

StrToFile("cInsCmd =
Strtran(cInsCmd,Chr(13)+Chr(10))","text_cInsCmd.txt",1)

StrToFile(cInsCmd,"text_cInsCmd.txt",1)




modify command "text_cInsCmd.txt" NOWAIT

set step on
* à placer ou bon vous semble

&lcDoCurrSafety

Procedure Proc_formulaire()


  ***************************************************************************************************

  Local oThisform as Form
  m.oThisform  = Createobject("form")


  m.oThisform.AddObject("cbEnergie","combobox")
  oThisform.Cbenergie.AddItem("energie 1")
  oThisform.Cbenergie.AddItem("energie 2")
  oThisform.Cbenergie.AddItem("energie 3")

  othisform.Cbenergie.Listitemid = 2

  m.oThisform.AddObject("strNum","textbox")
  oThisform.Strnum.Value= 11111

  m.oThisform.AddObject("dateods","textbox")
  oThisform.Dateods.Value = Date()

  m.oThisform.AddObject("strmtht","textbox")
  oThisform.Strmtht.Value = 22222 &&"Strmtht_value"

  m.oThisform.AddObject("strmttva","textbox")
  oThisform.Strmttva.Value = 33333  &&"Strmttva"

  m.oThisform.AddObject("strmtttc","textbox")
  oThisform.Strmtttc.Value = 4444 && "Strmtttc"

  m.oThisform.AddObject("cbentreprise","combobox")
  oThisform.Cbentreprise.AddItem("entreprise-1")
  oThisform.Cbentreprise.AddItem("entreprise-2")
  oThisform.Cbentreprise.AddItem("entreprise-3")

    othisform.Cbentreprise.Listitemid = 1


  m.oThisform.AddObject("txtobjet","textbox")
  oThisform.Txtobjet.Value = "txt_objet"

  m.oThisform.AddObject("cbca","combobox")
  oThisform.cbca.AddItem("cbca-1")
  oThisform.cbca.AddItem("cbca-2")
  oThisform.cbca.AddItem("cbca-3")

  othisform.cbca.Listitemid = 1


  m.oThisform.AddObject("txtap","textbox")
  oThisform.Txtap.Value = "txtap"

  m.oThisform.AddObject("txtimputation","textbox")
  oThisform.Txtimputation.Value="txtImputation"

  m.oThisform.AddObject("txtsce","textbox")
  oThisform.Txtsce.Value = "Txtsce"

  m.oThisform.AddObject("strdelais","textbox")
  oThisform.Strdelais.Value = 5555 &&"StrDelais"

  Return othisform

Endproc

--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017430

20 088 messages dans le forum • Liste complète des messages

Les pubs en cours :