Add Record con Ado

AddConAdo

Aggiungi un record con Ado

Indicazioni e Spiegazioni

Il codice funziona con NorthWind italiano

Da mettere in Modulo

Da mettere nel form

'Per mettere questo codice
    'sostituisci il data source and il valore iniziale catalog
    'nella stringa di connessione

Public Sub AddNewX()

'recordset e connessione variabili
   Dim Cnxn As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim strCnxn As String
   Dim strSQL As String
    'variabili del record
   Dim strID As String
   Dim strFirstName As String
   Dim strLastName As String
   Dim blnRecordAdded As Boolean

' Apri la connessione
   Set Cnxn = New ADODB.Connection
   strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\northwind.mdb;Persist Security Info=False"
   Cnxn.Open strCnxn
      
   ' Apri la tabella Impiegati Con un cursore che permette Update
   Set rstEmployees = New ADODB.Recordset
   strSQL = "Impiegati"
   rstEmployees.Open strSQL, strCnxn, adOpenKeyset, adLockOptimistic, adCmdTable

' Ottieni dati dall'utente
   strFirstName = Trim(InputBox("Inserisci il nome:"))
   strLastName = Trim(InputBox("Inserisci il cognome:"))

' Procede solo se l'utente mette qualcosa
   ' sia per nome che per cognome
   If strFirstName <> "" And strLastName <> "" Then

rstEmployees.AddNew
        rstEmployees!Nome = strFirstName
        rstEmployees!Cognome = strLastName
      rstEmployees.Update
      blnRecordAdded = True

' Mostra il nuovo aggiunto record
      strID = rstEmployees!Idimpiegato
      MsgBox "Nuovo record: " & rstEmployees!Idimpiegato & " " & _
         rstEmployees!Nome & " " & rstEmployees!Cognome

Else
      MsgBox "Per favore inserisci di nuovo il nome e cognome."
   End If
      
   ' Cancella il nuovo record
   Cnxn.Execute "DELETE FROM Impiegati WHERE idimpiegato = " & strID & ""
      
    ' Pulisce
   rstEmployees.Close
   Cnxn.Close
   Set rstEmployees = Nothing
   Set Cnxn = Nothing

End Sub

Private Sub Form_Load()
Call AddNewX
End Sub

Torna alla Pagina Esempi