<%@ WebService Language="VB" Class="EOSensors" %> Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Web.Services Public Class EOSensors : Inherits WebService Public Function GetSensor(ByVal Name As String) As DataSet 'Dim MyConnection As OleDbConnection = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("_db/SensorDb.mdb") & ";") Dim MyConnection As SqlConnection = New SqlConnection("server=itcnt15.itc.nl;database=sensor;uid=sensorread;pwd=beatle4weels;") If (Name = "") Then Dim MyCommand As SqlDataAdapter = New SqlDataAdapter("SELECT Distinct * FROM WebQry_SensorSpecs ORDER BY Name", MyConnection) Dim DS As New DataSet MyCommand.Fill(DS, "Sensors") Return DS Else Dim MyCommand1 As SqlDataAdapter = New SqlDataAdapter("Select Distinct Name, SensorDescription from WebQry_SensorSpecs Where Name='" & Name & "'", MyConnection) Dim MyCommand2 As SqlDataAdapter = New SqlDataAdapter("Select * from WebQry_Sensor2Missions Where Name='" & Name & "'", MyConnection) Dim MyCommand3 As SqlDataAdapter = New SqlDataAdapter("Select * from WebQry_Sensor2Urls Where Name='" & Name & "'", MyConnection) Dim MyCommand4 As SqlDataAdapter = New SqlDataAdapter("Select * from WebQry_Sensor2Bands Where Name='" & Name & "'", MyConnection) Dim DS As New DataSet MyCommand1.Fill(DS, "SensorSpecs") MyCommand2.Fill(DS, "MissionSpecs") MyCommand3.Fill(DS, "Urls") MyCommand4.Fill(DS, "Bands") If DS.Tables("SensorSpecs").Rows.Count > 0 Then Return DS Else ' Do Nothing yet, ToDo throw an exception End If End If End Function Public Function GetSatellite(ByVal Name As String) As DataSet Dim MyConnection As SqlConnection = New SqlConnection("server=itcnt15.itc.nl;database=sensor;uid=sensorread;pwd=beatle4weels;") If (Name = "") Then Dim MyCommand As SqlDataAdapter = New SqlDataAdapter("Select Distinct * From WebQry_MissionSpecs", MyConnection) Dim DS As New DataSet MyCommand.Fill(DS, "Satellites") Return DS Else Dim MyCommand1 As SqlDataAdapter = New SqlDataAdapter("select * from WebQry_MissionSpecs Where Name='" & Name & "'", MyConnection) Dim MyCommand2 As SqlDataAdapter = New SqlDataAdapter("select * from WebQry_Mission2Urls Where Name='" & Name & "'", MyConnection) Dim MyCommand3 As SqlDataAdapter = New SqlDataAdapter("select * from WebQry_Mission2Sensors Where Name='" & Name & "'", MyConnection) Dim MyCommand4 As SqlDataAdapter = New SqlDataAdapter("select * from WebQry_Mission2Bands Where Name='" & Name & "'", MyConnection) Dim MyCommand5 As SqlDataAdapter = New SqlDataAdapter("select * from WebQry_Mission2SensorUrls Where Name='" & Name & "'", MyConnection) Dim DS As New DataSet MyCommand1.Fill(DS, "SatelliteSpecs") MyCommand2.Fill(DS, "Urls") MyCommand3.Fill(DS, "SensorSpecs") MyCommand4.Fill(DS, "Bands") MyCommand5.Fill(DS, "SensorUrls") If DS.Tables("SatelliteSpecs").Rows.Count > 0 Then Return DS Else ' Do Nothing yet, ToDo throw an exception End If End If End Function Public Function GetSpectra() As DataSet Dim MyConnection As SqlConnection = New SqlConnection("server=itcnt15.itc.nl;database=sensor;uid=sensorread;pwd=beatle4weels;") Dim MyCommand As SqlDataAdapter = New SqlDataAdapter("Select * From WebQry_SpectrumNames;", MyConnection) Dim DS As New DataSet MyCommand.Fill(DS, "Spectra") Return DS End Function Public Function GetOrbitTypes() As DataSet Dim MyConnection As SqlConnection = New SqlConnection("server=itcnt15.itc.nl;database=sensor;uid=sensorread;pwd=beatle4weels;") Dim MyCommand As SqlDataAdapter = New SqlDataAdapter("Select * From WebQry_OrbitTypes;", MyConnection) Dim DS As New DataSet MyCommand.Fill(DS, "OrbitTypes") Return DS End Function Public Function GetOrganisations() As DataSet Dim MyConnection As SqlConnection = New SqlConnection("server=itcnt15.itc.nl;database=sensor;uid=sensorread;pwd=beatle4weels;") Dim MyCommand As SqlDataAdapter = New SqlDataAdapter("Select * From WebQry_Organisations;", MyConnection) Dim DS As New DataSet MyCommand.Fill(DS, "Organisations") Return DS End Function End Class