Der Datenupload:
PHP Code:
Dim url As String
url = "ftp://" + ID.Text + ":" + PW.Text + "@" + Server.Text + "/" + Datei.Text
Function Upload(ByVal Daten As String)
Try
Using wc As New Net.WebClient()
wc.UploadString(url, Daten)
End Using
Catch ex As Exception
MsgBox("Fehler")
End Try
End Function
Der Vorgang des hochladens (im Beispiel die Funktion "uploaden(daten as string)" der Information(die Abgerufen werden muss!) muss in einer Endlosschleife wiederholt werden, die sich alle paar Minuten/Stunden wiederholt:
PHP Code:
while 1
uploaden(daten)
System.Threading.Thread.Sleep("wartezeit in millisekunden")
while end
jedoch müssen davor die Daten ausgelesen werden. Dies geht über diesen SQL-Befehl (liest die top 10 aus):
PHP Code:
SELECT * FROM (
SELECT name, level, rownum AS x
FROM tabelle
ORDER BY level
)
WHERE x <= 10;
um die Daten abzurufen, müsste man eine SQL-Reader einbauen:
PHP Code:
Dim myConnection As SqlConnection = New SqlConnection()
Dim cmd As New SqlCommand
Dim myAdapter As New SqlDataAdapter
Dim myData As SqlDataReader
myConnection.ConnectionString = "Server=ServerIP;Database=Datenbank;Uid=Benutzername;Pwd=Passwort;"
Try
myConnection.Open()
Catch myerror As SqlException
End Try
cmd.CommandText = "unser SQL-Befehl"
myAdapter.SelectCommand = cmd
myData = cmd.ExecuteReader()
While myData.Read()
End While
myData.Close()
myConnection.Close()
Wenn man dann das alles zusammenfügt sieht es in etwa so aus:
PHP Code:
Public Class Form1
Dim x As Integer = 0
Dim url As String
Dim Daten As Array
Dim myConnection As SqlConnection = New SqlConnection()
Dim cmd As New SqlCommand
Dim myAdapter As New SqlDataAdapter
Dim myData As SqlDataReader
Function Upload(ByVal Daten As String)
Try
Using wc As New Net.WebClient()
wc.UploadString(url, Daten)
End Using
Catch ex As Exception
MsgBox("Fehler")
End Try
End Function
Function sql()
x = 0
cmd.CommandText = "SELECT * FROM (SELECT name, level, rownum AS x FROM tabelle ORDER BY level) WHERE x <= 10;"
myAdapter.SelectCommand = cmd
myData = cmd.ExecuteReader()
While myData.Read()
Return Daten
End While
myData.Close()
End Function
Private Sub Start(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
myConnection.ConnectionString = "Server=ServerIP;Database=Datenbank;Uid=Benutzername;Pwd=Passwort;"
Try
myConnection.Open()
Catch myerror As SqlException
End Try
Thread.Text = "<object data=""" + "http://" + Server.Text + "/" + Datei.Text + """ type=""text/plain"" width=""300"" height=""100""> </object>"
url = "ftp://" + ID.Text + ":" + PW.Text + "@" + Server.Text + "/" + Datei.Text
While 1
upload(Daten)
daten = ""
System.Threading.Thread.Sleep(3600000)
End While
myConnection.Close()
End Sub
End Class
Der Source ist jetzt Zwar nicht perfekt (und auch nicht zu 100% getestet) aber er müsste Funktionieren, und müsste Veranschaulichen, was gemacht wird!
