[VB.NET]: Procedura inserimento/aggiornamento record in DB Access

[zoodany]

Ciao..

Sono alle prime armi con VB.net , finora ho sempre utilizzato VB6 ed il passaggio mi si rivela un po' traumatico... :master:

Per inserire e aggiornare i record di un DB l'unico modo è tramite i CommandObject, ovvero scrivendo le istruzioni SQL INSERT e UPDATE in una stringa e poi far eseguire il comando?

Non esiste una procedura simile ai RecordSet di VB6? Una cosa del genere (dove rs è un recordset):

rs.AddNew
rs("nome")=textbox1.text
rs("cognome")=textbox2.text
rs("uomo")=chkbox1.checked
rs("donna")=chkbox2.checked
rs.Update

Era molto più comodo secondo me......

Grazie mille...

[zoodany]

Nessuno, eh...

[gfantuzzi]

puoi fare circa la stessa cosa aggiungendo un riferimento a ADODB nel tuo progetto.
per qualche motivo che mi sfugge, tuttavia, qua tutti consigliano di passare a ADO.NET...

Esempio codice: apertura connessione
Dim mConnect As New ADODB.Connection()

mConnect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;';User ID=Admin;Data Source=" + filepathDelDb + ";Mode=Share Deny None;Extended Properties='';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDBatabase Password='';Jet OLEDB:Engine Type=5;Jet OLEDBatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password='';Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
Try
mConnect.Open()
Catch ex As Exception
MessageBox.Show("Connessione non stabilita")
End Try

Esempio codice: chiusura connessione
mConnect.close()

Esempio codice: modifica
Dim mRecord As New ADODB.Recordset()
Dim sql As String
sql = "Select * From tabella where codice = '" + TextBox1.Text + "'"

Try
mRecord.Open(sql, mConnect, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)

If mRecord.EOF = False Then
mRecord.Fields("campo1").Value = TextBox2.Text
mRecord.Update()
mRecord.Close()
Else
MessageBox.Show("Record non trovato")
End If

Catch ex As Exception
MessageBox.Show("Errore" + ex.Message.ToString)
End Try


Esempio codice: aggiunta record
Dim mRecord As New ADODB.Recordset()
Try
mRecord.Open("tabella", mConnect, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
mRecord.AddNew()
mRecord.Fields("campo1").Value = TextBox1.Text
mRecord.Fields("campo2").Value = TextBox2.Text
mRecord.Update()
mRecord.Close()
Catch ex As Exception
MessageBox.Show("Errore" + ex.Message.ToString)
End Try

Esempio codice: cancellazione record
Dim mRecord As New ADODB.Recordset()
Dim sql As String = "Select * From tabella where codice = '" + TextBox1.Text + "'"
Try
mRecord.Open(sql, mConnect, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
mRecord.Delete()
mRecord.Close()
Catch ex As Exception
MessageBox.Show("Errore" + ex.Message.ToString)
End Try



Saluti.