[VB6] Formato per caricamento dati da file

[Veronica80]

Ciao! Ho un piccolo problema.
Ho un programma che mi archivia tutti i clienti collegandosi a un DB access tramite ADO, siccome sto inserendo la funzione "aggiornamenti" che mi permette quando inserisco nuovi clienti in ufficio di creare un pacchetto di update con i clienti che voglio da poter spostare sul pc di casa avrei da kiedere una cosa...

Allora la funzione aggiornamenti funziona grossomodo così:

.Seleziono i clienti che voglio siano inseriti nel pacchetto.
.Creo una lista dei soli clienti da inserire.
.Per ogni voce della lista creo il codice SQL per la INSERT INTO nel DB da aggiornare

e qui nasce il problema...nn so dove e come salvare queste stringe per poi ricaricarle col software ed eseguirle...

nn credo di esser stata molto kiara...spero che abbiate capito

[nogovoia]

dipende se vuoi caricare il dump tramite access o tramite il programma

potresti salvare le insert in un file txt e poi a casa aprire l'mdb e tramite una query in modalità sql incollare le stringhe ed eseguire la procedura

non lavoro in vb6 però la sintassi è simile a vb.net

questo snippet l'ho trovato qui

Dim fso As FileSystemObject
Dim Grocery As File
Dim Groceries As TextStream
   
Const forwriting = 2
Set fso = New FileSystemObject
   
'Creates a text file named Grocery.txt
fso.CreateTextFile "C:\Documents and Settings\User\Desktop\Grocery.txt", True
   
'Creates a FileObject
Set Grocery = fso.GetFile("C:\Documents and Settings\User\Desktop\Grocery.txt")
   
'Opens the file as TextStream
Set Groceries = Grocery.OpenAsTextStream(forwriting, True)
   
Groceries.WriteLine "GroceryList for " + " " + (CStr(Date)) + vbNewLine + Me.lstGroceries.Text

[Veronica80]

Mmmm interessante...

Però ho già un problema...

non mi crea il file

Io inserisco Microsoft Scriptin Runtime nei riferimenti.
Se poi per sempio creo un bottone e metto il codice:

Dim fso As New FileSystemObject
Dim f As File

Private Sub Command1_Click()
Set f = fso.CreateTextFile("c:\testFile.txt", True)

End Sub

dovrebbe crearmi il file in C:\ invece mi da "errore 13 - Tipo nn corrispondente"...

[Veronica80]

Anzi no!
Il file lo crea! Solo che mi da quell'errore maledetto...

[nogovoia]

http://www.aivosto.com/visdev/fso.html

occhio che CreateTextFile non ti ritorna un oggetto File ma un oggetto TextStream

[LMondi]

.Creo una lista dei soli clienti da inserire.

Cosa vuoi dire, che i clienti sono evidenziati in una ListBox, o dove ?

[Veronica80]

no io ho il recordset contenente i clienti e record dopo record creo la mia stringa INSERT INTO.

ES: io ho nel recordset 2 records:

-Mario Rossi nato a Roma
-Veronica Verdi nata a Cagliari.

Fingiamo che i campi siano quindi "nome", "cognome" e "luogo".

Io in base a questo recordset che mi ritrovo mi creo la stringa sql:

"INSERT INTO miaTab (nome, cognome, luogo) VALUES ('mario', 'rossi', 'roma')"
e la salvo nella riga del file di testo.
Poi:
"INSERT INTO miaTab (nome, cognome, luogo) VALUES ('veronica', 'verdi', 'cagliari')"
e la salvo e così via!

Poi l'idea e di ricaricarli (per aggiornare) ed eseguire le stringhe sql!

Non riesco a farlo però...coi file di txt!

[nogovoia]

potresti crearti una funzione che apra il file in lettura e lo legga riga per riga

ad ogni riga letta esegui una query al db ricaricando i dati

[oregon]

Partiamo da quando crei la prima stringa SQL ... se ho capito la esegui e poi crei la seconda e la esegui e cosi' via ...

Cosa intendi per "ricaricare" ...? Cosa non riesci a fare?

Non si e' ancora capito ...

[nogovoia]

@oregon: si tratta di un dump "casalingo" in cui alcuni record vengono salvati su un file txt creando direttamente le stringhe sql di insert per poi ricaricarli in un altro db