[VB6] Copia di specifici record di una tabella di database

[mdnet]

Ciao ragazzi, sono alla ricerca di info per creare una piccola (per me grande) utility.

Con VB6 tramite un bottone, dovrei fare la copia di un database, all'interno di questo database esiste una tabella di nome Anagrafica, di questa tabella Anagrafica dovrei copiare solo i record che hanno il capo data compilato.

Provo ad essere più chiaro, la struttura è la seguente:

DATABASE --> da copiare
Tabella1 -> da copiare
Tabella2 -> da copiare
Tabella3 -> copiare solo i record che abbiano il campo data pieno.

Grazie

[tekanet]

Il DB è Access o SQL?

Se Access: copia *fisicamente* il file, con FSO (assicurati di non avere connessioni aperte, prima), dopodiché aprilo ed elimina quello che non ti serve. Magari poi compattalo pure (sempre che non sia un'operazione non indicata per via di dimensioni o cose simili).

Se il secondo, ricrea la struttura con delle create table, apri un recorset in lettura sulla sorgente e fino ad EOF (per ognuna delle tabelle) lancia delle insert sul secondo. Meglio se racchiudi in una transaction, per rapidità.

HTH,
tK

[mdnet]

Il database è Access, ma non posso fare l'operazione manualmente, vorrei automatizzare il tutto tramite un bottone perchè questa funzione per me è una specie di aggiornamento da fare almeno 1 volta alla settimana e la persona che si occupa di ciò non mette le mani ne su vb ne su access.

grazie

[tekanet]

Macchè manualmente, con FSO puoi copiare il file (FileSystemObject)! Al click del pulsante. Oppure all'avvio controlli un qualche file o registry per i parametri, controlli l'ultima data in cui l'operazione è stata eseguita e se necessario la riesegui, aggiornando il parametro.

tK

[mdnet]

Ho provato a scrivere 1000 volte l'istruzione sql per eliminare i record dalla tabella del database di access ma non ci riesco, qualcuno di voi mi potrebbe dare un aiuto.

Dovrei eliminare dalla cartella Anagrafica del Database DATI tutti i record che hanno come valore ROMA nel campo ComuneResidenza

Ciao e GRAZIE

[Stoicenko]

delete from anagrafica where ComuneResidenza='ROMA';

[mdnet]

Posto quello che ho fatto e che non mi restituisce il risultato voluto

Dim dbsDati As Database
Dim Sql As String

Set dbsDati = OpenDatabase("C:\Database\dati.mdb")

Sql = "delete from anagrafica where Comune=ROMA"

grazie

[optime]

Originariamente inviato da mdnet
Posto quello che ho fatto e che non mi restituisce il risultato voluto

Dim dbsDati As Database
Dim Sql As String

Set dbsDati = OpenDatabase("C:\Database\dati.mdb")

Sql = "delete from anagrafica where Comune=ROMA"

grazie

manco copia & incolla

Sql = "delete from anagrafica where Comune='ROMA' "

le stringhe va tra l'apici

[mdnet]

Ciao, scusami avevo messo gli apici nel codice, ma purtroppo comunque non funziona, veramente non so cosa possa essere.

ciao

[optime]

la esegui poi l'istruzione? o hai solo la dichiarazione (SQL="...")?