German Warteschleife bis ein Event ausgeführt ist

Discussion in 'German Forum' started by FunnyTaurus, Jun 22, 2009.

  1. FunnyTaurus

    FunnyTaurus Member Licensed User

    Hallo B4P Users,

    ich habe ein kleines Problem mit einer kleinen Applikation. :sign0085:

    Aus meinem Proggi soll an mehrere User (<10) eine SMS versendet werden.
    Die Telefonnummern der einzelnen User werden aus einer lokalen DB gelesen.
    Das funzt soweit auch ganz gut. Es scheint wohl das ab und an mal eine SMS "verloren" geht.
    Hier mal die Sub die die Nummer aus der DB ausliest und die SMS versendet:

    Sub CreateSMS(SMSMessage2Go) 'In dieser Funktion wird die entsprechende SMS generiert und versendet
    con1.Open("Data Source = " & AppPath & "\" & DBName)
    con1.BeginTransaction
    cmd1.CommandText="SELECT Phonenumber FROM UserData"
    reader1.Value=cmd1.ExecuteReader
    Do While reader1.ReadNextRow=True
    sms.New1(reader1.GetValue(0), SMSMessage2Go)
    Loop
    reader1.Close
    con1.EndTransaction
    con1.Close
    End Sub

    Ich vermute mal das ich mit der Do-While Schleife beim Auslesen der DB warten sollte bis jede SMS versendet worden ist.

    Kann mir da evtl jemand von euch mal nen klugen Tip geben ?

    Thx
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice