Gestionale: sviluppo della comunity!

Anagrafiche.saveCliente(ClienteObj); Anagrafiche.updateCliente(clienteObj)
Anagrafiche.saveArticolo(ArticoloObj)

function GetClienti as List(Of ClienteObject)

dim toReturn as new List(Of ClienteObject)
dim toAdd as ClienteObject

' QUI METTI IL CODICE PER EFFETTUARE LA QUERY
' NON RISCRIVO LA SQLCONN E LA SQLCOMMAND
while sqlr.read
toAdd = new ClienteObject(_sqlr("nome"),sqlr("cognome"))
toReturn.add(toAdd)
end while

return toReturn

end function

function MapListToDgv(byref dgv as datagridview)

dgv.columns.add("","nome")
dgv.columns.add("","cognome")

dim t(1) as string
for each it as clienteObject in [AnagraficaSQL].Getclienti()
t(0)= it.getnome
t(1) = it.getcognome
dgv.rows.add(t)
next 

    Function GetClienti() As List(Of test_interface.IClienteObject)

        Dim toReturn As New List(Of test_interface.IClienteObject)
        Dim toAdd As test_interface.IClienteObject

        Dim sqlc As SqlClient.SqlConnection = New SqlClient.SqlConnection(ConnectionString)
        sqlc.Open()
        Dim sqlz As SqlClient.SqlCommand = New SqlClient.SqlCommand("select * from manager", sqlc)
        Dim sqlr As SqlClient.SqlDataReader = sqlz.ExecuteReader

        While sqlr.Read
            toAdd = New ClienteObject(sqlr("nome"), sqlr("cognome"))
            toReturn.Add(toAdd)
        End While

        Return toReturn

    End Function

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

Public Class Clienti

end class

Public Class Clienti

dim variabile1 as string ' metto string per esempio
dim variabile2 as string
....
dim variabileN as string

' poi metto le funzioni necessarie

public sub popola_clienti

end sub
___________________________
public sub nuovo_cliente

end sub
___________________________

public sub cancella_cliente

end sub

___________________________
end class

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

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

        Dim cn As New SqlConnection("Server=XXX\xxx;Database=XXX;Trusted_Connection=True;")
        Dim cmd As SqlCommand
        Dim dr As SqlDataReader
        Dim sql As String
        cn.Open()
        Try
            sql = "SELECT * FROM listino WHERE listino_id=@listino_id"
            cmd = New SqlCommand(sql, cn)
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@listino_id", SqlDbType.Int).Value = 1
            dr = cmd.ExecuteReader
            If Not dr.HasRows Then
                dr.Close() : dr = Nothing
                cmd.Dispose()
                cn.Close() : cn.Dispose() : cn = Nothing
                cmd.Dispose()
            Else
                dr.Read()
                MsgBox(dr("listino_id") & " " & dr("listino_nome") & " " & dr("listino_sconto"))
                dr.Close() : dr = Nothing
                cmd.Dispose()
                cn.Close() : cn.Dispose() : cn = Nothing
                cmd.Dispose()
            End If
        Catch sqlex As SqlException
            MsgBox(sqlex.Message.ToString)
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

Dim RisultatoSql As ART_Interface.IListinoObject = SqlListino.GetListino(1)