ciao a tutti
ho realizzato in php un piccolo script che legge una fonte access , la confronta con database mysql e poi invia una email , se tutto va bene cancella il record da access

ecco il codice
Codice PHP:
<?php 
    require 'include/inc.config.php' ; 
    
    
    ignore_user_abort(0) ; // funzione per far continuare l'esecuzione dello script anche dopo la chiusura della pagina se impostata su TRUE senno non va
    
    set_time_limit(0) ; // funzione per far continuare lo script all'infinito se impostata su 0 
    
    $interval = 60*1 ; // Ogni 60secondi * 1minuto fa il Do{}
    
    $continua == TRUE ; 
    do{ 
                    
                    $connessione_access = odbc_connect('smsgatewayserver42','','') or die ( odbc_errormsg() ) ;
        
                    $sql = "SELECT * FROM INBOX" ;
                     
                    $recordset = odbc_exec($connessione_access,$sql) ;
                    
                    while( $fetch =  odbc_fetch_row($recordset) ) 
                        {
                            $inbox_id = odbc_result($recordset,"INBOXID") ; 
                            
                            $pdu = odbc_result($recordset,"PDU") ; 
                            
                            $sms_message = odbc_result($recordset,"SMSMESSAGE") ; 
                            
                            $a_number = odbc_result($recordset,"ANUMBER") ; 
                            
                            $device_code = odbc_result($recordset,"DEVICECODE") ;
                            
                            $received_date = odbc_result($recordset,"RECEIVEDDATE") ; 
                            
                            $sql = "SELECT * FROM numeri 
                                    INNER JOIN email ON email.id_email = numeri.idemail 
                                    WHERE numero = '$device_code'" ; 
                            
                            $result = mysql_query($sql) or die ( mysql_error() ) ;
                            
                            $fetch = mysql_fetch_array($result) ; 
                            
                            $email = $fetch['email'];
                            
                            $headers = 'MIME-Version: 1.0' . "\r\n" ;
                    
                            $headers .= 'Content-type: text/html; charset=iso-8859-1' . "\r\n" ;
                            
                            $headers .= 'From: [email]xsms@6go.it[/email]' . "\r\n" ;
                            
                            $messaggio =  $sms_message . "
 inviato da : " . $a_number . "
 inviato il : " . $received_date ; 
                            
                            $inviata = mail($email,"Mail - noreply",$messaggio,$headers) ;
                
                            if($inviata)
                            {
                                $sql_delete = "DELETE * FROM INBOX WHERE INBOXID = '$inbox_id' AND PDU = '$pdu' " ; 
                                
                                $recordset_delete = odbc_exec($connessione_access, $sql_delete) ; 
                            }
                            else
                            {
                                // INSERIMENTO MAIL NN INVIATA IN UNA TABELLA DI LOG ERRORI 
                                
                                $sql_log = "INSERT INTO email_non_inviate (inbox_id,pdu,smsmessage,anumber,devidecode,receiveddate) 
                                            VALUES ('$$inbox_id','$pdu','$sms_message','$a_number','$device_code','$received_date') " ; 
                                
                                $result = mysql_query($sql_log) or die (mysql_error() ) ; 
                            }
                    }
    
       sleep($interval) ; // funzione per attendere
       
    }
    
    while($continua) ;
    
?>
vorrei fare la stessa cosa su VB.Net ma a quanto pare sembra piu difficile di quello che credevo

per ora sono qui
codice:
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        'Prendo i dati da smsservergateway e li confronto con smspanel
        Dim Comando_SmsGateway As New OleDbCommand
        Dim Comando_SmsPanel As New OleDbCommand
        Dim Adapter_SmsGateway As New OleDbDataAdapter
        Dim Adapter_SmsPanel As New OleDbDataAdapter
        Dim Reader_SmsGateway As OleDbDataReader
        Dim Rader_SmsPanel As OleDbDataReader



    End Sub
any help?