Le site de la communauté de Gambas

Auteur Messages

jbrugerolle #1 Posté le 24/7/2012 à 19:53:37

Bonjour,
j'avais une question concernant le composant DateBox :
Quand on choisie, dans la propriété : mode DateTime (pour sélectionner la date et l'heure)
Pourquoi faut-il créer la procédure :
Public Sub DateBox1_Arrange()

DateBox1.Value = Now

End
Pour que le composant soit initialiser correctement ?

Mon but est de créer une fonction pour saisir une DATETIME dans une base Mysql comme suit :

Public Function sqlDateTimeValue($dateATransformer As DateBox) As String

Dim $temp As String
'Dim $valeurretour As String

$temp = $dateATransformer.value

'If Len($temp) = 19 Then
' $valeurretour = Mid$($temp, 7, 4) & "-" & Mid$($temp, 4, 2) & "-" & Mid$($temp, 1, 2) & Mid$($temp, 11, 9)
'Else
' Error.raise("Vous devez fixer l'heure.")
'Endif
'Return $valeurretour
Return Mid$($temp, 7, 4) & "-" & Mid$($temp, 4, 2) & "-" & Mid$($temp, 1, 2) & Mid$($temp, 11, 9)

End

Merci

Reivillo #2 Posté le 24/7/2012 à 21:27:24

C' est ici, et nul part ailleurs. « Et pis c'est tout ! »

Bonsoir jbrugerolle.

Comme ça peut-être:

1	`Format$(DateBox1.Value, "yyyy/mm/dd")`

A adapter selon...

Reivillo.

1 2 3 4 5 6 7 8	`PUBLIC SUB Button1_Click() DIM MyTemp AS STRING MyTemp = Format$(DateBox1.Value, "yyyy/mm/dd") TextBox1.Text = MyTemp END`

Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR

manu #3 Posté le 25/7/2012 à 14:47:09

Avec Gambas ca roule !

heu si tu as besoin de saisir une date dans une table Mysql, il faut que ton champ soit un champ de type date et tu fait tout simplement :

Ton Champ date s'appelle "Date" et est dans la table "MaTable"

1 2 3 4 5 6	`DIM hResult AS result hResult = db.Create("MaTable") 'je créé un enregistrement MaTable hResult!Date = DateBox1.Value ' j'ecris la valeur dans le champ Date hResult.Update ' j'enregistre la modification`

C'est tout

PS : DateBox n'est pas un composant mais un contrôle

Jeanne d'arc, elle a frit, elle a tout compris !

Config :
Manjaro linux (excellent !)
XFCE 4.1 (simple et efficace)
Gambas 3 dans les dépots (confort total)

manu #4 Posté le 25/7/2012 à 22:52:51

Avec Gambas ca roule !

J'avais oublié de répondre a la premiere question : Il n'y a rien a faire de speciale pour "initialiser" la datebox, elle est par défaut à la date du jour.

Jeanne d'arc, elle a frit, elle a tout compris !

Config :
Manjaro linux (excellent !)
XFCE 4.1 (simple et efficace)
Gambas 3 dans les dépots (confort total)