VBA in Access: leggere un campo

[cassioli]

Se il mio database e' in DATA_DB (tipo Database) , la mia tabella in DATA_TABLE (tipo TableDef) e il campo che mi interessa e' quello tale che CAMPO.name="miocampo" (CAMPO e' di tipo Field), che istruzione mi serve per assegnare alla variabile stringa TEST il contenuto del campo? (Accidenti alla guida in linea di Access!!! Non esiste un manuale di riferimento online con la lista di tutti i metodi e le procedure, tipo questo sito su RapidQ???)

[cassioli]

volevo dire PROPRIETA', non PROCEDURE!

[archimede]

Se ho inteso bene:

Codice: Seleziona tutto

Dim varX As Variant
varX = DLookup("[miocampo]", "DATA_TABLE", "[ID_DATA_TABLE] = 1")

HTH.

Alessandro

[cassioli]

Se ho inteso bene:

Codice: Seleziona tutto

Dim varX As Variant
varX = DLookup("[miocampo]", "DATA_TABLE", "[ID_DATA_TABLE] = 1")

HTH.

Alessandro

"variant"?!? E che razza di tipo e'?!? A me serve una stringa! Boh, ora provo...

[cassioli]

Se ho inteso bene:

Codice: Seleziona tutto

Dim varX As Variant
varX = DLookup("[miocampo]", "DATA_TABLE", "[ID_DATA_TABLE] = 1")

HTH.

Alessandro

Hai inteso male , riaggiusto secondo la mia domanda:

Codice: Seleziona tutto

Dim varX As Variant
varX = DLookup("[miocampo]", DATA_TABLE.name)


DATA_TABLE non e' il nome della tabella, ma il nome della variabile-tabella.
Il resto dell'istruzione non serve, quanto sopra e' sufficiente per trovare il campo.


E se, adesso che ho tirato fuori il contenuto, voglio aggiungerci un pezzo e rificcarlo dentro al DB? Invento:

Codice: Seleziona tutto

nuovo=varX + "che bello"
FiccaCampoDentro("[miocampo],DATA_TABLE.name,varX) = nuovo  ????


il varX qui servirebbe a ritrovare lo stesso valore di prima (o posso specificare il numero di riga della tabella).

[archimede]

Hai inteso male

Eh, capita

riaggiusto secondo la mia domanda:

Codice: Seleziona tutto

Dim varX As Variant
varX = DLookup("[miocampo]", DATA_TABLE.name)


DATA_TABLE non e' il nome della tabella, ma il nome della variabile-tabella.
Il resto dell'istruzione non serve, quanto sopra e' sufficiente per trovare il campo.

Mi sfugge la logica: hai diverse tabelle che contengono il campo "miocampo" e stai scrivendo una funzione che fa il loop su tutte le tabelle? Insomma, perchè il nome del campo è una costante e quello della tabella no? Comunque, contento tu...

E se, adesso che ho tirato fuori il contenuto, voglio aggiungerci un pezzo e rificcarlo dentro al DB?

Come nel caso precedente (e in molti altri del resto) ci sono diversi modi. Esempio:

Codice: Seleziona tutto

SQLStr = "UPDATE " & DATA_TABLE.name & " SET miocampo='" & varx & "che bello" & "';"
db.Execute SQLStr, dbFailOnError

HTH.

Alessandro

[archimede]

Il resto dell'istruzione non serve, quanto sopra e' sufficiente per trovare il campo.

Non ci avevo riflettuto, ma quanti record ci sono nella tabella, uno? No, perchè DLookup torna indietro il valore di UN record (se non metti criteri, ne seleziona uno a caso).

Alessandro

[archimede]

Codice: Seleziona tutto

SQLStr = "UPDATE " & DATA_TABLE.name & " SET miocampo='" & varx & "che bello" & "';"
db.Execute SQLStr, dbFailOnError

Che idiota! Anche qui ci vuole un criterio WHERE, altrimenti aggiorni TUTTI i records della tabella.

Scusa tanto, sono un po' provato in questi giorni...

Alessandro

[cassioli]

Il resto dell'istruzione non serve, quanto sopra e' sufficiente per trovare il campo.

Non ci avevo riflettuto, ma quanti record ci sono nella tabella, uno?

Si'
Tabellona, eh?
Mi serve solo per memorizzare stabilmente il percorso di un file cui si appoggia la mia applicazione e il percorso in cui mettere una copia di sicurezza del file stesso.

[cassioli]

Codice: Seleziona tutto

SQLStr = "UPDATE " & DATA_TABLE.name & " SET miocampo='" & varx & "che bello" & "';"
db.Execute SQLStr, dbFailOnError

Che idiota! Anche qui ci vuole un criterio WHERE, altrimenti aggiorni TUTTI i records della tabella.

Scusa tanto, sono un po' provato in questi giorni...

Alessandro

Vedo... dov'e' 'sto campo WHERE?!?

[archimede]

Vedo... dov'e' 'sto campo WHERE?!?

Beh, con un record per tabella non serve, altrimenti:

Codice: Seleziona tutto

SQLStr = "UPDATE " & DATA_TABLE.name & " SET miocampo='" & varx & "che bello" & "' WHERE miachiave=" & valore & ";"
db.Execute SQLStr, dbFailOnError