[VB.NET 2010] Prelevare Campi di un record da query SELECT

[ClaudioMalorgio]

Sono sempre alle prese con VB.NET 2010 , ora devo fare un confronto tra due DB Access uno contiene il campo ANumber (numeri di telefono) della tabella INBOX e l'altro contiene il campo numero della tabella Numeri

ora devo capire come prelevare questi numeri e poterli confrontare , in php con 4 righe lo facevo ma VB.net mi sembra piu complesso , per ora ho fatto questo

Private Sub ConnettiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnettiToolStripMenuItem.Click
        Dim isAvailable = My.Computer.Network.IsAvailable
        'Rilevo se la connessione a internet esiste
        If isAvailable Then
            'Creo un Dataadapter per il server con Tabella INBOX
            Dim ServerDataAdapter As New OleDbDataAdapter()
            ServerDataAdapter.SelectCommand = New OleDbCommand()
            ServerDataAdapter.SelectCommand.Connection = Connessione_server
            ServerDataAdapter.SelectCommand.CommandText = "SELECT * FROM INBOX"
            ServerDataAdapter.SelectCommand.CommandType = CommandType.Text
            Connessione.Open()
            'Inserisco le intestazioni nel dataset
            ServerDataAdapter.Fill(DataSet, "INBOX")
            'Chiudo la connessione con il Database
            Connessione.Close()
            'Creo un dataadapter per il DB contentente la tabella Numeri
            Dim SmsPanel As New OleDbDataAdapter()
            SmsPanel.SelectCommand = New OleDbCommand()
            SmsPanel.SelectCommand.Connection = Connessione_server
            SmsPanel.SelectCommand.CommandText = "SELECT * FROM numeri"
            SmsPanel.SelectCommand.CommandType = CommandType.Text
            Connessione.Open()
            'Inserisco le intestazioni nel dataset
            SmsPanel.Fill(DataSet, "numeri")
            'Chiudo la connessione con il Database
            Connessione.Close()
        End If

    End Sub

ma ora non so come prendere ANUMBER (campo tabella INBOX) e confrontarlo con numero (campo tabella Numeri)

[Pirelli72]

Ma sono due DB distinti ?

[ClaudioMalorgio]

Sisi due access .mdb distinti

[ClaudioMalorgio]

Ora l'ho modificato , è che sono un po a corto di idee ... non so come si confrontano due tabelle di due DB access diversi ...

 Private Sub ConnettiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnettiToolStripMenuItem.Click
        Dim isAvailable = My.Computer.Network.IsAvailable
        'Rilevo se la connessione a internet esiste
        If isAvailable Then
            'Creo un Dataadapter per il server con Tabella INBOX
            Dim ServerDataAdapter As New OleDbDataAdapter()
            Dim SmsPanel As New OleDbDataAdapter()
            'Stabilisco la connessione ed eseguo due semplici query
            ServerDataAdapter.SelectCommand = New OleDbCommand()
            ServerDataAdapter.SelectCommand.Connection = Connessione_server
            ServerDataAdapter.SelectCommand.CommandText = "SELECT * FROM INBOX"
            ServerDataAdapter.SelectCommand.CommandType = CommandType.Text
            SmsPanel.SelectCommand = New OleDbCommand()
            SmsPanel.SelectCommand.Connection = Connessione_server
            SmsPanel.SelectCommand.CommandText = "SELECT * FROM numeri"
            SmsPanel.SelectCommand.CommandType = CommandType.Text

        End If

    End Sub

su msdn non c'è molto parla sempre i un solo DB access

[Pirelli72]

Ma se sono due DB separati la stringa di connessione deve per forza cambiare cosa che non vedo.

 ServerDataAdapter.SelectCommand.Connection = Connessione_server

[ClaudioMalorgio]

ok , modificato quel piccolo disguido , avevo creato una connessione diversa ma l'intelsense me l'ha scritta uguale e non ho visto , cmq sia ancora non ho capito come confrontarli...
uso LINQ ? (ma è come brancolare nel buio dato che non l'ho mai usato)
Devo lavorare con i dataset?

[ClaudioMalorgio]

Originariamente inviato da ClaudioMalorgio
ok , modificato quel piccolo disguido , avevo creato una connessione diversa ma l'intelsense me l'ha scritta uguale e non ho visto , cmq sia ancora non ho capito come confrontarli...
uso LINQ ? (ma è come brancolare nel buio dato che non l'ho mai usato)
Devo lavorare con i dataset?

perchè in teoria la query di Smspanel dovrebbe avere una clausola WHERE numero = @ANUMBER

che ANUMBER è il campo della tabella INBOX della query precedente

[Pirelli72]

Scusami ancora, che tipo di confronto devi fare?? Hai la necessita di utilizzare per forza due DB ?

[ClaudioMalorgio]

si perchè il DB della tabella INBOX (prima query) non è mio ma in remoto , la seconda query (smspanel, quella della tabella numeri) è il locale ... la logica è questa

rilevo se c'è un messaggio nella tabella inbox .. se c'è ovviamente c'è anche un numero (campo ANUMBER)

dopodiche confronto ANUMBER con i numeri del mio DB (seconda query) se c'è corrispondenza invio una email... ho tutto ma sto cavolo di confronto non riesco a farlo .. per ora son bloccato all ultimo codice che ho postato

[ClaudioMalorgio]

Ho avuto una piccola illuminazione .. cosi ti posso far vedere quello che vorrei fare

Private Sub ConnettiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnettiToolStripMenuItem.Click
        Dim isAvailable = My.Computer.Network.IsAvailable
        'Rilevo se la connessione a internet esiste
        If isAvailable Then
            Dim ANUMBER As String = +391234567
            Dim Comando As OleDbCommand = New OleDbCommand()
            Dim Comando_Server As OleDbCommand = New OleDbCommand()
            Comando_Server.Connection = Connessione_server
            Comando_Server.CommandText = "SELECT * FROM INBOX"
            Comando.Connection = Connessione
            Comando.CommandText = "SELECT * FROM numeri WHERE numero = @ANUMBER"
            Comando.Parameters.AddWithValue("@ANUMBER", ANUMBER)


        End If

    End Sub

solo che qui ANUMBER l'ho fissato io (+3912345678) e non è preso dalla query precedente !!! se riuscissi a farlo ...