Il programmatore pazzo...

[biocco]

Sono alle prime col .NET e vorrei sapere sei il codice che ho scritto e' corretto. Funziona ma lascia le connessioni aperte con il server Oracle. Ne ho fatte 70... Ho bloccato tutto... Ora l'ho riscritto ma meglio chiede qualce consiglio. :master: :quipy:

GRAZIE
__________________________________________________ _________________

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
lblError.Text() = ""
lblUserName.Text() = ""
lblUserName.Attributes("style") = "text-align: left;"
Dim Utente As String
Dim CFisc As String
Dim Nome_User As String
Dim Cogn_User As String
Dim Pos_User As String
Dim ConnectionString As String
Dim DataReader As OracleDataReader
Dim ConnettiUtente As New OracleConnection

Dim cmd As New OracleCommand
Dim cmd1 As New OracleCommand
Dim cmd2 As New OracleCommand
Utente = UCase(TextBoxAccesso.Text())


ConnectionString = "user id=USER;data source=SOURCE;password=PWD"
ConnettiUtente.ConnectionString = ConnectionString
cmd.CommandText = "SELECT PERSCFIS FROM UTENTI WHERE USERNAME = '" & Utente & "'"
ConnectionString.Close()
cmd.Connection = ConnettiUtente
cmd1.Connection = ConnettiUtente
cmd2.Connection = ConnettiUtente
ConnettiUtente.Open()
Try
DataReader = cmd.ExecuteReader()
DataReader.Read()
CFisc = DataReader.GetString(0)
If CFisc Is New System.InvalidOperationException Then
Throw New System.InvalidOperationException
End If
DataReader.Close()
cmd1.CommandText = "SELECT DSCOGNOME, DSNOME, POSIZIONE FROM PERSONALE WHERE CDFISC = '" & CFisc & "'"
DataReader = cmd1.ExecuteReader()
DataReader.Read()
Cogn_User = DataReader.GetString(0)
Nome_User = DataReader.GetString(1)
Pos_User = DataReader.GetString(2)
DataReader.Close()
lblUserName.Text() = Cogn_User & " " & Nome_User
cmd2.CommandText = "SELECT DSCOGNOME, DSNOME, CDFISC, POSIZIONE, DSPOSIZIONE FROM AMM.WORLD, PERSONALE WHERE POSCOH = '" & Pos_User & "' AND POSCOD = POSIZIONE ORDER BY DSPOSIZIONE, DSCOGNOME"
DataReader = cmd2.ExecuteReader()
DataGrid1.Visible = True
DataGrid1.DataSource = DataReader
DataGrid1.DataBind()
DataReader.Close()
ConnettiUtente.Close()
Catch ex As Exception
lblError.Text() = "Utente non riconosciuto"
DataGrid1.Visible = False
Exit Sub
End Try

End Sub

__________________________________________________ _________________

[biocco]

nessuno qua sa programma? naaa non ci credo.

dai aiutatemi la sintassi di programmazione i cicli l'ordine delle variabili e dei comandi e' corretto? Grazie

[nicki]

ConnectionString = "user id=USER;data source=SOURCE;password=PWD"
ConnettiUtente.ConnectionString = ConnectionString
cmd.CommandText = "SELECT PERSCFIS FROM UTENTI WHERE USERNAME = '" & Utente & "'"
ConnectionString.Close()

Fai un close della stringa di connessione?

ConnettiUtente.Close()
Catch ex As Exception
lblError.Text() = "Utente non riconosciuto"
DataGrid1.Visible = False
Exit Sub
End Try

Io programmo in C# ma le cose si dovrebbero fare nella stessa maniera:

SQLConnction myConn = new SQLConnection(StringaDiConnessione);
try{
    myConn.Open();
    /*
        ...tutte le altre operazioni....
    */
}
catch(Exception err){
    Response.Write("Errore:"+err.message);
}
finally{
    if(Convert.toBool(myConn.State))myConn.Close();
}