🚀 go-pugleaf

Aggiungi questo codice:

''''''''''' INIZIO Codice '''''''''''''

Dim aDb as database

set aDb = DbEngine.OpenDatabase("c:\pippo.mdb",false,false,"")

strSql = "INSERT INTO TAB_APPOGGIO SELECT * FROM Tabella where " & 
cmbCriterio.Text & " LIKE '" & DoubleApice(txtValore.Text) & "'"

aDb.execute strSql

aDb.close

''''''''''' FINE Codice '''''''''''''

Ovviamente TAB_APPOGGIO � la tabella di appoggio e deve avere la stessa 
struttura della tua tabella 'Tabella'.
c:\pippo.mdb � il percorso completo del tuo Db.

Fammi sapere, ciao.



Gianni wrote:

>> Ho un grosso bisogno d'aiuto su come riempire una tabella d'appoggio,
>> dopo aver esuguito una query.
>> Porto l'esempio:
>>
>> Dal mio form di ricerca seleziono il criterio e in una textBox la parola
>> chiave sulla quale eseguire la ricerca; poi esuguo una query del tipo:
>>
>> strSql = "SELECT * FROM Tabella where " & cmbCriterio.Text & " LIKE '" &
>> DoubleApice(txtValore.Text) & "'"
>> Data1.RecordSource = strSql
>>
>> a questo punto vedo attraverso un DBGRIG il risultato della query, che ho
>> bisogno di inserire nella "tabella_appogio" utilizzando per quanto ne
> sappia
>> il metodo in oggetto.
>> Mi portate un esempio per capire...
>> Grazie.
>>
>> Lasciate pure i messaggi sul N.G.