Inserire valori in un Array

USE TuoDB

CREATE TABLE ProvaTabella
(
  id int IDENTITY(1,1) PRIMARY KEY CLUSTERED,
  descrizione varchar(20) NOT NULL
)

INSERT ProvaTabella
SELECT 'UNO'
INSERT ProvaTabella
SELECT 'DUE'
INSERT ProvaTabella
SELECT 'TRE'
INSERT ProvaTabella
SELECT 'QUATTRO'
INSERT ProvaTabella
SELECT 'CINQUE'

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

USE TuoDB

DROP PROCEDURE proc_GetFromProvaTabella
DROP TABLE ProvaTabella

Dim myArray as String()
Dim DT as New DataTable("array")
Dim DR as DataRow
Dim i as Int32 = 0

'popoli il DataTable con una query che torna una colonna "indirizzo", ad esempio.

If Not DT Is Nothing andalso DT.Rows.Count > 0 Then
  ReDim myArray(DT.Rows.Count)
  For Each DR in DT.Rows
    myArray(i) = DR("indirizzo")
    i += 1
  Next
End If

Dim DR as DataRow
Dim i as Int32 = 0

' se il datatable non è vuoto (DT è il datatable)
If Not DT Is Nothing andalso DT.Rows.Count > 0 Then

  ' avevo usato la redim, ma puoi farlo anche così
  Dim myArray(DT.Rows.Count) as String

  ' per ogni riga del datatable ciclo
  For Each DR in DT.Rows
    myArray(i) = DR("indirizzo")
    i += 1
  Next

End If