[VB.NET] Convertire Script da PHP a VB.NET

[ClaudioMalorgio]

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

<?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

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?

[ClaudioMalorgio]

per ora sono arrivato qui

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 Reader_SmsPanel As OleDbDataReader
        Dim ANUMBER As String
        Dim SMSMESSAGE As String
        Dim RECEIVEDDATE As Date
        Dim NUMERO As String
        Dim EMAIL As String

        Comando_SmsGateway.Connection = Connessione_server
        Comando_SmsGateway.CommandText = "SELECT * FROM INBOX"
        Comando_SmsGateway.CommandType = CommandType.Text
        Adapter_SmsGateway.SelectCommand = Comando_SmsGateway
        Connessione_server.Open()
        Reader_SmsGateway = Comando_SmsGateway.ExecuteReader()

        While Reader_SmsGateway.Read
            ANUMBER = Reader_SmsGateway("ANUMBER")
            SMSMESSAGE = Reader_SmsGateway("SMSMESSAGE")
            RECEIVEDDATE = Reader_SmsGateway("RECEIVEDDATE")
            Comando_SmsPanel.Connection = Connessione
            Comando_SmsPanel.CommandText = "SELECT * FROM numeri INNER JOIN email ON email.id_email = numeri.idemail WHERE numero = @ANUMBER"
            Comando_SmsPanel.CommandType = CommandType.Text
            Comando_SmsPanel.Parameters.AddWithValue("@ANUMBER", ANUMBER)
            Adapter_SmsPanel.SelectCommand = Comando_SmsPanel
            Connessione.Open()
            Reader_SmsPanel = Comando_SmsPanel.ExecuteReader()
            Try
                NUMERO = Reader_SmsPanel("numero")
                EMAIL = Reader_SmsPanel("email")
            Catch Eccezione As Exception
                 Exit While
            End Try
            Connessione.Close()
        End While
        Connessione_server.Close()
    End Sub

ma non so inviare la email

[Il Totem]

Leggi qui.

[ClaudioMalorgio]

Originariamente inviato da Il Totem
Leggi qui.

grazie , che fissa quel plugin

[ClaudioMalorgio]

Originariamente inviato da ClaudioMalorgio
grazie , che fissa quel plugin

e comunque System.Web.Mail non si può usare su Visual Basic 2010 , ma bisogna usare system.net.mail .. però non funziona