[VBA] Inserimento record e aggiornamento

[Gjbob]

Ciao,

ho un database accces con una maschera in cui in una Casella di riepiloogo raccolgo all'avvio i dati presenti in una tabella del database.

La mia idea è sotto di avere una serie di text Box che utilizzo per l'inserimento / modifica.

ora come faccio tramite per esempio due pulstanti dedicati ad inserire il nuovo record , aprire la liena selezionata nella Casella di Riepillogo , ed eventualmente salvare i dati modificati?

[MarcoGG]

Iniziamo con la INSERT, che puoi eseguire semplicemente usando i parametri dell' ADODB.Command e la connessione di Access ( CurrentProject.Connection ).
C'è anche una via ancora più semplice con DoCmd.RunSQL(SqlStatement...), ma creare una stringa SQL concatenando direttive e valori non mi sembra la scelta migliore.

In pratica :

    Dim CMD As ADODB.Command
    Set CMD = New ADODB.Command
    CMD.ActiveConnection = CurrentProject.Connection
    
    'Parametri
    Dim campo1 As <tipo>
    campo1 = <valore> '( ad es. contenuto della textbox... )
    CMD.Parameters.Append CMD.CreateParameter("@campo1", <tipo adoSql>, adParamInput, Len(campo1), campo1)
    
    Dim campo2 As <tipo>
    campo2 = <valore>
    CMD.Parameters.Append CMD.CreateParameter("@campo2", <tipo adoSql>, adParamInput, Len(campo2), campo2)

    '...
    '...
       
    CMD.CommandText = "INSERT INTO nomeTabella(nomeCampo1, nomeCampo2, ... ) " & _
                      "VALUES(@campo1, @campo2, ...)"
    CMD.Execute