Rainbow писал(а):Dim bDoAction as Boolean
- Код: Выделить всё
Select case Typ
Case 1:
bDoAction = НадоСейчасЗапускать1(reader)
Case 2:
bDoAction = НадоСейчасЗапускать2(reader)
и так далее перечисляешь все свои типы и делаешь нужные вызовы.
End select
If (bDoAction) then
делаешь опрос сервера
end if
Вот присер моей функции НадоСейчасЗапускать6(reader)
- Код: Выделить всё
Public Sub НадоСейчасЗапускать6()
Dim Typ6connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Parametrierungs DB.mdb;"
Dim Typ6Connection As New OleDbConnection(Typ6connStr)
Dim Typ6SelectQuery As String = "SELECT Abfr_Zeit.ServIndex,Abfr_Zeit.Typ, Abfr_Zeit.Einmalig, Abfr_Zeit.Zeit FROM Abfr_Zeit WHERE (((Abfr_Zeit.Typ)=6) AND ((Abfr_Zeit.Einmalig)=(SELECT MIN(Einmalig) FROM Abfr_Zeit WHERE [Einmalig] + [Zeit] > Now )))"
Dim Typ6Command As New OleDbCommand(Typ6SelectQuery, Typ6Connection)
Dim Typ6Date As Date
Typ6Connection.Open()
Dim Typ6Reader As OleDbDataReader
Dim StartParametr As OleDbDataReader
Typ6Reader = Typ6Command.ExecuteReader()
While Typ6Reader.Read()
Typ6Date = (Typ6Reader.GetDateTime(2) + ", " + Typ6Reader.GetDateTime(3))
StartParametr = Typ6Reader.GetDateTime(0)
End While
If Format(Date.Now, "dd.MM.yyyy hh:mm") = Format(Typ6Date, "dd.MM.yyyy hh:mm") Then
Start FTPlogin.exe with Parametr = StartParametr 'Eto Tolko primer
End If
Typ6Reader.Close()
Typ6Connection.Close()
End Sub
Только мне не совсем понятно, нужно ли здесь:
- Код: Выделить всё
If Format(Date.Now, "dd.MM.yyyy hh:mm") = Format(Typ6Date, "dd.MM.yyyy hh:mm") Then
Start FTPlogin.exe with Parametr = StartParametr 'Eto Tolko primer
End If
И где вообще (в каком месте кода) должно происходить сравнение даты и времени или одного времени с текущим?
Внутри этой функуии или за ее пределами?
А где все то, о чем мы с тобой говорили? - Select Case, вызовы отдельных процедур для разных типов? А где осознание схемы программы, которую я тебе писала?
