Ado.Net utilizzo di query con Parametri (VB.Net e C#)

Il frammento di codice qui di seguito, illustra, come creare da codice Ado.Net, delle query con Parametri, tramite il linguaggio di programmazione Visual Basic Net e C#-

VB.Net

'esempio di utilizzo di query con parametri

Dim con As String =

"Data Source=(local);Integrated Security=SSPI; Initial Catalog=test"

Using ConDati As New SqlConnection(con)

Dim Sql As String =

"Select * from Dati where id = @id"

Try

'

ConDati.Open()

Dim DatiCmd As New SqlCommand(Sql, ConDati)

DatiCmd.Parameters.AddWithValue(

"@id"

, 1)

Dim risultatoReader As SqlDataReader = DatiCmd.ExecuteReader()

Do While

risultatoReader.Read()

MessageBox.Show(risultatoReader("Nome"))

Loop

Catch exdb As SqlException MessageBox.Show("Errore:" & exdb.Message)

Return

Catch ex As Exception MessageBox.Show("Errore:" & ex.Message)

Return

End

Try

ConDati.Close()

End

Using

C#

//esempio di utilizzo di query con parametri

string con = "Data Source=(local);Integrated Security=SSPI; Initial Catalog=test";using (SqlConnection ConDati = new SqlConnection(con))

{

string Sql = "Select * from Dati where id=@id";

try

{

ConDati.Open();

SqlCommand DatiCmd = new SqlCommand(Sql, ConDati);

DatiCmd.Parameters.AddWithValue(

"@id"

, 1);

SqlDataReader risultatoReader = DatiCmd.ExecuteReader() ;

while (risultatoReader.Read())

{

MessageBox.Show( (string)risultatoReader["nome"]);

}

}

catch (SqlException exdb)

{

MessageBox.Show("Errore:" + exdb.Message);return;

}

catch (Exception ex)

{

MessageBox.Show("Errore:"

+ ex.Message);

return;

}

ConDati.Close();

}