Salve ha tutto il forum, avrei bisogno di un aiuto:

Ho un file xls contenente dei dati, questi dati li dovrei passare dal file XLS  a un file MDB tramite Visual Basic.

Mettiamo caso che ad esempio ho:

(file EXCEL)

COLONNA 1 RIGO 1= FABIO

COLONNA 2 RIGO1=MESSINA

COLONNA 3 RIGO 1=27

premendo un command button, in visual basic, dovrei fare in modo tale che i dati si vadano ad inserire in un file MDB, magari in una tabella già creata, e fare in modo che posso creare i campi del db via codice e importare i dati nel seguente modo:

NOME=FABIO

COGNOME=MESSINA

ETA'=27

e via dicendo

Spero che qualcuno può aiutarmi

Distinti Saluti           Fabio Messina

Ciao,
prova ad dare un'occhiata al seguente codice  V B S c r i p t:

Dim xls,cn,rs

Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\test.mdb"

Set rs = CreateObject("ADODB.Recordset")
rs.Open "tblPersone",cn,1,2

Set xls = CreateObject("Excel.Application")
With xls.Workbooks.Open( "c:\persone.xls" )
 .Activate
 With .Worksheets("foglio1")
  For i=1 to .Usedrange.Rows.Count
   rs.Addnew
   rs.Fields("Nome").Value = .Cells(i,1)
   rs.Fields("Cognome").Value = .Cells(i,2)
   rs.Fields("Eta").Value = .Cells(i,3)
   rs.Update
  Next
 End With
 .Close false
End With
xls.Quit
Set xls = Nothing

rs.Close
Set rs = Nothing

cn.Close
Set cn = Nothing

MsgBox "Fatto!"

Questa semplice routine accoda il contenuto del file persone.xls (foglio1) nel database test.mdb (tblPersone): con pochi accorgimenti dovrestri poterlo adattare alle tue esigenze.

Ciao ciao

Grazie della risposta, funziona alla grande

Fabio Messina

Ho usato questa porzione di codice e funziona egreggiamente, ma in realtà mi servirebbe che i campi del database venissero aggiornati con i valori del foglio di calcolo e non semplicemente aggiunti.

Quindi nel mio file di excel   foglio1, due colonne con, codice prodotto e quantità.
Nel database mi servirebbe cha a quel prodotto venisse aggiornata la quantità,  visto che il prodotto è presente ma la quantità ha un valore "diverso" da aggiornare.

Questo codice fà un semplice append dei dati da excel nel database a me servirebbe che se presente un dato prodotto lui ne aggiorni la quantità.

 ciao,  ho visto che il codice in vb prende delle celle in excel e le passa a un file mdb, però le appende, per caso sai se sei risucito ad aggiornare il contenuto delle stesse celle.

grazie

ti lascio la mia mail in caso di risposta: fmgagliano@libero.it 

Purtroppo no, non ho ancora risolto il mio problema ed ora capisco anche il tuo.

non ho trovato nessuno disposto a mandarmi il codice completo come ho fatto io.

Qualcuno mi ha dato dei consigli, ma sono veramente alle prime armi in visual e non riesco a sfruttarli a pieno.

Se anche tu risolvi ti mando la mia mail   rigoli@meditrade.it

Scusate ma quello che dovete realizzare è un collegamento a caldo?

Nel codice viene esplicitamente aggiunto un valore ogni qualvolta che il codice viene eseguito.

Per poter fare quello di cui avete bisogno dovete senz'altro capire quello che avete fatto fin'ora... il fatto che nessuno vi passi codice è perchè con copia incolla non si risolve molto.

Con il DAO ed il metodo seek potreste fare molto...

Rimango a disposizione