Public Function Chargement_Venant_GMAO(ByVal stringConnection As String, ByVal SQLTxt As String, ByVal sqlTxtValeurCléSuivante As String, ByVal sqlTxtValeurMaxTimeStamp As String) As DataSet
Dim cn As New OleDbConnection
cn.ConnectionString = stringConnection
cn.Open()
Dim mDS As New DataSet("Général")
mDS.Tables.Add("Données")
mDS.Tables.Add("ValeurCléMax")
mDS.Tables.Add("ValeurMaxTimeStamp")
Dim mAdap As New OleDbDataAdapter(SQLTxt, cn)
mAdap.Fill(mDS.Tables("Données"))
''mettre la valeur suivante de clé pour réduire le nombre de recherche
''dans le cas d'effacement de valeur de clé
If sqlTxtValeurCléSuivante <> "" Then
Dim mAdap1 As New oledbDataAdapter(sqlTxtValeurCléSuivante, cn)
mAdap1.Fill(mDS.Tables("ValeurCléMax"))
End If
If sqlTxtValeurMaxTimeStamp <> "" Then
Dim mAdap1 As New OleDbDataAdapter(sqlTxtValeurMaxTimeStamp, cn)
mAdap1.Fill(mDS.Tables("ValeurMaxTimeStamp"))
End If
cn.Close()
Return mDS
End Function
Partager