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

[zoodany]

Salve, sto faticosamente passando da VB6 a VB.NET, e mi sorge questo problema:

Devo inserire un nuovo record in una tabella ed eseguo correttamente l'istruzione SQL "INSERT" tramite commandObject (cmd.ExecuteNonQuery()), dato che il primo campo della tabella, di nome "id" è un contatore, il suo valore viene assegnato automaticamente, avrei bisogno di sapere questo valore per effettuare altre operazioni, in VB6 una volta inserito un record esso era quello attivo e tramite RecordSet andavo a leggere l'id ma ora come faccio?

Grazie mille...

[giorgiogio48]

Ciao,
anche io sto passando a VB.net e il passaggio anche a me risulta faticoso. E pensare che quelli che della Microsoft avevano detto che con Vb.net le cose erano più facili perchè bisognava inserire meno codice.
Passando alla tua domanda, io lo stesso problema lo ho risolto usando il tipo datarow e il metodo Newrow relativo alla tua Datatable.
Allenati a ricercare sulla MSDN e compra un buon libro: Parlano molto bene di "Programmare Microsoft Visual Basic 2005. Il linguaggio e il framework" di F. Balena. (che io non ho ancora comprato).

[Jupy64]

Ciao, vedi qui: http://forum.html.it/forum/showthrea...ight=contatore
anche se il thread era per vb6, le istruzioni sql vanno bene per tutti...

[zoodany]

Originariamente inviato da Jupy64
Ciao, vedi qui: http://forum.html.it/forum/showthrea...ight=contatore
anche se il thread era per vb6, le istruzioni sql vanno bene per tutti...

Ho provato a scrivere questo:

dim i as integer
sql = "SELECT @@IDENTITY FROM fotoimm"
cmd.CommandText = sql
i = cmd.ExecuteNonQuery()

ma su i non mi viene restituito nulla... Dove sbaglio?

Grazie!!

[ferrate]

Originariamente inviato da zoodany
Ho provato a scrivere questo:

dim i as integer
sql = "SELECT @@IDENTITY FROM fotoimm"
cmd.CommandText = sql
i = cmd.ExecuteNonQuery()

ma su i non mi viene restituito nulla... Dove sbaglio?

Grazie!!

cmd.commandtext = sql.tostring

una cosa : hai dichiarato cmd??

[zoodany]

Certo che cmd è dichiarato...

Per ora ho risolto così ma non mi sembra ne elegante, ne efficiente..

dim id as integer
sql = "SELECT TOP 1 id FROM fotoimm ORDER BY id DESC"
cmd.CommandText = sql
dr = cmd.ExecuteReader
dr.Read()
id = dr!id
dr.Close()

Il mio VB è l'edizione 2005, può essere che le vostre soluzioni funzionino solo con versioni precedenti? :master:

[Jupy64]

Originariamente inviato da zoodany
Ho provato a scrivere questo:

dim i as integer
sql = "SELECT @@IDENTITY FROM fotoimm"
cmd.CommandText = sql
i = cmd.ExecuteNonQuery()

ma su i non mi viene restituito nulla... Dove sbaglio?

Grazie!!

Ciao, non devi usare cmd.ExecuteNonQuery() in quanto l'interrogazione ti deve restituire qualcosa...l'ID
Pertanto usa ExecuteReader..

[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

[tony83]

poi non sò era questo che intedevi fare:

http://www.aspitalia.com/script/588/...uteScalar.aspx

Vedi su google ExecuteScalar