[vb6] Somma tgra due colonne

[marco.santilli]

Come posso eseguire la somma tra due colonne di una datagrid????

Ho provato questo metodo:

Private Sub Command4_Click()
DataGrid2.Columns(3) = Val(DataGrid2.Columns(1)) + Val(DataGrid2.Columns(2))
End Sub

E' funzionante solo che ha 2 GRANDI PECCHE:

1) Esegue il calcolo solo al record selezionato...invece a me serve eseguirlo per tutti i record
2) Se modifico l'ordine delle colonne e conti impostati vanno a PUTTANE, sarebbe ha impostarlo con i nomi dei campi

C'è un metodo per crearlo come io ho chiesto?????

Ciao e grazieeeeeeeeee

[xegallo]

per vb abbiamo un forum specifico ti sposto, ricordati di precisate la versione di vb che stai utilizzando e leggi il regolamento

[marco.santilli]

Scusate, utilizzo VB6

Ciao e grazieeeeee

[giorgiogio48]

La somma la devi eseguire prima sulla tabella sottostante.
Prima devi creare dalla tabella primaria una query di selezione con un campo calcolato dove metterai la somma degli altri campi. Poi collega la datagrid alla query.

[marco.santilli]

Non sono molto esperto, potresti buttarmi giu 2 righe di codice cosi posso capire meglio la sintassi.

Oppure darmi un link per scaricare un esempio gia creato

Ciao e grazieeeeeeeeeee

[giorgiogio48]

Vedi come si crea un campo calcolato. Ti mostro un esempio. La mia tabella è fatta di 4 campi. Di lì nel database ho fatto Query>Nuovo>Visualizzazione struttura. Poi ho creato il campo calcolato "Somma" (nome che ho dato io).


Il primo campo che si chiama ID, per mia comodità, non compare nel'immagine. Ma nel nostro caso non serve. Tu devi creare un campo calcolato come ho fatto io e lo chiami coma vuoi, così come sei libero di chiamare gli altri campi. Poi collega questa query alla tua datagrid.

[marco.santilli]

Come si creano le query in ACCESS le conosco perchè sono 5 anni che programmo in access.

Il problema è che non consoco la stringa con collegare la query dal datagrid.

Io conosco questa che è per collegare una tabella alla datagrid:
Set rsRecordSet = New ADODB.Recordset
rsRecordSet.Open "SELECT * From Servizi ORDER by ServGiornata", Cn, adOpenStatic, adLockOptimistic
Set Me.DataGrid1.DataSource = rsRecordSet

Per collegare una query fatta in ACCESS non sono capace.

E' proprio la stringa di connessione che a me serve

Ciao e grazieeeeeeeeeee

[giorgiogio48]

sul form oltre al datagrid devi caricare il controllo Ado.
Poi nelle proprieà del controllo che si chiama adodc1 scegli connectionstring>genera>Microsoft.Jet.OLEDB.4.0>se lezioni il tuo database. Poi chiudi tutto con OK.
Poi prendi la proprietà recordsoruce di adodc1 e scrivi "select*from 'tua tabella'" senza le virgolette (se la tabella è formata da più parole metti la tra parentesi quadre). Poi vai nelle proprietà del datagrid1>datasource e seleziona adodc1. Vedrai che la tua datagrid si popola. Se vuoi fare una ricerca devi scrivere in codice:
adodc1.recordsource="Tua sql"
adodc1.refresh

[ciro78]

scusami ma no capisco una cosa i dati li prendi da un database?

[giorgiogio48]

Originariamente inviato da giorgiogio48
sul form oltre al datagrid devi caricare il controllo Ado.
Poi nelle proprieà del controllo che si chiama adodc1 scegli connectionstring>genera>Microsoft.Jet.OLEDB.4.0>se lezioni il tuo database. Poi chiudi tutto con OK.
Poi prendi la proprietà recordsoruce di adodc1 e scrivi "select*from 'tua tabella' " senza le virgolette (se la tabella è formata da più parole metti la tra parentesi quadre). Poi vai nelle proprietà del datagrid1>datasource e seleziona adodc1. Vedrai che la tua datagrid si popola. Se vuoi fare una ricerca devi scrivere in codice:
adodc1.recordsource="Tua sql"
adodc1.refresh

Scusa,
una precisazione: nel testo sopra al posto di 'tua tabella' metti 'tua query'