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

[ClaudioMalorgio]

Cioè mettiamola cosi se riuscissi a prelevare il campo ANUMBER dalla tabella INBOX tramite questa query

Comando_Server.CommandText = "SELECT * FROM INBOX"

andrebbe bene ... Ovvio che facendo questa query gia lo prelevo ma vorrei assegnarlo ad una variabile tipo

Dim ANUMBER As String = ?

cosi da poter utilizzare questo parametro nella query successiva

Comando.CommandText = "SELECT * FROM numeri WHERE numero = @ANUMBER"
Comando.Parameters.AddWithValue("@ANUMBER", ANUMBER)

[gibra]

Non mi pare particolarmente difficile.

1. Usa un DataReader per prelevare i numeri di telefono,
e mentre lo scorri aggiungi il numero ad un ArrayList.

2. Alla fine, per ogni elemento dell'ArrayList esegui la query sul database.

[ClaudioMalorgio]

Originariamente inviato da gibra
Non mi pare particolarmente difficile.

lo spero

1. Usa un DataReader per prelevare i numeri di telefono,
e mentre lo scorri aggiungi il numero ad un ArrayList.

Non ci avevo pensato ora provo !

2. Alla fine, per ogni elemento dell'ArrayList esegui la query sul database.

Con un for each ?

[Pirelli72]

Oppure....
Ti scrivo questo semplice esempio:

 Dim objdatadapter As New OleDbDataAdapter
        Dim objdataset As New DataSet
        Dim obj As DataTable
        Dim connessione As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\db1.mdb")
        Dim comando As OleDbCommand = New OleDbCommand()
        comando.Connection = connessione
        comando.CommandText = "SELECT Nome FROM Anagrafica"
        comando.CommandType = CommandType.Text
        objdatadapter.SelectCommand = comando
        objdatadapter.Fill(objdataset, "Anagrafica")

        obj = objdataset.Tables(0)

        For i As Integer = 0 To obj.Rows.Count - 1
            Dim numero As String = obj.Rows.Item(i).Item(0).ToString
        Next

oppure:

 Dim objdatadapter As New OleDbDataAdapter
        Dim objdataset As New DataSet
        Dim obj As DataTable
        Dim connessione As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\db1.mdb")
        Dim comando As OleDbCommand = New OleDbCommand()
        comando.Connection = connessione
        comando.CommandText = "SELECT Nome FROM Anagrafica"
        comando.CommandType = CommandType.Text
        objdatadapter.SelectCommand = comando
        connessione.Open()
        Dim reader As System.Data.OleDb.OleDbDataReader = comando.ExecuteReader()

        While reader.Read
            Dim nome As String = reader("Nome").ToString
        End While

[ClaudioMalorgio]

Originariamente inviato da Pirelli72
Oppure....
Ti scrivo questo semplice esempio:

 Dim objdatadapter As New OleDbDataAdapter
        Dim objdataset As New DataSet
        Dim obj As DataTable
        Dim connessione As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\db1.mdb")
        Dim comando As OleDbCommand = New OleDbCommand()
        comando.Connection = connessione
        comando.CommandText = "SELECT Nome FROM Anagrafica"
        comando.CommandType = CommandType.Text
        objdatadapter.SelectCommand = comando
        objdatadapter.Fill(objdataset, "Anagrafica")

        obj = objdataset.Tables(0)

        For i As Integer = 0 To obj.Rows.Count - 1
            Dim numero As String = obj.Rows.Item(i).Item(0).ToString
        Next

mneglio questo o il DataReader ? scusate se faccio domande magari idiote ma ancora non ho soldie basi in Vb.net perciò mi serve sapere

[Pirelli72]

Scusa nel frattempo avevo aggiunto il DataReader.... (post precedente)

[ClaudioMalorgio]

Originariamente inviato da Pirelli72
Scusa nel frattempo avevo aggiunto il DataReader.... (post precedente)

Grazie , sei troppo gentile 100 persone come te (e come anche l'altro utente che mi ha illuminato pure lui) e sarebbe un mondo migliore !

[Pirelli72]

Tieni conto che ti ho fatto solo un esempio, il database e i campi sono differenti dai tuoi, ma il principio è sempre quello.

[ClaudioMalorgio]

Originariamente inviato da Pirelli72
Tieni conto che ti ho fatto solo un esempio, il database e i campi sono differenti dai tuoi, ma il principio è sempre quello.

E infatti quando uso il tuo principio funziona quando uso il mio no !
in modalità debug (x86) mi genera un eccezione nel While

 While reader.Read
                ANUMBER = reader("INBOX").ToString
 End While

"IndexOutOfRangeException Non gestita" ... il mio pensiero primario è stato "WFT???? "

[Pirelli72]

La riga di codice:

Originariamente inviato da ClaudioMalorgio

 While reader.Read
                ANUMBER = reader("INBOX").ToString
 End While

è sbagliata, devi inserire il nome del Campo non della tabella.