[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

;)