Kohler Gerard a écrit :
bonjour,
je viens d'écrire une macro en basic pour remplir une table dans une
base de donnée odb,
la table contient des champs texte,double et date
la requete suivante marche :
instrSQL = "INSERT INTO ""Table1""
(""ID"",""Nom"",""Prenom"",""Cheque"",""Espece"",""CB"") " & _
" values(" & nIndex & ",'" & nom & "','" & prenom & "',"
& cheque & "," & especes & "," & cb & ")"
maReq = maConnexion.createStatement()
nbLigne = maReq.executeUpdate(instrSQL)
mais je n'arrive pas à faire marcher celle-ci :
instrSQL = "INSERT INTO ""Table1""
(""ID"",""DATE"",""Nom"",""Prenom"",""Cheque"",""Espece"",""CB"") " & _
" values(" & nIndex & ","& laDate &",'" & nom & "','" &
prenom & "'," & cheque & "," & especes & "," & cb & ")"
maReq = maConnexion.createStatement()
nbLigne = maReq.executeUpdate(instrSQL)
dans ma macro les variables :
nIndex est de type Long
laDate est de type Date
nom, prenom sont de type String
cheque, especes, cb sont de type double
le probleme vient du format de la variable date, quelle est la manip
pour faire concorder les format oobasic et sql ?
Merci de votre aide
Gérard
OpenOffice 3.0.0, Linux mandriva 2009.0
Pour ma part je me suis écrit une fonction :
'**************************************************************************
FormatDate
Function FormatDate(DateFournie As String) As String
'-------------------------------------------------------------------------
' Retourne une date au format "AAAA-MM-DD"
' Le paramètre DateFournie doit correspondre à une date
'-------------------------------------------------------------------------
Dim Reponse As String
Dim Donnee As Date
If IsDate (DateFournie) Then
Donnee = CDate(DateFournie)
Reponse = Year(Donnee) & "-" & Month(Donnee) & "-" & Day(Donnee)
Else
Reponse = "0000-00-00"
End If
FormatDate = Reponse
End Function
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org
