[VB.NET]: Record attivo dopo istruzione SQL "INSERT"

[tony83]

Ecco un classico esempio connessione ado.net per lettura dati con datareader:

dim x
							' ADO.NET

'Percorso del DataBase (Biblio.mdb)
Dim PercorsoDB As String = "...."
'Stringa di Connessione
Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
			"Data Source=" & PercorsoDB

Dim Cn As New OleDbConnection(ConnString)

Dim sql As String = "select * from authors where au_id=?"

Dim cmd As New OleDbCommand(sql, cn)

Dim dr As OleDbDataReader = cmd.ExecuteReader

Do While dr.Read()
	X = dr(“nome_campo”)
Loop

Dr.close
Dr.nothing
Cn.close
Cn = nothing

Se invece devi fare una insert, delete o update

					

		'ADO.NET

'Percorso del DataBase (Biblio.mdb)
Dim PercorsoDB As String = "...."
'Stringa di Connessione
Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
			"Data Source=" & PercorsoDB

Dim Cn As New OleDbConnection(ConnString)

Dim sql As String = "select * from authors where au_id=?"

Dim cmd As New OleDbCommand(sql, cn)

Dim int_numeroRighe As integer = ExecuteNonQuery
' oppure semplimente: executeNonquery

if int_numeroRighe > 0 then
	messagebox.show("Eseguito")
end if

Cn.close
Cn = nothing

la variabile integer da me creata conterrà il numero di righe totali
che la query ha eseguito