Visual Basic

<br />
Public Structure SERVS1Result<br />
Public NumeroComm As Integer<br />
Public Comm As SComm<br />
 <br />
Public Structure SComm<br />
Public Nome As String<br />
Public Indirizzo As String<br />
Public Cap As String<br />
Public Comune As String<br />
Public SiglaProvincia As String<br />
Public Email As String<br />
Public telefono As String<br />
End Structure<br />
End Structure<br />

<br />
Public Function SERVSUPP001(ByVal ist As String) As SERVS1Result()<br />
<br />
.........code..........<br />
<br />
If Not risolvi = "" Then<br />
            objConn.Open()<br />
<br />
            Dim Com() As SERVS1Result 'Giusto<br />
            <br />
            Dim pec As String<br />
            Dim i As Integer = 0<br />
            Dim x As Integer = 0<br />
            Dim c As Integer<br />
            Dim objCmd2 As New OleDbCommand("ConnectionString", objConn)<br />
            Dim objReader2 As OleDbDataReader<br />
            objReader2 = objCmd2.ExecuteReader<br />
<br />
            While objReader2.Read<br />
                pec = (objReader2.GetString(9))<br />
                If pec = "Y" Then<br />
                    ReDim Preserve Com(i)<br />
<br />
      Com(i).Comm.Nome = objReader2.GetString(2) 'Sede<br />
      Com(i).Comm.Indirizzo = objReader2.GetString(4) 'indirizzo<br />
      Com(i).Comm.telefono = objReader2.GetString(5) 'telefono<br />
      Com(i).Comm.Email = objReader2.GetString(8) 'email<br />
      Com(i).Comm.Cap = CapCom<br />
      Com(i).Comm.Comune = Comune<br />
      Com(i).Comm.SiglaProvincia = Provincia<br />
                    i = i + 1<br />
                    End If<br />
<br />
            End While<br />
<br />
            objConn.Close()<br />
            objConn.Dispose()<br />
            <br />
            <br />
                Return Com<br />
            <br />
               End If<br />
<br />
<br />
    End Function<br />

<br />
Public Structure SComm<br />
Public Nome As String<br />
Public Indirizzo As String<br />
Public Cap As String<br />
Public Comune As String<br />
Public SiglaProvincia As String<br />
Public Email As String<br />
Public telefono As String<br />
End Structure<br />