Function NSTGCreerStation(nom As String, _
code_ig As String, _
nom_ig As String, _
[[liste des attributs à insérer/mettre à jour]])
Dim ResultDoublon As Object
Dim ResultModif As Object
Dim ResultReq As Object
Dim connexion As Object
Set ResultDoublon = CreateObject("ADODB.Recordset")
Set ResultModif = CreateObject("ADODB.Recordset")
Set ResultReq = CreateObject("ADODB.Recordset")
Set connexion = CreateObject("ADODB.Connection")
'On cree une connexion
Set connexion = BDDCreerConnexion[B]
connexion.CursorLocation = adUseClient[/B]
'On verifie que la station n'existe pas deja
ReqVerif = "Select * from station_nstg where nom = '" & nom & "'"
Set ResultDoublon = BDDExecuterRequete(connexion, ReqVerif)
If (Not (ResultDoublon.EOF And ResultDoublon.BOF)) Then
'en cas de doublon, on met a jour la ligne concernee
ReqModif = "Update station_nstg set ig_nom = '" & nom_ig & "', ig_code = '" & code_ig _
& "', ig_latitude = '" & latitude & "', ig_longitude = '" & longitude _
& "', ig_altitude= '" & altitude & "', ig_latitude_deg_dec = '" & latitude_deg_dec _
[[liste des différents attributs à mettre à jour dans l'update]]
& "' where ig_nom = '" & nom_ig & "'"
[B] Set ResultReq = BDDExecuterRequete(connexion, ReqModif)
If ResultReq.State = adStateOpen Then
MsgBox (ResultReq.GetString)
End If[/B]
Else
[[on fait pareil avec un insert]]
End If
Call BDDFermerConnexion(connexion)
Set NSTGCreerStation = ResultReq
End Function