> <WebMethod()> _ > Public Function GetWebServiceHit(ByVal tnRecord As Integer) As DataSet > Dim cData As String > Dim loDataProvider As Framework.Data = New Framework.Data > cData = Framework.FileFunction.GetIni(Framework.App.cStartupDirectory + "\Main.ini", "System", "Data") > CheckLogin() > If loDataProvider.SQLExec("SELECT TOP " + tnRecord.ToString + _ > " WSH.Numero,WSH.AddDate,WSH.Method,WSH.Lap,Member.Prenom,Member.Nom,WSH.IP FROM WSH " + _ > "INNER JOIN " + cData + _ > "\Member ON WSH.AddUser=Member.Numero ORDER BY WSH.Numero DESC", App.aConnection(1)) = False Then > Throw New System.Exception(Framework.App.cError) > End If > Return loDataProvider.oDataSet > End Function > > <WebMethod()> _ > Public Function GetHit(ByVal tnRecord As Integer) As DataSet > Dim lnEXE As Integer > Dim lnCounter As Integer > Dim cData As String > Dim loDataProvider As Framework.Data = New Framework.Data > cData = Framework.FileFunction.GetIni(Framework.App.cStartupDirectory + "\Main.ini", "System", "Data") > CheckLogin() > If loDataProvider.SQLExec("SELECT TOP " + tnRecord.ToString + _ > " Hit.Numero,Hit.AddDate,Hit.NoEXE,Hit.NoProcess,Hit.NoSubProc,Hit.IP,Hit.Lap," + _ > "IIF(ISNULL(Member.Prenom),"""",Member.Prenom) AS Prenom,IIF(ISNULL(Member.Nom),"""",Member.Nom) " + _ > "AS Nom,Hit.WWC,SPACE(40) AS EXE FROM Hit LEFT JOIN " + cData + _ > "\Member ON Hit.AddUser=Member.Numero ORDER BY Hit.Numero DESC", App.aConnection(1)) = False Then > Throw New System.Exception(Framework.App.cError) > End If > Return loDataProvider.oDataSet > End Function >>