webService - AIUTATEMI VI PREGO

[scmatteo]

vi chiedo aiuto.. sono ai primi passi con i WEB SERVICe...

allora nel mio servizio ho il mio file asmx... così compilato, con 1 metodo

<WebMethod()> Public Function LeggiUtenti() As String()
REM CREO IL DATASET PER LA LISTA UTENTI
Dim connUtenti As New OdbcConnection(DSN)
Dim SQLUtenti As String
SQLUtenti = "SELECT * FROM utenti order by Cognome"
Dim datasUtenti As New OdbcCommand(SQLUtenti, connUtenti)
Dim ListUtenti As OdbcDataReader
connUtenti.Open()
REM CONTROLLO IL FLUSSO
ListUtenti = datasUtenti.ExecuteReader
End Function

praticamente faccio una connessione ad un db e recupero dei record
ok

ora passiamo al progetto in VB, dopo aver aggiunto il riferimento web (che in questo caso è in locale quindi come localhost)
apro una form metto un controllo listbox e al LOAD form piazzo il mio codice
così compilato:

Private Sub Lista_Utenti_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
REM CONTROLLO IL FLUSSO
Dim ListUtenti As New localhost2.UtentiOperazioni()
Dim utenti() As String
utenti = ListUtenti.LeggiUtenti
Me.listabox.DataSource = utenti
Me.listabox.DisplayMember = "Nome"
Me.listabox.ValueMember = "IDCliente"

End Sub


premetto chedi errori non ne ho, volevo chiedervi:

va bene il concetto di utilizzo del metodo in questione?

inoltre come faccio a visualizzare i record dentro alla combobox?


grazie a tutti

[scmatteo]

si ho fatto unamodifica, al servizio, più precisamente al metodo del servizio, ora ho inserito questo codice, in maniera ti popolare un dataset e mettere i record dentro ad un array..


<WebMethod()> Public Function LeggiUtenti() As String()
REM CREO IL DATASET PER LA LISTA UTENTI
Dim connUtenti As New OdbcConnection(DSN)
Dim SQLUtenti As String
SQLUtenti = "SELECT IDCliente, Nome, Cognome FROM tanagrafica3 order by Cognome"
Dim Adatta As New OdbcDataAdapter(SQLUtenti, connUtenti)
Dim dataset As New DataSet()
Dim sReturn() As String
Dim IDCliente As Integer
Dim Nominativo As String

Adatta.Fill(dataset, "Utenti")
ReDim sReturn(dataset.Tables(0).Rows.Count)
For IDCliente = 0 To dataset.Tables(0).Rows.Count - 1
sReturn(IDCliente) = CStr(dataset.Tables(0).Rows(IDCliente).Item(2))

Next
Return sReturn
End Function



ora però ho un problema, nel programma cliet.. allora ho la mia combo box, e nel form Load inserisco il seguente codice:


REM CONTROLLO IL FLUSSO
Dim ListUtenti As New localhost2.UtentiOperazioni()
Dim utenti() As String
utenti = ListUtenti.LeggiUtenti
Me.listabox.DataSource = utenti


e fino qua tuttook..

in pratica ho assegnato come datasource il metodo LeggiUtenti...

ora come faccio a popolare la combo?

vi prego aiutatemi..
un'altra info...

sto provando in locale il tutto, mi sono accorto xò che il tutto è molto lento... immagino lo sia ancora di più via internet...

consigli ben accettati sull'ottimizzazione della struttura diun servizio WEB...

grazie a tutti